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

2
Task/Bell-numbers/F-Sharp/bell-numbers-1.fs Normal file
View file

@ -0,0 +1,2 @@
// Generate bell triangle. Nigel Galloway: July 6th., 2019
let bell=Seq.unfold(fun g->Some(g,List.scan(+) (List.last g) g))[1I]

1
Task/Bell-numbers/F-Sharp/bell-numbers-2.fs Normal file
View file

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

1
Task/Bell-numbers/F-Sharp/bell-numbers-3.fs Normal file
View file

@ -0,0 +1 @@
bell|>Seq.take 15|>Seq.iter(fun n->printf "%A " (List.head n));printfn ""

1
Task/Bell-numbers/F-Sharp/bell-numbers-4.fs Normal file
View file

@ -0,0 +1 @@
printfn "%A" (Seq.head (Seq.item 49 bell))