RosettaCodeData/Task/Integer-sequence/F-Sharp/integer-sequence-4.fs

3 lines
95 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let inline numbers n =
Seq.unfold (fun n -> Some (n, n + LanguagePrimitives.GenericOne)) n