10 lines
271 B
Text
10 lines
271 B
Text
forward is ackermann ( m n --> r )
|
|
[ over 0 = iff
|
|
[ nip 1 + ] done
|
|
dup 0 = iff
|
|
[ drop 1 - 1
|
|
ackermann ] done
|
|
over 1 - unrot 1 -
|
|
ackermann ackermann ] resolves ackermann ( m n --> r )
|
|
|
|
3 10 ackermann echo
|