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:
[ 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:
[~]$ 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; } | |
} } |