style: modify whitespace convention
This commit is contained in:
parent
f40862fc1e
commit
0b415a23cb
|
@ -8,7 +8,6 @@ import Utils
|
||||||
|
|
||||||
%default total
|
%default total
|
||||||
|
|
||||||
|
|
||||||
--- PARSING
|
--- PARSING
|
||||||
|
|
||||||
parseLine : String -> Maybe (Nat, Nat)
|
parseLine : String -> Maybe (Nat, Nat)
|
||||||
|
@ -18,8 +17,7 @@ parseLine str =
|
||||||
in (,) <$> parseNat n1 <*> parseNat n2
|
in (,) <$> parseNat n1 <*> parseNat n2
|
||||||
|
|
||||||
parseInput : String -> Maybe (List Nat, List Nat)
|
parseInput : String -> Maybe (List Nat, List Nat)
|
||||||
parseInput = map unzip . traverse (parseLine) . lines
|
parseInput = map unzip . traverse parseLine . lines
|
||||||
|
|
||||||
|
|
||||||
--- UTILS
|
--- UTILS
|
||||||
|
|
||||||
|
@ -27,7 +25,6 @@ distance : Nat -> Nat -> Nat
|
||||||
distance x y =
|
distance x y =
|
||||||
cast $ abs $ natToInteger x - natToInteger y
|
cast $ abs $ natToInteger x - natToInteger y
|
||||||
|
|
||||||
|
|
||||||
--- SOLUTION
|
--- SOLUTION
|
||||||
|
|
||||||
export
|
export
|
||||||
|
|
Loading…
Reference in a new issue