Data update

Task/Catalan-numbers/Haskell/catalan-numbers-1.hs

@@ -0,0 +1,9 @@
+infixl 7 *.
+(*.) :: Num a => a -> [a] -> [a]
+x *. (p:ps) = x*p : x*.ps
+
+instance Num a => Num [a] where
+    negate = map negate
+    (+) = zipWith (+)
+    (*) (p:ps) (q:qs) = p*q : ((p*.qs) + ps*(q:qs))
+    fromInteger n = fromInteger n:repeat 0

Task/Catalan-numbers/Haskell/catalan-numbers-2.hs

@@ -0,0 +1,2 @@
+catalan :: [Integer]
+catalan = 1 : catalan^2

Task/Catalan-numbers/Haskell/catalan-numbers-3.hs

@@ -0,0 +1,2 @@
+ghci> take 15 catalan
+[1,1,2,5,14,42,132,429,1430,4862,16796,58786,208012,742900,2674440]