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

3 lines
95 B
Forth

let inline numbers n =
Seq.unfold (fun n -> Some (n, n + LanguagePrimitives.GenericOne)) n