L8D · March 7, 2014 02:38
diff --git a/code-sourcer.hs b/code-sourcer.hs
 parseLine = fmap tail . break (== ' ')

 editLine = fmap f where
    f s = s ++ "^http://mtgimage.com/card/" ++ s ++ ".jpg"

 writeLine (x, y) = x ++ " " ++ y

 main = interact $ unlines
                . map ( writeLine
                      . editLine
                      . parseLine
                      )
                . lines
	parseLine = fmap tail . break (== ' ')

	editLine = fmap f where
	f s = s ++ "^http://mtgimage.com/card/" ++ s ++ ".jpg"

	writeLine (x, y) = x ++ " " ++ y

	main = interact $ unlines
	. map ( writeLine
	. editLine
	. parseLine
	)
	. lines
No results found