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

4
Task/Fibonacci-sequence/Hope/fibonacci-sequence-1.hope Normal file
View file

@ -0,0 +1,4 @@
dec f : num -> num;
--- f 0 <= 0;
--- f 1 <= 1;
--- f(n+2) <= f n + f(n+1);

4
Task/Fibonacci-sequence/Hope/fibonacci-sequence-2.hope Normal file
View file

@ -0,0 +1,4 @@
dec fib : num -> num;
--- fib n <= l (1, 0, n)
whererec l == \(a,b,succ c) => if c<1 then a else l((a+b),a,c)
|(a,b,0) => 0;

2
Task/Fibonacci-sequence/Hope/fibonacci-sequence-3.hope Normal file
View file

@ -0,0 +1,2 @@
dec fibs : list num;
--- fibs <= fs whererec fs == 0::1::map (+) (tail fs||fs);