19 lines
334 B
Text
19 lines
334 B
Text
REM >munchausen
|
|
FOR i% = 0 TO 5
|
|
FOR j% = 0 TO 5
|
|
FOR k% = 0 TO 5
|
|
FOR l% = 0 TO 5
|
|
m% = FNexp(i%) + FNexp(j%) + FNexp(k%) + FNexp(l%)
|
|
n% = 1000 * i% + 100 * j% + 10 * k% + l%
|
|
IF m% = n% AND m% > 0 THEN PRINT m%
|
|
NEXT
|
|
NEXT
|
|
NEXT
|
|
NEXT
|
|
END
|
|
:
|
|
DEF FNexp(x%)
|
|
IF x% = 0 THEN
|
|
= 0
|
|
ELSE
|
|
= x% ^ x%
|