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

2 lines
82 B
Text
Raw Permalink Normal View History

2024-10-16 18:07:41 -07:00
Ack=. 3 -~ [ ({&(2 4$'>: 2x&+') ::(,&'&1'&'2x&*'@:(-&2))"0@:[ 128!:2 ]) 3 + ]