21 lines
443 B
Racket
21 lines
443 B
Racket
#lang typed-scheme
|
|
|
|
(define x
|
|
(plambda: (a ...) ([x : Number] . [y : Number ... a])
|
|
(ormap zero? (map add1 y))))
|
|
|
|
(define y
|
|
(plambda: (a ...) ([x : Number] . [y : a ... a])
|
|
(ormap null? (map list y))))
|
|
|
|
(define y*
|
|
(plambda: (a ...) ([x : Number] . [y : a ... a])
|
|
(andmap null? (map list y))))
|
|
|
|
|
|
(plambda: (a ...) ([x : Number] . [y : Number ... a])
|
|
y)
|
|
|
|
(plambda: (a ...) ([x : Number] . [y : Number ... a])
|
|
(map add1 y))
|