travisby

 [  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

travisby

Keybase proof

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:

travisby

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

travisby

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

travisby

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))

travisby

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

travisby

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: "

travisby

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: "

travisby

Keybase proof

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 CF83 0F41 2F3C FD90 7365 F15A 0EF3 6F58 BC1A 6525

To claim this, I am signing this object:

travisby

[~]$ pr -m -t test1.c test2.c                                                                                                                                                                                   
int main() {                        int main() {
    int x;                              int x;
    if (x == 0) {                       switch (x) {
        //                                  case 0:
    } else if (x == 1) {                        break;
        //                                  case 1:
    }                                           break;
    return 0;                           }
}                                   }