RosettaCodeData/Task/Generator-Exponential/J/generator-exponential-5.j

5 lines
99 B
Plaintext

mthPower=: 1 :'^&m@i.'
squares=: 2 mthPower
cubes=: 3 mthPower
uncubicalSquares=: squares -. cubes