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

11 lines
105 B
Plaintext

coclass 'mthPower'
N=: 0
create=: 3 :0
M=: y
)
next=: 3 :0
n=. N
N=: N+1
n^M
)