# HG changeset patch
# User Jordi Gutiérrez Hermoso <jordigh@octave.org>
# Date 1430170093 14400
# Node ID 7bcb491ce57e556b6438ac5d51945e7d6b26c235
# Parent  d0d6e77cb4964f0a3db93dd50bbf2158972ded68
catalan: new toy

diff --git a/haskell/catalan.hs b/haskell/catalan.hs
new file mode 100644
--- /dev/null
+++ b/haskell/catalan.hs
@@ -0,0 +1,4 @@
+import Data.List
+
+catalan :: [Integer]
+catalan = 1:[sum $ zipWith (*) c (reverse c) | c <- tail.inits $ catalan]