Mercurial > lasercutter
annotate 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 |
rev | line source |
---|---|
rlm@10 | 1 (ns clojure.contrib.test-lazy-seqs |
rlm@10 | 2 (:use clojure.test |
rlm@10 | 3 clojure.contrib.lazy-seqs)) |
rlm@10 | 4 |
rlm@10 | 5 (deftest test-fibs |
rlm@10 | 6 (is (= [0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 |
rlm@10 | 7 17711 28657 46368 75025 121393 196418 317811 514229 832040 1346269 2178309 |
rlm@10 | 8 3524578 5702887 9227465 14930352 24157817 39088169 63245986 102334155 |
rlm@10 | 9 165580141 267914296 433494437 701408733 1134903170 1836311903 2971215073 |
rlm@10 | 10 4807526976 7778742049] |
rlm@10 | 11 (take 50 (fibs))))) |
rlm@10 | 12 |
rlm@10 | 13 (deftest test-powers-of-2 |
rlm@10 | 14 (is (= [1 2 4 8 16 32 64 128 256 512] |
rlm@10 | 15 (take 10 (powers-of-2))))) |
rlm@10 | 16 |
rlm@10 | 17 (deftest test-primes |
rlm@10 | 18 (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 101 |
rlm@10 | 19 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 |
rlm@10 | 20 199 211 223 227 229] |
rlm@10 | 21 (take 50 primes)))) |