NK Programmeren 2004

Winnaars bonus-opgave

Uiteindelijk hebben we nog een inzending ontvangen voor de bonusvraag in opgave I: Back to Basic. Xavier van Rijnsoever van team C.A.D. uit Delft heeft een oplossing ingestuurd, die 4 tekens korter is dan de onze. De prijs hiervoor is naar hun onderweg. Hieronder volgt hun oplossing:

p = 2
PRINT p
p = p + 1
d = 2
IF p > 99 THEN END
IF d = p THEN GOTO 2
q = p / d
q = q * d
IF q = p THEN GOTO 3
d = d + 1
GOTO 6
END

We ontvingen nog een kortere inzending van Edwin Woudt uit Twente, nadat we de prijs al aan team C.A.D. hadden toegekend. Hier volgt zijn oplossing:

p = 1
p = p + 1
d = 2
IF d = p THEN PRINT p
q = p / d
q = q * d
IF q = p THEN GOTO 2
d = d + 1
IF d < 99 THEN GOTO 4
END