ishiy1993 · November 24, 2016 05:25
diff --git a/voyage.hs b/voyage.hs
 main = do
    ds <- lines <$> getContents
    print $ map solve ds

 solve :: String -> (String,String)
 solve str = (key, value)
    where
        key = takeWhile (/=':') str
        value = tail $ dropWhile (/=':') str
	main = do
	ds <- lines <$> getContents
	print $ map solve ds

	solve :: String -> (String,String)
	solve str = (key, value)
	where
	key = takeWhile (/=':') str
	value = tail $ dropWhile (/=':') str