Data update

2024-07-13 15:19:22 -07:00 · 2024-07-13 15:19:22 -07:00 · 5c1bb7bfa9
commit 5c1bb7bfa9
parent 29a5eea0d4
2011 changed files with 35081 additions and 3229 deletions
--- a/Task/Display-a-linear-combination/APL/display-a-linear-combination.apl
+++ b/Task/Display-a-linear-combination/APL/display-a-linear-combination.apl
@ -0,0 +1,11 @@
+ lincomb←{
+    fmtco←{
+        mul←(⍵≠1)/(⍕|⍵),'*'
+        mul,'e(',(⍕⍺),')'
+    }
+
+    co←⊃¨fmtco/¨(⍵≠0)/(⍳⍴,⍵),¨|⍵
+    sgn←'-+'[1+(×⍵)/×⍵]
+    lc←(('+'=⊃)↓⊢)∊sgn,¨co
+    0=⍴lc:'0' ⋄ lc
+ }