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