Van Eck sequence: Difference between revisions
m
Moved Clojure entry into correct alphabetical order.
m (→{{header|REXX}}: added/changed some comments.) |
m (Moved Clojure entry into correct alphabetical order.) |
||
Line 43:
* [[oeis:A181391| OEIS sequence: A181391]].
<br>
=={{header|Clojure}}==▼
<lang clojure>(defn van-eck▼
([] (van-eck 0 0 {}))▼
([val n seen]▼
(lazy-seq▼
(cons val▼
(let [next (- n (get seen val n))]▼
(van-eck next▼
(inc n)▼
(assoc seen val n)))))))▼
(println "First 10 terms:" (take 10 (van-eck)))▼
(println "Terms 991 to 1000 terms:" (take 10 (drop 990 (van-eck))))</lang>▼
{{out}}▼
<pre>First 10 terms: (0 0 1 0 2 0 2 2 1 6)▼
Terms 991 to 1000 terms: (4 7 30 25 67 225 488 0 10 136)</pre>▼
=={{header|Go}}==
Line 156 ⟶ 174:
{{out}}
As before.
▲=={{header|Clojure}}==
▲<lang clojure>(defn van-eck
▲ ([] (van-eck 0 0 {}))
▲ ([val n seen]
▲ (lazy-seq
▲ (cons val
▲ (let [next (- n (get seen val n))]
▲ (van-eck next
▲ (inc n)
▲ (assoc seen val n)))))))
▲(println "First 10 terms:" (take 10 (van-eck)))
▲(println "Terms 991 to 1000 terms:" (take 10 (drop 990 (van-eck))))</lang>
▲{{out}}
▲<pre>First 10 terms: (0 0 1 0 2 0 2 2 1 6)
▲Terms 991 to 1000 terms: (4 7 30 25 67 225 488 0 10 136)</pre>
=={{header|REXX}}==
| |||