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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Left-factorials/F-Sharp/left-factorials-1.fs Normal file
View file

@ -0,0 +1,2 @@
// Generate Sequence of Left Factorials: Nigel Galloway, March 5th., 2019.
let LF=Seq.unfold(fun (Σ,n,g)->Some(Σ,(Σ+n,n*g,g+1I))) (0I,1I,1I)

1
Task/Left-factorials/F-Sharp/left-factorials-2.fs Normal file
View file

@ -0,0 +1 @@
LF |> Seq.take 11|>Seq.iter(printfn "%A")

1
Task/Left-factorials/F-Sharp/left-factorials-3.fs Normal file
View file

@ -0,0 +1 @@
LF |> Seq.skip 20 |> Seq.take 91 |> Seq.iteri(fun n g->if n%10=0 then printfn "%A" g)

1
Task/Left-factorials/F-Sharp/left-factorials-4.fs Normal file
View file

@ -0,0 +1 @@
LF |> Seq.skip 1000 |> Seq.take 9001 |> Seq.iteri(fun n g->if n%1000=0 then printfn "%d" (string g).Length)