10 lines
219 B
Text
10 lines
219 B
Text
|
procedure noncubesquares() #: filter for squares that aren't cubes
|
||
|
|
cu := create mthpower(3)
|
||
|
|
c := @cu
|
||
|
|
every s := mthpower(2) do{
|
||
|
|
if s > c then c := @cu
|
||
|
|
if s == c then next
|
||
|
|
suspend s
|
||
|
|
}
|
||
|
|
end
|