Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 06:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding infinite list map/for-each examples.

Browse source
This commit is contained in:
Alex Shinn 2012-11-11 15:39:43 +09:00
parent 77bdb07584
commit 61b9214644
1 changed files with 21 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
tests/r7rs-tests.scm
View file

@ -1172,8 +1172,7 @@
(test '(b e h) (map cadr '((a b) (d e) (g h)))) (test '(b e h) (map cadr '((a b) (d e) (g h))))
(test '(1 4 27 256 3125) (map (lambda (n) (expt n n)) (test '(1 4 27 256 3125) (map (lambda (n) (expt n n)) '(1 2 3 4 5)))
'(1 2 3 4 5)))
(test '(5 7 9) (map + '(1 2 3) '(4 5 6 7))) (test '(5 7 9) (map + '(1 2 3) '(4 5 6 7)))
@ -1186,6 +1185,12 @@
(or (equal? res '(1 2)) (or (equal? res '(1 2))
(equal? res '(2 1))))) (equal? res '(2 1)))))
(test '(10 200 3000 40 500 6000)
(let ((ls1 (list 10 100 1000))
(ls2 (list 1 2 3 4 5 6)))
(set-cdr! (cddr ls1) ls1)
(map * ls1 ls2)))
(test "abdegh" (string-map char-foldcase "AbdEgH")) (test "abdegh" (string-map char-foldcase "AbdEgH"))
(test "IBM" (string-map (test "IBM" (string-map
@ -1216,11 +1221,20 @@
(or (equal? res #(1 2)) (or (equal? res #(1 2))
(equal? res #(2 1))))) (equal? res #(2 1)))))
(test #(0 1 4 9 16) (let ((v (make-vector 5))) (test #(0 1 4 9 16)
(for-each (lambda (i) (let ((v (make-vector 5)))
(vector-set! v i (* i i))) (for-each (lambda (i)
'(0 1 2 3 4)) (vector-set! v i (* i i)))
v)) '(0 1 2 3 4))
v))
(test 9750
(let ((ls1 (list 10 100 1000))
(ls2 (list 1 2 3 4 5 6))
(count 0))
(set-cdr! (cddr ls1) ls1)
(for-each (lambda (x y) (set! count (+ count (* x y)))) ls2 ls1)
count))
(test '(101 100 99 98 97) (test '(101 100 99 98 97)
(let ((v '())) (let ((v '()))