Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions

Content added Content deleted
(Added Easylang)
Line 526: Line 526:
=={{header|EasyLang}}==
=={{header|EasyLang}}==
<syntaxhighlight>
<syntaxhighlight>
func reverse n base .
func rev n base .
while n > 0
while n > 0
r = r * base + n mod base
r = r * base + n mod base
Line 534: Line 534:
.
.
for i = 0 to 25000 - 1
for i = 0 to 25000 - 1
if reverse i 2 = i and reverse i 4 = i and reverse i 16 = i
if rev i 2 = i and rev i 4 = i and rev i 16 = i
write i & " "
write i & " "
.
.