9 lines
219 B
Text
9 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
|