Munchausen numbers: Difference between revisions
→{{header|Cowgol}}
Basicgames (talk | contribs) |
|||
Line 1,000:
<pre>1
3435</pre>
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">for i = 0 to 5
for j = 0 to 5
for k = 0 to 5
for l = 0 to 5
let s = i
gosub sign
let m = int(i ^ i * s)
let s = j
gosub sign
let m = m + int(j ^ j * s)
let s = k
gosub sign
let m = m + int(k ^ k * s)
let s = l
gosub sign
let m = m + int(l ^ l * s)
let n = 1000 * i + 100 * j + 10 * k + l
if m = n and m > 0 then
print m
endif
next l
next k
next j
next i
end
sub sign
if s <> 0 then
if s < 0 then
let s = -1
else
let s = 1
endif
endif
return</syntaxhighlight>
=={{header|D}}==
| |||