9 lines
130 B
Racket
9 lines
130 B
Racket
|
#lang typed/syndicate
|
||
|
|
||
|
(require/typed "lib.rkt"
|
||
|
[#:opaque Vec]
|
||
|
[ones : Vec]
|
||
|
[vec+ : (→fn Vec Vec Vec)])
|
||
|
|
||
|
(vec+ ones ones)
|