I hereby claim:
- I am travisby on github.
- I am travisby (https://keybase.io/travisby) on keybase.
- I have a public key whose fingerprint is C850 B893 86CC 16A2 747C 56BB B207 ED48 5C38 E0CC
To claim this, I am signing this object:
| {"skb":"0xffff516bc8bf4e00","process":"<empty>:0","func":"0xffffa77dbbd5e630","caller_func":"kprobe_insn_page[__builtin__kprobes]","time":0,"netns":4026531840,"iface":"end0:4","proto":2054,"mtu":1500,"len":46,"cb":[0,0,0,0,0],"tuple":{},"stack":"\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page[__builtin__kprobes]\nkprobe_insn_page |
| [ 0.008s] [<background page>.GoogleSmartCard.ConnectorApp.BackgroundMain] [INFO] The Smart Card Connector app (id "abcgpdfdfdkhhcheomjombggpbdbgiao", version 1.2.22.0) background script started. Browser version: "5.0 (X11; Fedora; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/75.0.3770.100 Safari/537.36". System time: "7/31/2019, 7:43:39 AM" | |
| [ 0.009s] [<background page>.GoogleSmartCard.NaclModule<"nacl_module.nmf">] [FINE] Preparing NaCl embed (MIME type: "application/x-pnacl")... | |
| [ 0.011s] [<background page>.GoogleSmartCard.NaclModule<"nacl_module.nmf">] [FINE] Initialized | |
| [ 0.012s] [<background page>.GoogleSmartCard.PcscLiteServerClientsManagement.ReadinessTracker] [FINE] Waiting for the "pcsc_lite_ready" message from the NaCl module... | |
| [ 0.013s] [<background page>.GoogleSmartCard.MessageChannelPool] [FINE] Initialized successfully | |
| [ 0.014s] [<background page>.GoogleSmartCard.PcscLiteServerClientsManagement.PermissionsChecking.ManagedRegistry] [FINE] Loading managed storage data wi |
I hereby claim:
To claim this, I am signing this object:
| import Text.Read | |
| import Data.Maybe | |
| import Data.List.Split | |
| import Data.Set hiding (map, foldl) | |
| -- S is straight | |
| -- we need S for when we break all of the instructions into length=1 vectors, to support | |
| -- intermediary steps | |
| data Direction = L | R | S deriving (Show, Eq) | |
| data Instruction = Instruction { turnDirection :: Direction, distance :: Int } deriving Show |
| data Action = On | Off | Toggle deriving (Show, Eq) | |
| data Rectangle = Rectangle Point Point deriving Show | |
| data Point = Point Int Int deriving Show | |
| -- strToInstruction :: String -> Maybe Instruction | |
| -- strToInstruction ('t':'u':'r':'n':' ':'o':'n':xs) = Just (Instruction On (strToRectangle xs)) | |
| -- strToInstruction ('t':'u':'r':'n':' ':'o':'f':'f':' ':xs) = Just (Instruction Off (strToRectangle xs)) | |
| -- strToInstruction ('t':'o':'g':'g':'l':'e':' ': xs) = Just (Instruction Toggle (strToRectangle xs)) | |
| -- strToInstruction x = trace x Nothing |
| module Main where | |
| import Data.List | |
| import Debug.Trace | |
| main = do | |
| input <- getContents | |
| let xs = lines input | |
| putStr "Old rules: " | |
| print (length (filter (allPredicates [atLeastNVowels 3, repeats, not . containsBlacklistedPhrase]) xs)) |
| module Main where | |
| import Data.Hash.MD5 | |
| main = do | |
| input <- getContents | |
| let key = init input | |
| let firstResult = head . filter (isAdventCoin key 5) $ [1..] | |
| putStr "00000...: " | |
| print firstResult |
| module Main where | |
| import Data.Maybe | |
| import Data.List | |
| main = do | |
| content <- getContents | |
| -- get rid of \n | |
| let c = init content | |
| putStr "Single Santa traveled: " |
| module Main where | |
| import Data.Maybe | |
| import Data.List | |
| main = do | |
| content <- getContents | |
| let boxes = map (fromJust . strToBox) $ lines content | |
| putStr "Paper: " | |
| print . sum . map boxToPaper $ boxes | |
| putStr "Ribbon: " |
I hereby claim:
To claim this, I am signing this object: