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

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 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);