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: