skatenerd

{-# LANGUAGE OverloadedStrings #-}

module DayTwelve
    ( partTwo
    ) where
import qualified Data.Maybe as M
import qualified Data.Text as T
import qualified Data.Text.IO as TI
import qualified Data.List as L
import qualified Data.List.Extra as LE

skatenerd

{-# LANGUAGE OverloadedStrings #-}

module DayTen
    ( partOne
    ) where
import qualified Data.Text as T
import qualified Data.Text.IO as TI
import qualified Data.Maybe as M
import qualified Data.List as L
import qualified Data.Set as S

skatenerd

module DayNine
    ( partOne
    ) where
import qualified Data.Text as T
import qualified Data.Text.IO as TI
import qualified Data.Maybe as M
import qualified Data.List as L
import qualified Data.Set as S
import qualified Data.List.Extra as LE

skatenerd

module DayEight
    ( partOne
    ) where
import qualified Data.Set as S
import qualified Data.List as L
import qualified Data.Text as T
import qualified Data.Text.IO as TI
import Control.Applicative

cartesianProduct a b = (,) <$> a <*> b

skatenerd

{-# LANGUAGE OverloadedStrings #-}

module DaySeven
    ( go
    ) where
import qualified Data.Text as T
import qualified Data.Text.IO as TI
import qualified Data.Maybe as M
import qualified Data.List as L
import qualified Control.Monad.State as S

skatenerd

{-# LANGUAGE OverloadedStrings #-}

module DaySix
    ( signalStart
    ) where
import qualified Data.Maybe as M
import qualified Data.List as L
import Data.Set as S

countDistinct :: (Ord a) => [a] -> Int

skatenerd

{-# LANGUAGE OverloadedStrings #-}

module DayFive
    ( partOne, partTwo
    ) where
import qualified Data.Text as T
import qualified Data.Text.IO as TI
import qualified Data.Maybe as M
import qualified Data.List as L
import qualified Control.Monad.State as S

skatenerd

module DayTwo (partOne, partTwo) where

import qualified Data.Text as T
import qualified Data.Text.IO as TI
import qualified Data.Maybe as M
import qualified Data.List as L

data Outcome = Win | Loss | Tie deriving (Eq, Show)
data Move = Rock | Paper | Scissor deriving (Eq, Show)
data Game = PartOneGame { us :: Move, them :: Move } |

skatenerd

from functools import reduce

def test(f):
    assert f([1,2,2,2,3]) == [[2,2,2]]
    assert f([1,4,4,6,3,3,3,2,5,5,5,3,1]) == [[3,3,3],[5,5,5]]
    assert f([1,2,2,2,3,2,2,2,2]) == [[2,2,2],[2,2,2,2]]

def get_from_array(array, index):
    if index < 0:
        return None

skatenerd

JSON.stringify(Object.keys(respondents).map(function(k) { return respondents[k]}))