RosettaCodeData/Task/Loops-Do-while/F-Sharp/loops-do-while-2.fs

2 lines
95 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Seq.initInfinite id |> Seq.takeWhile(fun n->n=0 || n%6>0) |> Seq.iter (fun n-> printfn "%d" n)