66 lines
2.2 KiB
Racket
66 lines
2.2 KiB
Racket
#lang typed-scheme
|
|
|
|
(plambda: (a ...) ([z : String] . [w : Number ... a])
|
|
(apply (lambda: ([x : Number] . [y : Number ... a]) x)
|
|
1 w))
|
|
|
|
(plambda: (a ...) ([z : String] . [w : Number ... a])
|
|
(apply (lambda: ([x : Number] . [y : Number *]) x)
|
|
1 w))
|
|
|
|
(plambda: (a ...) ([z : String] . [w : Number *])
|
|
(apply (lambda: ([x : Number] . [y : Number *]) x)
|
|
1 w))
|
|
|
|
(plambda: (a ...) ([z : String] . [w : Number *])
|
|
(apply (case-lambda: (([x : Number] . [y : Number ... a]) x)
|
|
(([x : String] [y : String] . [z : String *]) 0)
|
|
([y : Number *] 0))
|
|
w))
|
|
|
|
;; */*/poly
|
|
(plambda: (a ...) ([z : String] . [w : Number *])
|
|
(apply (plambda: (b) ([x : b] . [y : Number *]) x)
|
|
1 w))
|
|
|
|
(plambda: (a ...) ([z : String] . [w : Number *])
|
|
(apply (plambda: (b) ([x : b] . [y : Number *]) x)
|
|
1 2 3 w))
|
|
|
|
;; */*/polydots
|
|
(plambda: (a ...) ([z : String] . [w : Number *])
|
|
(apply (plambda: (b ...) ([x : Number] . [y : Number *]) x)
|
|
1 w))
|
|
|
|
(plambda: (a ...) ([z : String] . [w : Number *])
|
|
(apply (plambda: (b ...) ([x : Number] . [y : Number *]) x)
|
|
1 1 1 w))
|
|
|
|
;; */.../poly
|
|
(plambda: (a ...) ([z : String] . [w : Number ... a])
|
|
(apply (plambda: (b) ([x : Number] . [y : Number *]) x)
|
|
1 w))
|
|
|
|
(plambda: (a ...) ([z : String] . [w : Number ... a])
|
|
(apply (plambda: (b) ([x : Number] . [y : Number *]) x)
|
|
1 1 1 1 w))
|
|
|
|
;; */.../polydots
|
|
#;(plambda: (a ...) ([z : String] . [w : Number ... a])
|
|
(apply (plambda: (b ...) ([x : Number] . [y : Number *]) x)
|
|
1 w))
|
|
|
|
#;(plambda: (a ...) ([z : String] . [w : Number ... a])
|
|
(apply (plambda: (b ...) ([x : Number] . [y : Number *]) x)
|
|
1 1 1 1 w))
|
|
|
|
;; .../.../poly
|
|
(plambda: (a ...) ([z : String] . [w : Number ... a])
|
|
(apply (plambda: (b) ([x : Number] . [y : Number ... a]) x)
|
|
1 w))
|
|
|
|
#;(plambda: (a ...) ([z : String] . [w : Number ... a])
|
|
(apply (plambda: (b ...) ([x : Number] . [y : Number ... a]) x)
|
|
1 w))
|
|
|