Data commit

Task/Strip-block-comments/Haskell/strip-block-comments-1.hs

@@ -0,0 +1 @@
+test = "This {- is not the beginning of a block comment" -- Do your homework properly -}

Task/Strip-block-comments/Haskell/strip-block-comments-2.hs

@@ -0,0 +1,16 @@
+import Data.List
+
+stripComments :: String -> String -> String -> String
+stripComments start end = notComment
+    where notComment :: String -> String
+          notComment "" = ""
+          notComment xs
+            | start `isPrefixOf` xs = inComment $ drop (length start) xs
+            | otherwise             = head xs:(notComment $ tail xs)
+          inComment :: String -> String
+          inComment "" = ""
+          inComment xs
+            | end `isPrefixOf` xs = notComment $ drop (length end) xs
+            | otherwise           = inComment $ tail xs
+
+main = interact (stripComments "/*" "*/")