9 lines
422 B
Text
9 lines
422 B
Text
println("First 30 positive integers that are a square but not a cube:");
|
|
squareButNotCube:=(1).walker(*).tweak(fcn(n){
|
|
sq,cr := n*n, sq.toFloat().pow(1.0/3).round(); // cube root(64)<4
|
|
if(sq==cr*cr*cr) Void.Skip else sq
|
|
});
|
|
squareButNotCube.walk(30).concat(",").println("\n");
|
|
|
|
println("First 15 positive integers that are both a square and a cube:");
|
|
println((1).walker(*).tweak((1).pow.unbind().fp1(6)).walk(15));
|