Sudan function: Difference between revisions
Add BQN
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add BQN) |
||
Line 349:
sudan( 3, 1, 1) = 10228</pre>
=={{header|BQN}}==
<syntaxhighlight lang="bqn">_sudan←{
x 0 _𝕣 y: x + y;
x n _𝕣 0: x;
x n _𝕣 y: k (n-1)_𝕣 y+k←x𝕊y-1
}
•Show "⍉(↕7) 0 _sudan⌜ ↕6:"
•Show ⍉(↕7) 0 _sudan⌜ ↕6
•Show "⍉(↕7) 1 _sudan⌜ ↕6:"
•Show ⍉(↕7) 1 _sudan⌜ ↕6
•Show "1 2 _sudan 1: "∾•Fmt 1 2 _sudan 1
•Show "2 2 _sudan 1: "∾•Fmt 2 2 _sudan 1
•Show "1 3 _sudan 1: "∾•Fmt 1 3 _sudan 1</syntaxhighlight>
{{out}}
<pre>"⍉(↕7) 0 _sudan⌜ ↕6:"
┌─
╵ 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
┘
"⍉(↕7) 1 _sudan⌜ ↕6:"
┌─
╵ 0 1 2 3 4 5 6
1 3 5 7 9 11 13
4 8 12 16 20 24 28
11 19 27 35 43 51 59
26 42 58 74 90 106 122
57 89 121 153 185 217 249
┘
"1 2 _sudan 1: 8"
"2 2 _sudan 1: 27"
"1 3 _sudan 1: 10228"</pre>
=={{header|C}}==
{{trans|Javascript}}
| |||