day 8 formatting consistency
This commit is contained in:
parent
5fd2159be1
commit
6a31e36b72
1
8-a.hs
1
8-a.hs
|
@ -1,5 +1,4 @@
|
||||||
{-# LANGUAGE TupleSections #-}
|
{-# LANGUAGE TupleSections #-}
|
||||||
|
|
||||||
import Data.List
|
import Data.List
|
||||||
|
|
||||||
-- this is literally only a function because read is stupid
|
-- this is literally only a function because read is stupid
|
||||||
|
|
1
8-b.hs
1
8-b.hs
|
@ -1,6 +1,7 @@
|
||||||
{-# LANGUAGE TupleSections #-}
|
{-# LANGUAGE TupleSections #-}
|
||||||
import Data.List
|
import Data.List
|
||||||
|
|
||||||
|
-- this is literally only a function because read is stupid
|
||||||
parse :: String -> [[Int]]
|
parse :: String -> [[Int]]
|
||||||
parse = map (map (read . singleton)) . lines
|
parse = map (map (read . singleton)) . lines
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue