Mercurial > lasercutter
view src/clojure/contrib/test_contrib/test_lazy_seqs.clj @ 10:ef7dbbd6452c
added clojure source goodness
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 21 Aug 2010 06:25:44 -0400 |
parents | |
children |
line wrap: on
line source
1 (ns clojure.contrib.test-lazy-seqs2 (:use clojure.test3 clojure.contrib.lazy-seqs))5 (deftest test-fibs6 (is (= [0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 109467 17711 28657 46368 75025 121393 196418 317811 514229 832040 1346269 21783098 3524578 5702887 9227465 14930352 24157817 39088169 63245986 1023341559 165580141 267914296 433494437 701408733 1134903170 1836311903 297121507310 4807526976 7778742049]11 (take 50 (fibs)))))13 (deftest test-powers-of-214 (is (= [1 2 4 8 16 32 64 128 256 512]15 (take 10 (powers-of-2)))))17 (deftest test-primes18 (is (= [2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 10119 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 19720 199 211 223 227 229]21 (take 50 primes))))