P Witte wrote: > Just had another look: Is this the shortest possible version? > > 1defproc z:if i mod 3=0:print'FIZZ';:endif:if i mod > 5=0:print'BUZZ';:endif:print:enddef:for i=1to 100:print i,:z:endfor i > > Thats all one line. It should result in a file of 122b including eol. > Once LOADed it expands, of course, and should parse on JS, Minerva and > SMSQ/E.
I'll raise you an 1for i=1to 100:a$="":if i mod 3=0:a$="FIZZ":endif:if i mod 5=0:a$=a$&"BUZZ":endif:print i,a$ (93 bytes including LF) or 1for i=1to 100 2a$="":if i mod 3=0:a$="FIZZ" 3if i mod 5=0:a$=a$&"BUZZ" 4print i,a$:next i (91 bytes including 4 LF) Marcel _______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
