Sudan function: Difference between revisions
Content added Content deleted
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
(Added Quackery.) |
||
Line 756: | Line 756: | ||
<pre> |
<pre> |
||
F(1,3,3) = 35 |
F(1,3,3) = 35 |
||
</pre> |
|||
=={{header|Quackery}}== |
|||
<syntaxhighlight lang="Quackery"> [ rot dup 0 = iff |
|||
[ drop + ] done |
|||
over 0 = iff |
|||
2drop done |
|||
over temp put |
|||
dup 1 - |
|||
swap 2swap 1 - |
|||
recurse |
|||
dup temp take + |
|||
recurse ] is sudan ( n x y --> f(n) ) |
|||
' [ [ 0 0 0 ] |
|||
[ 1 1 1 ] |
|||
[ 1 3 3 ] |
|||
[ 2 1 1 ] |
|||
[ 2 2 1 ] |
|||
[ 3 1 1 ] ] |
|||
witheach |
|||
[ dup echo say " = " |
|||
do sudan echo cr ]</syntaxhighlight> |
|||
{{out}} |
|||
<pre>[ 0 0 0 ] = 0 |
|||
[ 1 1 1 ] = 3 |
|||
[ 1 3 3 ] = 35 |
|||
[ 2 1 1 ] = 8 |
|||
[ 2 2 1 ] = 27 |
|||
[ 3 1 1 ] = 10228 |
|||
</pre> |
</pre> |
||