Taxicab numbers: Difference between revisions
Added Easylang
m (→{{header|Wren}}: Minor tidy) |
(Added Easylang) |
||
Line 1,115:
See [https://rosettacode.org/wiki/Taxicab_numbers#Pascal Pascal].
=={{header|EasyLang}}==
<syntaxhighlight>
fastfunc taxi n m .
repeat
m += 1
m3 = m * m * m
until m3 >= n / 2
p = m
repeat
p += 1
h = m3 + p * p * p
if h = n
return m
.
until h >= n
.
.
return 0
.
func part2 n m .
return floor (0.5 + pow (n - m * m * m) (1 / 3))
.
repeat
n += 1
t1 = taxi n 0
if t1 > 0
t2 = taxi n t1
if t2 > 0
cnt += 1
write n & " = "
write t1 & "³ + " & part2 n t1 & "³ = "
print t2 & "³ + " & part2 n t2 & "³"
.
.
until cnt = 25
.
</syntaxhighlight>
{{out}}
<pre>
1729 = 1³ + 12³ = 9³ + 10³
4104 = 2³ + 16³ = 9³ + 15³
13832 = 2³ + 24³ = 18³ + 20³
20683 = 10³ + 27³ = 19³ + 24³
32832 = 4³ + 32³ = 18³ + 30³
39312 = 2³ + 34³ = 15³ + 33³
40033 = 9³ + 34³ = 16³ + 33³
46683 = 3³ + 36³ = 27³ + 30³
64232 = 17³ + 39³ = 26³ + 36³
65728 = 12³ + 40³ = 31³ + 33³
110656 = 4³ + 48³ = 36³ + 40³
110808 = 6³ + 48³ = 27³ + 45³
134379 = 12³ + 51³ = 38³ + 43³
149389 = 8³ + 53³ = 29³ + 50³
165464 = 20³ + 54³ = 38³ + 48³
171288 = 17³ + 55³ = 24³ + 54³
195841 = 9³ + 58³ = 22³ + 57³
216027 = 3³ + 60³ = 22³ + 59³
216125 = 5³ + 60³ = 45³ + 50³
262656 = 8³ + 64³ = 36³ + 60³
314496 = 4³ + 68³ = 30³ + 66³
320264 = 18³ + 68³ = 32³ + 66³
327763 = 30³ + 67³ = 51³ + 58³
373464 = 6³ + 72³ = 54³ + 60³
402597 = 42³ + 69³ = 56³ + 61³
</pre>
=={{header|EchoLisp}}==
| |||