8 lines
128 B
Haskell
8 lines
128 B
Haskell
module Part1 where
|
|
|
|
import Commons
|
|
|
|
|
|
getHashes :: [Instruction] -> [Int]
|
|
getHashes = foldr (\ h -> (:) (getHash (raw h) 0)) [0]
|