Commit 41b58141ec207670c8da539de51ea9df20bc4629 - aoc-2018

even prettier! Haldean Brown 1 year, 7 months ago

1 changed file(s) with 3 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-1

05/Aoc05.hs less more

1	1	import Data.Char
2	2	import Data.Function
3	3
4		collapse1 (a:b:ss) = if toLower a == toLower b && a /= b then collapse1 ss else a:(collapse1 $ b:ss)
	4	collapse1 (a:b:ss)
	5	\| toLower a == toLower b && a /= b = collapse1 ss
	6	\| otherwise = a:(collapse1 $ b:ss)
5	7	collapse1 s = s
6	8	collapse s = let cs = collapse1 s in if cs == s then s else collapse cs
7	9	main = readFile "input.txt" >>= (collapse >>> length >>> subtract 1 >>> print)