Skip to content

Instantly share code, notes, and snippets.

@aharisu
Created August 9, 2014 01:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aharisu/b0d23252db14a755bb2a to your computer and use it in GitHub Desktop.
Save aharisu/b0d23252db14a755bb2a to your computer and use it in GitHub Desktop.
diff --git test/list.scm test/list.scm
index b92343c..f0ff35e 100644
--- test/list.scm
+++ test/list.scm
@@ -84,8 +84,8 @@
(test* "count" 3 (count even? '(3 1 4 1 5 9 2 6 5)))
(test* "count" 3
(count < '(1 2 4 8) '(2 4 6 8 10 12 14 16)))
-(test* "count" 2
- (count < '(3 1 4 1) '#0=(1 10 . #0#)))
+;(test* "count" 2
+; (count < '(3 1 4 1) '#0=(1 10 . #0#)))
(test* "reduce" 55 (reduce + 0 (iota 10 1)))
(test* "reduce-right" '(1 2 3 4 5 6 7 8 9 . 10)
(reduce-right cons 0 (iota 10 1)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment