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

7 lines
122 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
coclass 'uncubicalSquares'
N=: 0
next=: 3 :0"0
while. (-: <.) 3 %: *: n=. N do. N=: N+1 end. N=: N+1
*: n
)