joncol

type HashTable s k v = C.HashTable s k v

type Stone = Int

type Memo s = HashTable s (Stone, Int) Int

solvePart2 :: BS.ByteString -> Result
solvePart2 contents =
  Result $ runST $ do
    memo :: Memo s <- H.new

joncol

import itertools


program = [2, 4, 1, 3, 7, 5, 0, 3, 1, 5, 4, 1, 5, 5, 3, 0]
rp = list(reversed(program))


def calc(ta):
    b = (ta & 0b111) ^ 0b011  # Look at the 3 rightmost bits of "ta"
    c = (

joncol

module Main (main) where

import Control.Exception (bracket, bracket_)
import Control.Monad (unless, when)
import Control.Monad.IO.Class ()
import Control.Monad.Managed
import DearImGui
import DearImGui.OpenGL3
import DearImGui.SDL
import DearImGui.SDL.Renderer

joncol

main :: IO ()
main = do
  evalContT $ do
    a <- ContT $ withFile "a.txt" ReadMode
    b <- ContT $ withFile "b.txt" ReadMode
    aContents <- liftIO $ hGetContents a
    bContents <- liftIO $ hGetContents b
    liftIO . putStrLn $ "contents of a: " <> show aContents
    liftIO . putStrLn $ "contents of b: " <> show bContents