blob: 53b0f592d2f285f39391489b1ea726e0105d8752 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(assert-eq
(range 0 10)
'(0 1 2 3 4 5 6 7 8 9))
(assert-eq
(for (i (range 0 10)) (+ i 1))
(map (lambda (x) (+ x 1)) (range 0 10)))
(assert (and #t #t))
(assert (or #f #t))
(assert (not #f))
(assert-eq
(for (i '(1 2 3)) (for (j '(1 2 3)) (+ i j)))
(list '(2 3 4) '(3 4 5) '(4 5 6)))
|
