Как мне написать функции высшего порядка, которые принимают полиморфные функции в качестве аргументов в Typed Racket?

Question

Например, как я могу написать версию map что будет работать с полиморфными функциями в Typed Racket? Я использую простую id функция определяется как:

(: id : (All (A) A -> A))
(define (id x) x)

Когда я пытаюсь отобразить его в списке, я получаю сообщение об ошибке:

> (map id '(1 2 3))

Type Checker: Polymorphic function `map' could not be applied to arguments:
Types: (-> a b ... b c) (Listof a) (Listof b) ... b -> (Listof c)
   (-> a c) (Pairof a (Listof a)) -> (Pairof c (Listof c))
Arguments: (All (A) (-> A A)) (List One Positive-Byte Positive-Byte)
Expected result: AnyValues
   in: (map id (quote (1 2 3)))

Answer 1

Вы должны вручную создать полиморфизм в этом случае:

->  (map (inst identity Integer) '(1 2 3))
- : (Listof Integer) [more precisely: (Pairof Integer (Listof Integer))]
'(1 2 3)

Причина объяснена в Руководстве по набранным ракеткам здесь:

Алгоритм локального вывода типов Racket в настоящее время не может определить типы для полиморфных функций, которые используются для аргументов высшего порядка, которые сами по себе являются полиморфными.

(см. документы для более подробного объяснения и примеров)