12 lines
301 B
Haskell
Executable File
12 lines
301 B
Haskell
Executable File
#! /usr/bin/env stack
|
|
-- stack --resolver lts-12.20 --install-ghc script
|
|
module Main where
|
|
|
|
import Common
|
|
import Data.List (tails)
|
|
|
|
main = print $ fst $ head
|
|
$ dropWhile ((/= inputDigits) . take (length inputDigits) . snd)
|
|
$ zip [0..] $ tails $ scores ()
|
|
where inputDigits = digits input
|