Initial data commit

Task/FASTA-format/Haskell/fasta-format-1.hs

@@ -0,0 +1,17 @@
+import Data.List ( groupBy )
+
+parseFasta :: FilePath -> IO ()
+parseFasta fileName = do
+  file <- readFile fileName
+  let pairedFasta = readFasta $ lines file
+  mapM_ (\(name, code) -> putStrLn $ name ++ ": " ++ code) pairedFasta
+
+readFasta :: [String] -> [(String, String)]
+readFasta = pair . map concat . groupBy (\x y -> notName x && notName y)
+ where
+  notName :: String -> Bool
+  notName = (/=) '>' . head
+
+  pair :: [String] -> [(String, String)]
+  pair []           = []
+  pair (x : y : xs) = (drop 1 x, y) : pair xs