aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Hofstadter-Q-sequence/Clojure/hofstadter-q-sequence-1.clj Normal file
View file

@ -0,0 +1,13 @@
(defn qs [q]
(let [n (count q)]
(condp = n
0 [1]
1 [1 1]
(conj q (+ (q (- n (q (- n 1))))
(q (- n (q (- n 2)))))))))
(defn qfirst [n] (-> (iterate qs []) (nth n)))
(println "first 10:" (qfirst 10))
(println "1000th:" (last (qfirst 1000)))
(println "extra credit:" (->> (qfirst 100000) (partition 2 1) (filter #(apply > %)) count))

3
Task/Hofstadter-Q-sequence/Clojure/hofstadter-q-sequence-2.clj Normal file
View file

@ -0,0 +1,3 @@
first 10: [1 1 2 3 3 4 5 5 6 6]
1000th: 502
extra credit: 49798