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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Fibonacci-sequence/ArkScript/fibonacci-sequence-1.ark Normal file
View file

@ -0,0 +1,6 @@
(let fibo (fun (n)
(if (< n 2)
n
(+ (fibo (- n 1)) (fibo (- n 2))))))
(assert (= 6765 (fibo 20)) "(fibo 20) == 6765")

12
Task/Fibonacci-sequence/ArkScript/fibonacci-sequence-2.ark Normal file
View file

@ -0,0 +1,12 @@
(let fibo (fun (n) {
(mut i 0)
(mut a 0)
(mut b 1)
(while (< i n) {
(let c (+ a b))
(set a b)
(set b c)
(set i (+ 1 i)) })
a }))
(assert (= 6765 (fibo 20)) "(fibo 20) == 6765")