yogsototh/adventofcode
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add strictness to be faster...

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2017-12-14 21:48:11 +01:00
parent 1267845646
commit 7df7ede422
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Day10.hs
View file

@ -1,5 +1,6 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE Strict #-}
{-| {-|
description: description:
@ -145,9 +146,9 @@ import Protolude
import Data.Char (chr, ord) import Data.Char (chr, ord)
import Data.List (foldl1') import Data.List (foldl1')
import qualified Data.Map.Strict as Map import qualified Data.Map.Strict as Map
import qualified Data.Text as T
import Numeric (showHex) import Numeric (showHex)
import Text.Parsec import Text.Parsec
import qualified Data.Text as T
testInput :: AppState testInput :: AppState
testInput = mkAppState 5 [3,4,1,5] testInput = mkAppState 5 [3,4,1,5]