Sudan function: Difference between revisions
Content added Content deleted
(Realize in F#) |
Not a robot (talk | contribs) (Add APL) |
||
Line 106: | Line 106: | ||
F(2, 2, 1) = 27 |
F(2, 2, 1) = 27 |
||
</pre> |
</pre> |
||
=={{header|APL}}== |
|||
<syntaxhighlight lang="apl"> sudan←{ |
|||
0∨.>⍺ ⍺⍺ ⍵:'Negative input'⎕SIGNAL 11 |
|||
⍺⍺=0:⍺+⍵ |
|||
⍵=0:⍺ |
|||
tm((⍺⍺-1)∇∇)⍵+tm←⍺∇⍵-1 |
|||
}</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 0 sudan/¨ ¯1+⍳ 6 7 |
|||
0 1 2 3 4 5 6 |
|||
1 2 3 4 5 6 7 |
|||
2 3 4 5 6 7 8 |
|||
3 4 5 6 7 8 9 |
|||
4 5 6 7 8 9 10 |
|||
5 6 7 8 9 10 11 |
|||
1 sudan/¨ ¯1+⍳ 6 7 |
|||
0 1 4 11 26 57 120 |
|||
1 3 8 19 42 89 184 |
|||
2 5 12 27 58 121 248 |
|||
3 7 16 35 74 153 312 |
|||
4 9 20 43 90 185 376 |
|||
5 11 24 51 106 217 440 |
|||
1 (2 sudan) 1 |
|||
8 |
|||
1 (3 sudan) 1 |
|||
10228 |
|||
2 (2 sudan) 1 |
|||
27</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |
||
<syntaxhighlight lang="awk"> |
<syntaxhighlight lang="awk"> |