12 lines
250 B
APL
12 lines
250 B
APL
|
lincomb←{
|
|||
|
|
fmtco←{
|
|||
|
|
mul←(⍵≠1)/(⍕|⍵),'*'
|
|||
|
|
mul,'e(',(⍕⍺),')'
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
co←⊃¨fmtco/¨(⍵≠0)/(⍳⍴,⍵),¨|⍵
|
|||
|
|
sgn←'-+'[1+(×⍵)/×⍵]
|
|||
|
|
lc←(('+'=⊃)↓⊢)∊sgn,¨co
|
|||
|
|
0=⍴lc:'0' ⋄ lc
|
|||
|
|
}
|