7 lines
148 B
APL
7 lines
148 B
APL
|
sudan←{
|
|||
|
|
0∨.>⍺ ⍺⍺ ⍵:'Negative input'⎕SIGNAL 11
|
|||
|
|
⍺⍺=0:⍺+⍵
|
|||
|
|
⍵=0:⍺
|
|||
|
|
tm((⍺⍺-1)∇∇)⍵+tm←⍺∇⍵-1
|
|||
|
|
}
|