RosettaCodeData/Task/Loops-For/F-Sharp/loops-for.fs

9 lines
134 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
#light
[<EntryPoint>]
let main args =
for i = 1 to 5 do
for j = 1 to i do
printf "*"
printfn ""
0