Commit 57ec7e1

committed

less gratuitious lens

1 parent b8d7ef8 commit 57ec7e1Copy full SHA for 57ec7e1

File tree

-3

lines changed

-3

lines changed

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@ module AOC2017.Day23 (day23a, day23b, parse) where`
`3`	`3`	`import AOC2017.Types (Challenge)`
`4`	`4`	`import AOC2017.Util.Tape (Tape(..), HasTape(..), unsafeTape, move)`
`5`	`5`	`import Control.Applicative (many)`
`6`		`-import Control.Lens (set, view, use, at, non, _last, forMOf_, Iso', iso)`
	`6`	`+import Control.Lens (set, use, at, non, _last, forMOf_, Iso', iso)`
`7`	`7`	`import Control.Lens.Operators ((.=), (%=))`
`8`	`8`	`import Control.Lens.TH (makeClassy, makePrisms)`
`9`	`9`	`import Control.Lens.Tuple (_1, _2, _3)`
`@@ -47,7 +47,7 @@ parse = map parseOp . lines`
`47`	`47`
`48`	`48`	`-- \| Replaces the two inner oops with a simple prime check`
`49`	`49`	`optimize :: [Op] -> [Op]`
`50`		`-optimize = set (_last . _OJmp . _3) (-7)`
	`50`	`+optimize = set (_last . _OJmp . _3) (-7)`
`51`	`51`	`. set (splot 8 . _2 . splot 17 . _1) [parseOp "jpm b 2"]`
`52`	`52`	`where`
`53`	`53`	`-- split by prefix and suffx`
`@@ -95,7 +95,7 @@ day23a = show . getSum . snd`
`95`	`95`	`. parse`
`96`	`96`
`97`	`97`	`day23b :: Challenge`
`98`		`-day23b = show . view (_1 . _2 . psRegs . at 'h'. non 0)`
	`98`	`+day23b = show . M.findWithDefault 0'h'. _psRegs . snd.fst`
`99`	`99`	`. runTapeProg (many stepTape)`
`100`	`100`	. (`PS` M.singleton 'a' 1) . unsafeTape
`101`	`101`	`. optimize . parse`

Comments

(0)