RosettaCodeData/Task/Loops-For/SNOBOL4/loops-for-1.sno

7 lines
168 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
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