Initial data commit

Task/Inverted-syntax/Haskell/inverted-syntax-1.hs

@@ -0,0 +1,2 @@
+when :: Monad m => m () -> Bool -> m ()
+action `when` condition = if condition then action else return ()

Task/Inverted-syntax/Haskell/inverted-syntax-2.hs

@@ -0,0 +1,2 @@
+func a b x = (x + y) / y
+  where y = a * b

Task/Inverted-syntax/Haskell/inverted-syntax-3.hs

@@ -0,0 +1,3 @@
+func a b x =
+  let y = a * b in
+    (x + y) / y

Task/Inverted-syntax/Haskell/inverted-syntax-4.hs

@@ -0,0 +1,16 @@
+import Data.Bool (bool)
+
+main :: IO ()
+main = do
+  let raining = False
+
+  putStrLn $ bool "No need" "UMBRELLA !" raining
+  putStrLn $ flip bool "No need" "UMBRELLA !" raining
+
+  putStrLn "\n--------\n"
+
+  mapM_ putStrLn $
+    [bool, flip bool]
+      <*> ["No need"]
+      <*> ["UMBRELLA !"]
+      <*> [raining, not raining]