P Witte wrote, on 26/Nov/10 19:34 | Nov26:
Marcel Kilgus wrote:
Tony Firshman wrote:
I obeyed the rules (8-)#
Maybe, but that is more creativity in applying the rules than
creativity in programming. You clearly have chosen the wrong career,
you should have been a lawyer ;)
... and there is nothing to say the program has to be run more than
once.
I did considering initialising and it would still have been under 89.
And yet I still don't think your entry is valid ;-)
Otherwise my new entry is this:
1a
a is machine code function loaded beforehand that prints out the
values 1 to 100 on screen and writes FIZZ if the value is divisible by
3 and BUZZ if the value is divisible by 5. Surely the rules didn't say
anything about only using inbuilt commands ;-)
I bet theres a built-in command in perl called FUZZBUZZ (with 1a as a
common ailias) I knew it would get down to semantics in the end. But I
agree: Tony's cheating ;o)
Anyway, just for the sake of a tidy reputation: I found some more
unnecessary fat to trim:
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
113b
Ok, if fancy formatting is not a requirement then Im raising your 91 to:
1for i=1to 100:print i,:if i mod 3=0:print'FIZZ';:endif:if i mod
5=0:print'BUZZ'
81b !
I don't agree I cheated - I obeyed the rules (8-)#
In your program there is no line break if no BUZZ.
What a pity SB does not have .= operator.
Tony
--
QBBS (QL fido BBS 2:257/67) +44(0)1442-828255
t...@firshman.co.uk http://firshman.co.uk
Voice: +44(0)1442-828254 Fax: +44(0)1442-828255 Skype: tonyfirshman
TF Services, 29 Longfield Road, TRING, Herts, HP23 4DG
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
