sln_2016_23

Copyright	(c) Eric Mertens 2021
License	ISC
Maintainer	emertens@gmail.com
Safe Haskell	None
Language	Haskell2010

Main

Description

https://adventofcode.com/2016/day/23

Synopsis

data Inst
- = Copy Value !Register
- | Inc !Register
- | Dec !Register
- | Jnz Value Value
- | Tgl Value
data Machine = Machine {
- _machRegisters :: !Registers
- _machProgram :: !(Vector Inst)
}
machProgram :: Lens' Machine (Vector Inst)
machRegisters :: Lens' Machine Registers
main :: IO ()
pInst :: P Inst
execute :: Vector Inst -> Int -> Int

Documentation

data Inst Source #

Constructors

Copy Value !Register
Inc !Register
Dec !Register
Jnz Value Value
Tgl Value

Instances

Instances details

Show Inst Source #
Instance details Defined in Main Methods showsPrec :: Int -> Inst -> ShowS # show :: Inst -> String # showList :: [Inst] -> ShowS #

data Machine Source #

Constructors

Machine
Fields _machRegisters :: !Registers _machProgram :: !(Vector Inst)

Instances

Instances details

HasRegisters Machine Source #
Instance details Defined in Main Methods reg :: Functor f => Register -> LensLike' f Machine Int #

machProgram :: Lens' Machine (Vector Inst) Source #

machRegisters :: Lens' Machine Registers Source #

main :: IO () Source #

>>> :main
13050
479009610

pInst :: P Inst Source #

execute :: Vector Inst -> Int -> Int Source #