whalesong/tests/more-tests/lists.rkt
2011-08-31 16:11:15 -04:00

26 lines
462 B
Racket

#lang planet dyoo/whalesong/base
'(1 2 3)
(list "hello" "world")
(empty? empty)
(empty? '())
(cons? '())
(cons? '(hello))
(first '(hello))
(rest '(hello))
(second '(hello world))
(andmap even? '(2 4 6 8))
(andmap even? '())
(andmap even? '(2 4 5 8))
(andmap even? '(5))
(andmap even? '(1 3 5 7))
(andmap even? '(1 3 8 7))
(ormap even? '(2 4 6 8))
(ormap even? '())
(ormap even? '(2 4 5 8))
(ormap even? '(5))
(ormap even? '(1 3 5 7))
(ormap even? '(1 3 8 7))