Data commit

Task/Display-a-linear-combination/Haskell/display-a-linear-combination-1.hs

@@ -0,0 +1,16 @@
+import Text.Printf (printf)
+
+linearForm :: [Int] -> String
+linearForm = strip . concat . zipWith term [1..]
+  where
+    term :: Int -> Int -> String
+    term i c = case c of
+      0  -> mempty
+      1  -> printf "+e(%d)" i
+      -1 -> printf "-e(%d)" i
+      c  -> printf "%+d*e(%d)" c i
+
+    strip str = case str of
+      '+':s -> s
+      ""    -> "0"
+      s     -> s

Task/Display-a-linear-combination/Haskell/display-a-linear-combination-2.hs

@@ -0,0 +1,11 @@
+coeffs :: [[Int]]
+coeffs = [ [1, 2, 3]
+         , [0, 1, 2, 3]
+         , [1, 0, 3, 4]
+         , [1, 2, 0]
+         , [0, 0, 0]
+         , [0]
+         , [1, 1, 1]
+         , [-1, -1, -1]
+         , [-1, -2, 0, -3]
+         , [-1] ]