Sudan function: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add BQN) |
||
Line 349: | Line 349: | ||
sudan( 3, 1, 1) = 10228</pre> |
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}}== |
=={{header|C}}== |
||
{{trans|Javascript}} |
{{trans|Javascript}} |