Initial data commit

Task/Man-or-boy-test/Haskell/man-or-boy-test.hs

@@ -0,0 +1,20 @@
+import Data.IORef (modifyIORef, newIORef, readIORef)
+
+a
+  :: (Enum a, Num b, Num a, Ord a)
+  => a -> IO b -> IO b -> IO b -> IO b -> IO b -> IO b
+a k x1 x2 x3 x4 x5 = do
+  r <- newIORef k
+  let b = do
+        k <- pred ! r
+        a k b x1 x2 x3 x4
+  if k <= 0
+    then (+) <$> x4 <*> x5
+    else b
+  where
+    f !r = modifyIORef r f >> readIORef r
+
+main :: IO ()
+main = a 10 # 1 # (-1) # (-1) # 1 # 0 >>= print
+  where
+    ( # ) f = f . return