16 lines
389 B
BQN
16 lines
389 B
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
|