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

6
Task/Anonymous-recursion/F-Sharp/anonymous-recursion-1.fs Normal file
View file

@ -0,0 +1,6 @@
let fib = function
| n when n < 0 -> None
| n -> let rec fib2 = function
| 0 | 1 -> 1
| n -> fib2 (n-1) + fib2 (n-2)
in Some (fib2 n)

5
Task/Anonymous-recursion/F-Sharp/anonymous-recursion-2.fs Normal file
View file

@ -0,0 +1,5 @@
let rec fix f x = f (fix f) x
let fib = function
| n when n < 0 -> None
| n -> Some (fix (fun f -> (function | 0 | 1 -> 1 | n -> f (n-1) + f (n-2))) n)

2
Task/Anonymous-recursion/F-Sharp/anonymous-recursion-3.fs Normal file
View file

@ -0,0 +1,2 @@
[-1..5] |> List.map fib |> printfn "%A"
[null; Some 1; Some 1; Some 2; Some 3; Some 5; Some 8]