RosettaCodeData/Task/Factorial/SNOBOL4/factorial-4.sno
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

3 lines
102 B
Text

loop i = le(i,10) i + 1 :f(end)
output = rfact(i) ' ' trfact(i,1) ' ' ifact(i) :(loop)
end