RosettaCodeData/Task/Loops-Infinite/F-Sharp/loops-infinite.fs
2023-07-01 13:44:08 -04:00

8 lines
142 B
FSharp

// Imperative Solution
while true do
printfn "SPAM"
// Functional solution
let rec forever () : unit =
printfn "SPAM"
forever ()