RosettaCodeData/Task/Loops-For/SNOBOL4/loops-for-1.sno
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

6 lines
168 B
Text

ol outer = ?lt(outer,5) outer + 1 :f(end)
inner = outer; stars = ""
il stars = ?gt(inner,0) stars "*" :f(disp)
inner = inner - 1 :(il)
disp output = stars; :(ol)
end