8 lines
155 B
APL
8 lines
155 B
APL
|
lagarias←{
|
|||
|
|
⍵<0:-∇-⍵
|
|||
|
|
⍵∊0 1:0
|
|||
|
|
0=d←⊃1+⍸0=(1↓⍳⌊⍵*÷2)|⍵:1
|
|||
|
|
(n×∇d)+d×∇n←⍵÷d
|
|||
|
|
}
|
|||
|
|
lagarias¨ 20 10⍴¯100+⍳200
|