Ackermann function: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add ABC) |
|||
Line 786: | Line 786: | ||
WRITE: / lv_result. |
WRITE: / lv_result. |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
=={{header|ABC}}== |
|||
<syntaxhighlight lang="ABC">HOW TO RETURN m ack n: |
|||
SELECT: |
|||
m=0: RETURN n+1 |
|||
m>0 AND n=0: RETURN (m-1) ack 1 |
|||
m>0 AND n>0: RETURN (m-1) ack (m ack (n-1)) |
|||
FOR m IN {0..3}: |
|||
FOR n IN {0..8}: |
|||
WRITE (m ack n)>>6 |
|||
WRITE /</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 1 2 3 4 5 6 7 8 9 |
|||
2 3 4 5 6 7 8 9 10 |
|||
3 5 7 9 11 13 15 17 19 |
|||
5 13 29 61 125 253 509 1021 2045</pre> |
|||
=={{header|Acornsoft Lisp}}== |
=={{header|Acornsoft Lisp}}== |