Rosetta Code

Munchausen numbers: Difference between revisions

Page Discussion

Munchausen numbers (view source)

Revision as of 05:55, 14 June 2023

221 bytes removed ,  11 months ago
→‎{{header|Craft Basic}}
Line 1,010:
for l = 0 to 5
 
let sm = int(i ^ i * sgn(i))
let m = m + int(j ^ j * ssgn(j))▼
gosub sign
let m = m + int(ik ^ ik * ssgn(k))
let m = m + int(l ^ l * ssgn(l))▼
 
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
Line 1,033 ⟶ 1,022:
 
endif
 
wait
 
Line 1,044 ⟶ 1,033:
next i
 
returnend</syntaxhighlight>▼
end
 
sub sign
 
if s <> 0 then
 
if s < 0 then
 
let s = -1
 
else
 
let s = 1
 
endif
 
endif
 
▲return</syntaxhighlight>
 
=={{header|D}}==
Basicgames
305

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/344894"