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

7 lines
122 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
coclass 'uncubicalSquares'
N=: 0
next=: 3 :0"0
while. (-: <.) 3 %: *: n=. N do. N=: N+1 end. N=: N+1
*: n
)