From bef7b6d2e9c85f53aa646ab4d59bb52214406536 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Wed, 12 May 2021 15:48:00 +0100
Subject: - Added Haskell solution by Ulrich Rieke.

---
 challenge-112/ulrich-rieke/haskell/ch-2.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 challenge-112/ulrich-rieke/haskell/ch-2.hs

diff --git a/challenge-112/ulrich-rieke/haskell/ch-2.hs b/challenge-112/ulrich-rieke/haskell/ch-2.hs
new file mode 100644
index 0000000000..9c935587e8
--- /dev/null
+++ b/challenge-112/ulrich-rieke/haskell/ch-2.hs
@@ -0,0 +1,8 @@
+module Challenge112
+  where
+import Data.List ( permutations , nub )
+
+stepcounter :: Int -> Int
+stepcounter n =  length $ concat $ map (nub . permutations)  [ replicate t 1 ++
+  replicate o 2 | t <- [0 .. n] , o <- [0 .. div n 2] , sum ( replicate t 1 ++
+  replicate o 2  ) == n]
-- 
cgit