AdventOfCode2017_Day1.fsx

open System

let part1 (input : string) : int =
    let chars = input.ToCharArray()
    chars
        |> Seq.pairwise
        |> Seq.append [(chars.[chars.Length - 1], chars.[0])]
        |> Seq.where (fun (x, y) -> x = y)
        |> Seq.sumBy (fun (x, _) -> Convert.ToInt32(Char.GetNumericValue(x)))

let part2 (input: string) : int = 
    input.ToCharArray()
        |> Seq.splitInto 2
        |> Seq.toArray
        |> fun x -> Seq.zip x.[0] x.[1]
        |> Seq.where (fun (x, y) -> x = y)
        |> Seq.sumBy (fun (x, _) -> Convert.ToInt32(Char.GetNumericValue(x)) * 2)

// Tests
(*
let sample1 = part1 "1122"
let sample2 = part1 "1111"
let sample3 = part1 "1234"
let sample4 = part1 "91212129"

let sample5 = part2 "1212"
let sample6 = part2 "1221"
let sample7 = part2 "123425"
let sample8 = part2 "123123"
let sample9 = part2 "12131415"
*)

let input = "237369991482346124663395286354672985457326865748533412179778188397835279584149971999798512279429268727171755461418974558538246429986747532417846157526523238931351898548279549456694488433438982744782258279173323381571985454236569393975735715331438256795579514159946537868358735936832487422938678194757687698143224139243151222475131337135843793611742383267186158665726927967655583875485515512626142935357421852953775733748941926983377725386196187486131337458574829848723711355929684625223564489485597564768317432893836629255273452776232319265422533449549956244791565573727762687439221862632722277129613329167189874939414298584616496839223239197277563641853746193232543222813298195169345186499866147586559781523834595683496151581546829112745533347796213673814995849156321674379644323159259131925444961296821167483628812395391533572555624159939279125341335147234653572977345582135728994395631685618135563662689854691976843435785879952751266627645653981281891643823717528757341136747881518611439246877373935758151119185587921332175189332436522732144278613486716525897262879287772969529445511736924962777262394961547579248731343245241963914775991292177151554446695134653596633433171866618541957233463548142173235821168156636824233487983766612338498874251672993917446366865832618475491341253973267556113323245113845148121546526396995991171739837147479978645166417988918289287844384513974369397974378819848552153961651881528134624869454563488858625261356763562723261767873542683796675797124322382732437235544965647934514871672522777378931524994784845817584793564974285139867972185887185987353468488155283698464226415951583138352839943621294117262483559867661596299753986347244786339543174594266422815794658477629829383461829261994591318851587963554829459353892825847978971823347219468516784857348649693185172199398234123745415271222891161175788713733444497592853221743138324235934216658323717267715318744537689459113188549896737581637879552568829548365738314593851221113932919767844137362623398623853789938824592"
let part1Result = part1 input
let part2Result = part2 input