RosettaCodeData/Task/EKG-sequence-convergence/F-Sharp/ekg-sequence-convergence-3.fs

2 lines
73 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
prıntfn "%d" (EKG 2|>Seq.takeWhile(fun n->n<>104729) ((Seq.length n)+1)