Download code

Jump to: navigation, search

Back to Ackermann_function_(Forth)

Download for Windows: zip

Download for UNIX: zip, tar.gz, tar.bz2

input.nw

 1 <<ackermann.f>>=
 2 : ack ( n m -- a )
 3   ?dup if <<ackermann (m>0)>>
 4      else <<ackermann (m=0)>> then ;
 5 
 6 2 3 ack .   \ 29 
 7 
 8 @ text
 9 
10 <<ackermann (m=0)>>=
11 1+ @ text
12 
13 @ text
14 
15 @ text
16 
17 @ text
18 


hijacker
hijacker
hijacker
hijacker

ackermann.f

1 : ack ( n m -- a )
2   ?dup if 
3      else 1+ @ text
4  then ;
5 
6 2 3 ack .   \ 29 
7 


noweb.log

1 undefined chunk name: <<ackermann (m>0)>>