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

7 lines
152 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
// lazy sequence of integers starting with i
let rec integers i =
seq { yield i
yield! integers (i+1) }
Seq.iter (printfn "%d") (integers 1)