37 lines
821 B
Racket
37 lines
821 B
Racket
|
#lang typed/syndicate/roles
|
|||
|
|
|
|||
|
|
(require rackunit/turnstile)
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;; Type Abstraction
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
(define id
|
|||
|
|
(Λ [τ]
|
|||
|
|
(lambda ([x : τ])
|
|||
|
|
x)))
|
|||
|
|
|
|||
|
|
(check-type id : (∀ (τ) (→fn τ τ)))
|
|||
|
|
|
|||
|
|
(check-type ((inst id Int) 1)
|
|||
|
|
: Int
|
|||
|
|
⇒ 1)
|
|||
|
|
(check-type ((inst id String) "hello")
|
|||
|
|
: String
|
|||
|
|
⇒ "hello")
|
|||
|
|
|
|||
|
|
(define poly-first
|
|||
|
|
(Λ [τ σ]
|
|||
|
|
(lambda ([t : (Tuple τ σ)])
|
|||
|
|
(select 0 t))))
|
|||
|
|
|
|||
|
|
(check-type poly-first : (∀ (A B) (→fn (Tuple A B) A)))
|
|||
|
|
|
|||
|
|
(check-type ((inst poly-first Int String) (tuple 13 "XD"))
|
|||
|
|
: Int
|
|||
|
|
⇒ 13)
|
|||
|
|
|
|||
|
|
(check-type ((inst poly-first Int String) (tuple 13 "XD"))
|
|||
|
|
: Int
|
|||
|
|
⇒ 13)
|