18 lines
361 B
Plaintext
18 lines
361 B
Plaintext
get "libhdr"
|
|
|
|
let square(x) = x * x
|
|
let cube(x) = x * x * x
|
|
|
|
let start() be
|
|
$( let c, s, seen = 1, 1, 0
|
|
while seen < 30 do
|
|
$( while cube(c) < square(s) do c := c + 1
|
|
if square(s) ~= cube(c) then
|
|
$( writed(square(s), 5)
|
|
seen := seen + 1
|
|
if seen rem 5 = 0 then wrch('*N')
|
|
$)
|
|
s := s + 1
|
|
$)
|
|
$)
|