RosettaCodeData/Task/Ackermann-function/J/ackermann-function-1.j

2 lines
55 B
Plaintext

ack=: >:@]`(<:@[ $: 1:)`(<:@[ $: ($: <:))@.(,&*i.0:)M.