Skip to content

Instantly share code, notes, and snippets.

@mathias-brandewinder
Created January 7, 2018 20:09
Show Gist options
  • Save mathias-brandewinder/5ad45346b6a992d67752e54d95f61f2e to your computer and use it in GitHub Desktop.
Save mathias-brandewinder/5ad45346b6a992d67752e54d95f61f2e to your computer and use it in GitHub Desktop.
Advent of Code 2017
module part1 =
let captcha (input:string) =
let len = input.Length
let circular i = i % len
input
|> Seq.toArray
|> Array.fold (fun (index,count) x ->
index + 1,
if x = input.[circular (index + 1)]
then count + (int x - int '0')
else count
) (0,0)
|> snd
captcha "1122" = 3
captcha "1111" = 4
captcha "1234" = 0
captcha "91212129" = 9
captcha "8231753674683997878179259195565332579493378483264978184143341284379682788518559178822225126625428318115396632681141871952894291898364781898929292614792884883249356728741993224889167928232261325123447569829932951268292953928766755779761837993812528527484487298117739869189415599461746944992651752768158611996715467871381527675219481185217357632445748912726487669881876129192932995282777848496561259839781188719233951619188388532698519298142112853776942545211859134185231768952888462471642851588368445761489225786919778983848113833773768236969923939838755997989537648222217996381757542964844337285428654375499359997792679256881378967852376848812795761118139288152799921176874256377615952758268844139579622754965461884862647423491918913628848748756595463191585555385849335742224855473769411212376446591654846168189278959857681336724221434846946124915271196433144335482787432683848594487648477532498952572515118864475621828118274911298396748213136426357769991314661642612786847135485969889237193822718111269561741563479116832364485724716242176288642371849569664594194674763319687735723517614962575592111286177553435651952853878775431234327919595595658641534765455489561934548474291254387229751472883423413196845162752716925199866591883313638846474321161569892518574346226751366315311145777448781862222126923449311838564685882695889397531413937666673233451216968414288135984394249684886554812761191289485457945866524228415191549168557957633386991931186773843869999284468773866221976873998168818944399661463963658784821796272987155278195355579386768156718813624559264574836134419725187881514665834441359644955768658663278765363789664721736533517774292478192143934318399418188298753351815388561359528533778996296279366394386455544446922653976725113889842749182361253582433319351193862788433113852782596161148992233558144692913791714859516653421917841295749163469751479835492713392861519993791967927773114713888458982796514977717987598165486967786989991998142488631168697963816156374216224386193941566358543266646516247854435356941566492841213424915682394928959116411457967897614457497279472661229548612777155998358618945222326558176486944695689777438164612198225816646583996426313832539918"
module part2 =
let captcha (input:string) =
let len = input.Length
let half = len / 2
let circular i = (i + half) % len
input
|> Seq.toArray
|> Array.fold (fun (index,count) x ->
index + 1,
if x = input.[circular index]
then count + (int x - int '0')
else count
) (0,0)
|> snd
captcha "1212" = 6
captcha "1221" = 0
captcha "123425" = 4
captcha "123123" = 12
captcha "12131415" = 4
captcha "8231753674683997878179259195565332579493378483264978184143341284379682788518559178822225126625428318115396632681141871952894291898364781898929292614792884883249356728741993224889167928232261325123447569829932951268292953928766755779761837993812528527484487298117739869189415599461746944992651752768158611996715467871381527675219481185217357632445748912726487669881876129192932995282777848496561259839781188719233951619188388532698519298142112853776942545211859134185231768952888462471642851588368445761489225786919778983848113833773768236969923939838755997989537648222217996381757542964844337285428654375499359997792679256881378967852376848812795761118139288152799921176874256377615952758268844139579622754965461884862647423491918913628848748756595463191585555385849335742224855473769411212376446591654846168189278959857681336724221434846946124915271196433144335482787432683848594487648477532498952572515118864475621828118274911298396748213136426357769991314661642612786847135485969889237193822718111269561741563479116832364485724716242176288642371849569664594194674763319687735723517614962575592111286177553435651952853878775431234327919595595658641534765455489561934548474291254387229751472883423413196845162752716925199866591883313638846474321161569892518574346226751366315311145777448781862222126923449311838564685882695889397531413937666673233451216968414288135984394249684886554812761191289485457945866524228415191549168557957633386991931186773843869999284468773866221976873998168818944399661463963658784821796272987155278195355579386768156718813624559264574836134419725187881514665834441359644955768658663278765363789664721736533517774292478192143934318399418188298753351815388561359528533778996296279366394386455544446922653976725113889842749182361253582433319351193862788433113852782596161148992233558144692913791714859516653421917841295749163469751479835492713392861519993791967927773114713888458982796514977717987598165486967786989991998142488631168697963816156374216224386193941566358543266646516247854435356941566492841213424915682394928959116411457967897614457497279472661229548612777155998358618945222326558176486944695689777438164612198225816646583996426313832539918"
module Day2 =
open System
open System.IO
File.ReadAllText (__SOURCE_DIRECTORY__ + "/Day2Data") |> Seq.map (fun x -> sprintf " %i" (int x)) |> Seq.toArray
let checkrow (row:string) =
let values =
row.Split (char 9)
|> Seq.map (fun x -> int x - int '0')
let min = Seq.min values
let max = Seq.max values
max - min
let checksum (data:string) =
data.Split (char 13) |> Seq.sumBy checkrow
let test = "5 1 9 5
7 5 3
2 4 6 8"
test |> checksum
let challenge = "414 382 1515 319 83 1327 116 391 101 749 1388 1046 1427 105 1341 1590
960 930 192 147 932 621 1139 198 865 820 597 165 232 417 19 183
3379 987 190 3844 1245 1503 3151 3349 2844 4033 175 3625 3565 179 3938 184
116 51 32 155 102 92 65 42 48 91 74 69 52 89 20 143
221 781 819 121 821 839 95 117 626 127 559 803 779 543 44 369
199 2556 93 1101 122 124 2714 625 2432 1839 2700 2636 118 2306 1616 2799
56 804 52 881 1409 47 246 1368 1371 583 49 1352 976 400 1276 1240
1189 73 148 1089 93 76 3205 3440 3627 92 853 95 3314 3551 2929 3626
702 169 492 167 712 488 357 414 187 278 87 150 19 818 178 686
140 2220 1961 1014 2204 2173 1513 2225 443 123 148 580 833 1473 137 245
662 213 1234 199 1353 1358 1408 235 917 1395 1347 194 565 179 768 650
119 137 1908 1324 1085 661 1557 1661 1828 1865 432 110 658 821 1740 145
1594 222 4140 963 209 2782 180 2591 4390 244 4328 3748 4535 192 157 3817
334 275 395 128 347 118 353 281 430 156 312 386 160 194 63 141
146 1116 153 815 2212 2070 599 3018 2640 47 125 2292 165 2348 2694 184
1704 2194 1753 146 2063 1668 1280 615 163 190 2269 1856 150 158 2250 2459"
File.ReadAllText (__SOURCE_DIRECTORY__ + "/Day2Data") |> checksum
module Day3 =
open System
open System.IO
File.ReadAllText (__SOURCE_DIRECTORY__ + "/Day2Data") |> Seq.map (fun x -> sprintf " %i" (int x)) |> Seq.toArray
let checkrow (row:string) =
let values =
row.Split (char 9)
|> Seq.map (fun x -> int x - int '0')
let min = Seq.min values
let max = Seq.max values
max - min
let checksum (data:string) =
data.Split (char 13) |> Seq.sumBy checkrow
let test = "5 1 9 5
7 5 3
2 4 6 8"
test |> checksum
let challenge = "414 382 1515 319 83 1327 116 391 101 749 1388 1046 1427 105 1341 1590
960 930 192 147 932 621 1139 198 865 820 597 165 232 417 19 183
3379 987 190 3844 1245 1503 3151 3349 2844 4033 175 3625 3565 179 3938 184
116 51 32 155 102 92 65 42 48 91 74 69 52 89 20 143
221 781 819 121 821 839 95 117 626 127 559 803 779 543 44 369
199 2556 93 1101 122 124 2714 625 2432 1839 2700 2636 118 2306 1616 2799
56 804 52 881 1409 47 246 1368 1371 583 49 1352 976 400 1276 1240
1189 73 148 1089 93 76 3205 3440 3627 92 853 95 3314 3551 2929 3626
702 169 492 167 712 488 357 414 187 278 87 150 19 818 178 686
140 2220 1961 1014 2204 2173 1513 2225 443 123 148 580 833 1473 137 245
662 213 1234 199 1353 1358 1408 235 917 1395 1347 194 565 179 768 650
119 137 1908 1324 1085 661 1557 1661 1828 1865 432 110 658 821 1740 145
1594 222 4140 963 209 2782 180 2591 4390 244 4328 3748 4535 192 157 3817
334 275 395 128 347 118 353 281 430 156 312 386 160 194 63 141
146 1116 153 815 2212 2070 599 3018 2640 47 125 2292 165 2348 2694 184
1704 2194 1753 146 2063 1668 1280 615 163 190 2269 1856 150 158 2250 2459"
File.ReadAllText (__SOURCE_DIRECTORY__ + "/Day2Data") |> checksum
module Day4 =
open System
open System.IO
let data =
File.ReadAllLines "Day04Data"
|> Array.map (fun line -> line.Split ' ')
|> Array.filter (fun line -> line.Length = (set line |> Set.count))
|> Array.length
module Day5 =
type State =
{
Position:int
Instructions:int[]
}
let move (state:State) =
let step = state.Instructions.[state.Position]
let inst = state.Instructions |> Array.copy
inst.[state.Position] <- step + 1
let pos = state.Position + step
{ Position = pos; Instructions = inst }
let init = {
Position = 0
Instructions = [| 0;3;0;1;-3 |]
}
let rec solve count state =
if state.Position >= state.Instructions.Length
then count
else
solve (count + 1) (move state)
solve 0 init
open System
open System.IO
let problem = File.ReadAllLines "Day05Data" |> Array.map int
solve 0 { Position = 0; Instructions = problem }
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment