Sudan function: Difference between revisions
Add APL
(Realize in F#) |
Not a robot (talk | contribs) (Add APL) |
||
Line 106:
F(2, 2, 1) = 27
</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}}==
<syntaxhighlight lang="awk">
| |||