day06

3 files changed, 1071 insertions, 0 deletions

diff --git a/day06 b/day06
new file mode 100644
index 0000000..cf851bc
--- /dev/null
+++ b/day06
@@ -0,0 +1,1035 @@
+LH2)LD6
+SSV)S13
+G9G)LNJ
+XN6)BNR
+D8D)K4S
+7ZK)C14
+6VH)FRD
+N1T)DPN
+2TN)43C
+VQ9)YJR
+JXH)5BL
+FPY)WCM
+VFX)PJC
+182)1GK
+PN1)2KN
+K3N)3HR
+VBB)4XX
+PMC)NW3
+P8H)6DB
+ZCY)2XH
+8HH)WPM
+3VL)NTH
+C39)NNH
+79Z)JZW
+Z1V)9RT
+PFW)KV5
+RG5)9F2
+99C)PTG
+RNK)GBZ
+L1L)TZH
+KS5)FFF
+PY4)NHN
+H9Z)K35
+8FX)4NL
+HYD)27S
+XB3)8TG
+PFF)JNG
+LRM)7ZK
+SH2)MTD
+GH8)H7M
+D86)Q5V
+5RC)RXC
+WNM)D6F
+7K2)8HM
+3P1)9JN
+KV5)LVR
+N4J)F4L
+JRS)ZNS
+5BL)MWB
+FDJ)BFY
+JB5)XQ3
+SZ8)J6F
+3D1)WW4
+TYZ)54J
+NJT)NRC
+YVK)SCV
+TYG)SK3
+PLM)P6B
+NS5)Z2K
+NW3)3P3
+NY5)L74
+2RR)RG5
+RDY)3X6
+Q4S)977
+TS5)XL4
+S6M)1CD
+2X8)VDS
+2D3)R4G
+1YX)PWR
+P6B)4DY
+PNW)KR4
+T3B)XCG
+HR8)B4R
+R76)JH1
+C1G)Z47
+CZJ)4H4
+663)538
+WSX)KCF
+NRR)CNN
+CK1)BHW
+DN1)72S
+XLQ)H1S
+6ZC)KKY
+FRD)NRR
+R9J)24N
+NSP)8GG
+7KD)CSN
+FMJ)21F
+JNZ)X4P
+D7J)MGX
+MBF)VQ9
+PJG)34G
+M5Q)WNM
+KYL)RDY
+DKT)9CK
+XVN)WJM
+13W)MHB
+MLH)1F7
+977)4JW
+Z7Y)5CN
+XRS)3SN
+8ZH)CTW
+L4D)RNQ
+PDM)NZD
+N4N)938
+45K)RGS
+6NS)8X6
+QK9)HMD
+2TC)CLN
+1S1)W6L
+YFJ)KY8
+694)W93
+KCY)F35
+H43)2Y8
+WZK)9PD
+8H3)31M
+3TK)ZWT
+77C)PCG
+86V)741
+X3T)3XQ
+L7Y)QFR
+PLG)HWR
+NRR)XJ4
+WW4)ZF3
+FVJ)R8F
+3K9)F6Z
+DPN)Y4V
+W6P)KCY
+VQ7)4XK
+ZKQ)N87
+TJN)JSK
+LQL)RCB
+GG1)D1X
+R88)HYP
+DRF)LSH
+133)G9K
+GMG)RGM
+SXW)32Y
+SHM)JXK
+VJV)S3X
+2DZ)DZ1
+MRL)B52
+N7H)B3S
+VK6)73M
+XTW)6RP
+SC7)ZF4
+3FK)VFX
+4DY)454
+8NB)H11
+2X9)8FX
+X8L)6SS
+TJT)ZKD
+RHX)M3V
+HGH)Z7R
+FDZ)PJK
+5BM)45K
+COM)BM7
+YS2)D74
+M9H)RHX
+Z9M)QK9
+H84)F7J
+BHW)N7H
+32Y)M9H
+1QL)XVN
+ZWT)7ZC
+W3B)Z3W
+F4L)6JQ
+LVR)N4J
+984)LHK
+S3X)YWQ
+PJK)PT7
+TYH)PN1
+8CS)694
+VPL)FPY
+TD2)BJ8
+2L5)897
+K2B)6FM
+KNS)K4Y
+KCF)N2T
+C2D)9HP
+Z7C)HS9
+DGR)99W
+LHC)5MZ
+WKQ)77Y
+938)9BX
+QZF)DBK
+DBK)VXQ
+B6P)WKP
+TPC)6VH
+39W)5WM
+HRD)KDR
+XM9)82J
+HMD)1XM
+FBR)R88
+1XM)L17
+C6D)CST
+YJ1)YRM
+5YT)1K8
+6MW)9C4
+WHM)W1X
+MHB)17Q
+G47)FYT
+RG7)BB6
+WPM)V8B
+P5H)PQ7
+Z7T)7JQ
+RGM)1GC
+KKV)TB9
+F88)8JP
+93B)TVD
+YXH)BF2
+CST)4NH
+QLQ)TS5
+4M8)P96
+KN8)KS5
+KFG)42Y
+F8J)PFG
+538)MTT
+6X9)81D
+8G8)V8F
+LYW)B6G
+XCG)Q21
+SK3)2D3
+H1W)VJV
+SH5)ZSY
+15T)Y5L
+7FF)2YJ
+Q4F)YXH
+CSN)PQS
+Z9Z)PLG
+98R)65K
+G23)Q9B
+Z9M)M4T
+NKD)Y99
+DYW)F2X
+PH9)J7V
+JNZ)Z5Q
+ZNS)YVN
+6JQ)GR9
+ZX6)FQ5
+DJ8)692
+2Y8)99C
+1PY)QZ8
+5BB)2NZ
+F6Z)X4W
+CPH)VD2
+Z1W)4TC
+H2Q)1Z7
+HD7)5FD
+QYB)FVJ
+V91)R76
+DTF)LH2
+W1W)7R1
+8CH)9GG
+WN5)6P5
+1K8)496
+FD7)P56
+PR1)5V5
+JJ8)M5Q
+42Y)QGQ
+69Q)HV5
+WKP)D86
+P65)RCZ
+2HQ)GWL
+KPK)X8L
+N2T)L6R
+1MX)NJT
+6DN)PNW
+7QG)GLN
+38R)M4L
+3SN)XXP
+3ZF)RHY
+HS9)QXR
+2YJ)V91
+NNH)HSM
+Z23)77C
+B52)RNK
+3PY)PWY
+31M)N4P
+RNQ)P8H
+S6S)PFF
+4H4)NY5
+4DG)6YY
+2TR)ZKQ
+Q21)XLQ
+5RC)WYW
+6D7)WYC
+54J)KFG
+RJ7)Z1V
+D64)9V7
+FFF)V6J
+11T)TYG
+D9H)8HK
+2M8)XYF
+PQ7)4DG
+NTH)12N
+X5R)49J
+M86)YVK
+9FD)SAN
+FDJ)CWN
+QFR)PJG
+NQT)WSX
+KZY)6MQ
+Y5L)TTR
+K2Z)V55
+9F2)LYW
+WNT)D94
+4QV)TDL
+B4G)ZBY
+W97)4QV
+7R1)1XY
+VXX)TN4
+1ST)PLM
+M6H)QL6
+2X8)YC2
+3P3)C39
+NJH)ZRQ
+52F)K2Z
+NWC)DGR
+HYP)VVH
+4XT)2TC
+52B)2TR
+JXQ)YZ3
+MVT)RJ7
+GWY)SQG
+P1D)8Z8
+ZXY)8M5
+D74)RPC
+9CK)9BJ
+K25)NWZ
+718)6J5
+QS1)YMF
+PJT)N1T
+Y1C)HXP
+NBW)WDP
+9TT)K32
+VDS)XB3
+K4S)Z43
+RXC)RR6
+9RT)N4N
+WFT)RP3
+2XH)JNZ
+QFC)FBR
+342)B4G
+3H3)QZS
+5FD)3VL
+XDC)DXW
+X86)T32
+6YT)8TP
+R8M)ZNR
+G7X)W62
+MGB)PH9
+2NZ)GG1
+W4M)NSP
+D9K)1G2
+VD2)QC3
+LMC)N8Q
+Z5Q)YJ1
+PGP)FPQ
+454)6JD
+HXP)69Q
+FHG)331
+SSL)Y1C
+FXB)7HQ
+M9V)JDB
+XLK)5JD
+24H)T1L
+ZXS)SL4
+F2D)LD9
+MJR)R8M
+38H)W6P
+D6F)39G
+TQB)V7P
+L35)292
+MG6)G7X
+8M5)HD7
+CNN)T3B
+KZJ)W97
+TCC)6S4
+M3Q)TJN
+RLX)QZ6
+2BW)SST
+WYW)HCZ
+WYF)5MB
+2V5)6X9
+GVF)ZJ2
+4TC)L6P
+CK1)MG6
+QWQ)DBC
+FLQ)56N
+B8T)FNW
+6RP)5YQ
+N4P)NWC
+3P3)4R1
+692)K3N
+PT7)2VD
+HLB)G6M
+JX7)HRD
+WCM)D7J
+XFX)9FD
+JDC)DKT
+W93)VHD
+T44)TDG
+ZRG)M6H
+YVN)SKJ
+YFJ)44H
+L79)VW7
+YQJ)38H
+412)5TR
+JZW)11T
+RR6)3LM
+S13)3H8
+MLH)FGV
+DZ1)2BW
+49J)6Z8
+Z11)4R2
+C8V)KXH
+YC2)3PJ
+L6R)BN6
+47W)2N6
+Q9B)T44
+F2X)Y2D
+ZW5)SP6
+W1X)921
+96M)2TN
+N59)H2Q
+6Z8)3TK
+ZKB)GH8
+LSH)C81
+294)PY4
+BML)X5R
+QK9)1PY
+17Q)V5V
+WJT)PDM
+SY4)2PG
+Z7M)XVH
+C8H)NBW
+X5H)RQX
+SC7)389
+Z47)KZY
+SKJ)51V
+CSX)MVT
+QCD)3G5
+11V)6YK
+KTY)P1D
+TB8)8HH
+Y9G)DN8
+XG3)MBF
+KND)WJT
+JYH)V34
+59K)YWG
+4R2)XN6
+HV5)X5H
+RHL)VP9
+DZ1)785
+3GS)SNS
+GLB)1XC
+V2M)8XM
+SP6)6TP
+BXW)TQL
+L6P)N47
+H11)HYR
+73C)H1W
+BSN)663
+1XT)KYL
+1J9)RN6
+331)V2M
+CVT)YQJ
+F47)L7Y
+G8V)TYZ
+3GB)3H9
+L74)3LJ
+73M)5PW
+N28)XM9
+XYF)JX7
+7K7)7D3
+6DB)GTK
+8PC)2X9
+9TJ)BJ4
+44H)8G8
+NHN)9YR
+QYW)93B
+RSP)QS1
+M7S)15T
+6N1)VQ7
+P1L)D8D
+VWY)K25
+NNH)6H9
+894)TYH
+S3X)D7T
+6SS)G1T
+9P7)R7B
+ZZK)23R
+XXP)ZRG
+1K8)9TJ
+9FS)5VF
+7HQ)8P7
+J7V)3FK
+43C)M9V
+HM7)BGX
+F7J)MLH
+K35)D7X
+84W)GBY
+4JW)894
+G4N)DXF
+Q39)45D
+C8J)JMF
+B7L)7YN
+DK3)L1L
+3S4)T4H
+TN4)QYB
+RYX)R74
+TDL)Y31
+8VR)MB8
+11X)SXW
+THB)SPV
+RP3)Z7Y
+RHY)KC6
+NSH)453
+CP6)7CT
+7KF)7KD
+5BG)QTW
+NPD)SJS
+JL1)84Z
+1CM)WN5
+KXH)G9G
+T87)YXK
+R7B)3GD
+B7P)SH5
+6PR)5BM
+2VD)T24
+BZ5)342
+HYM)7PH
+MBY)2L5
+BZ1)KPM
+J6F)B7L
+T32)NTG
+D4X)1CM
+D7P)1YX
+8GG)W2K
+GPH)B5Z
+V6J)DN1
+77D)YZB
+5JD)84W
+JDC)W1H
+64J)LTD
+XJ4)QN1
+T22)6N1
+1DV)KZ4
+PSB)F9J
+77Y)TXB
+NXD)M6P
+NZD)J28
+QTR)52B
+3K9)VY4
+56N)D9K
+3PN)XTK
+47W)4Q5
+745)11V
+THB)B8T
+742)6MW
+6FM)47Q
+ZFK)ZSN
+FCB)JJ8
+1PH)3RW
+SL4)BZ5
+72S)9FS
+LHK)DYW
+7ZC)3PY
+6K4)1DV
+741)FHG
+CGX)9HX
+PNQ)RYX
+1XR)T8Z
+V8F)7JT
+DLB)C8H
+PJN)L49
+HCZ)YN4
+Z43)MBY
+F44)JP8
+81D)L4D
+51V)6NS
+QZS)LQL
+NTG)RZX
+Y99)Y8W
+GPK)BQ6
+1DV)Z1W
+C81)S6S
+6S4)133
+6YY)CNV
+73C)FXB
+JYH)BSN
+QZ6)52Y
+61S)38J
+4BC)5YT
+453)BZ1
+5XX)NPD
+M4T)18J
+JZW)T22
+3TY)H6K
+JMF)4BC
+YN4)BLC
+PWY)HGH
+PJN)GWY
+BGX)DQ5
+Y8W)X3T
+X72)MGB
+82J)C5B
+5TR)791
+2G9)CRT
+4XX)Z7M
+MB8)13W
+W1H)7FF
+6Q7)JFL
+RNN)8GK
+97G)3CJ
+5MZ)HM7
+12N)XFX
+5X8)2RR
+4K6)31D
+MTD)Z9Z
+VJJ)8VR
+QXR)XXF
+4R1)QLQ
+T8Z)73C
+ZVS)W3B
+K1R)FLQ
+Q5V)FDJ
+VY4)Q4S
+W6L)8NT
+5YQ)CK7
+HWR)F2D
+LJK)2M8
+Y4V)4ZC
+5SD)Q4F
+95M)CJF
+BSQ)CWF
+M2R)97G
+TVD)XLY
+BQ6)M3Q
+7D3)79T
+ZX6)GPH
+ZF3)G47
+VP9)VJX
+PFF)B5R
+PD4)RLX
+292)D5V
+QL6)9Y8
+SCV)TTD
+TKD)TJT
+2TK)1MX
+8HM)JC4
+7YN)6K4
+Z2K)2TK
+M9H)XTW
+ZMT)HYD
+KRW)9SD
+1CK)8PC
+KC6)1QL
+785)8NY
+XL4)N8K
+R8F)JDC
+8GK)6XR
+N2W)VK6
+2DZ)KPK
+FPQ)6DN
+PJC)FD7
+CJF)JNM
+8NT)RRT
+RGS)RNN
+8NY)CP6
+W2K)KND
+WNB)MZD
+X86)JP5
+R3Z)7TL
+8JP)DQR
+J28)QFC
+DWH)KRW
+791)P9N
+GLN)Y3S
+CTW)8RW
+KR7)D7P
+V5V)GDH
+Q6T)P1W
+P9N)X72
+MGX)RVW
+7JQ)Y3X
+TZH)BSQ
+K32)BTL
+JNG)Y6X
+39G)TCC
+4LY)DFK
+P56)QWQ
+N3W)F7T
+YPJ)PRQ
+L17)X86
+DFK)412
+44Q)2G9
+QNC)2HQ
+KKY)M7S
+78W)8CS
+C14)M2L
+DBC)KR7
+9JN)CGX
+ZSY)2WD
+3H9)7S6
+XVH)3PN
+C95)DTF
+7PH)D6J
+1XC)6YQ
+7JT)JXH
+1CD)Z9M
+G1T)F88
+SDG)SSL
+XLB)ZCY
+9BJ)WBZ
+F88)Z7T
+6S2)F47
+B4R)5X8
+CWF)98R
+JXK)PJN
+HQY)H84
+8TP)742
+BFY)JXQ
+XTK)ZZK
+CLN)V74
+WBZ)V8K
+JP5)H7T
+3PJ)QYW
+F7T)RS6
+KY8)86W
+18J)984
+SNS)2DZ
+V55)72B
+VW7)GVF
+T23)4K6
+RVW)FMJ
+7PX)39W
+5TY)BN3
+DXF)VPL
+9SD)ZVS
+CWN)8X3
+GDH)MXQ
+NRC)J43
+HWL)96M
+HM7)YPJ
+VXQ)6Q7
+N47)JCY
+THY)PNQ
+9V7)3B6
+331)PTH
+GWL)N28
+V8K)N59
+23R)NKD
+897)R9J
+QSV)7PD
+SSV)SZ8
+PJK)38R
+Z6S)ZX6
+RQX)N3W
+J43)BPG
+9Y8)QNC
+1LK)F15
+SST)8ZH
+94K)Z7L
+47Q)NSH
+PJC)CZ3
+X7N)THY
+3HR)ZMT
+FGV)Z23
+YTR)DWH
+4LZ)KTY
+JSK)99Y
+1FM)6YT
+TQL)T23
+BJP)1FM
+KS5)44Q
+VJX)K37
+QTW)C6D
+M6P)65V
+YXK)8NB
+GR9)6QY
+Z7R)6PR
+2V5)D4X
+5V5)BXW
+TB9)B7P
+65V)K94
+QGQ)VXX
+31D)4XT
+RZX)QVM
+BPG)WZK
+8X6)95D
+HYR)DK3
+9GG)HWF
+H7M)9N1
+Q6T)DJ8
+V8F)92S
+P96)LRN
+DN8)C8V
+SPV)Z18
+LTD)DLB
+FYT)11X
+MRL)NXD
+JNM)X7S
+H1S)2LH
+F8N)N8M
+8TG)745
+3G5)XDH
+5MB)4CG
+C8H)PFW
+YJR)CSX
+7PD)ZFK
+GK3)TDF
+7R1)1PH
+5PW)R7S
+7CT)Y9G
+MPS)XLK
+6D8)CVT
+YN4)DRF
+PT7)2X8
+72B)NHC
+7S6)Q6T
+6P5)P5H
+6TP)L79
+BTL)3TY
+Y31)XRS
+N87)NS5
+PFG)YOU
+Y2D)273
+B5Z)PN6
+38J)QCD
+4XT)KN8
+J25)TQB
+4BC)X7N
+8X6)VLF
+GTK)3GS
+2DC)WHM
+WV8)3S4
+YRM)1ST
+XXF)G73
+921)7PX
+YWG)HWL
+2KN)1MZ
+389)QSV
+6YQ)LRM
+R7S)WNT
+TTR)SSV
+ZRQ)T87
+3LJ)YW1
+273)C8J
+6YK)24H
+YZB)JB5
+X7S)N2W
+PWR)1XT
+VLF)294
+T22)7K7
+Q9B)K2B
+RH4)B6P
+JP8)6D8
+ZNR)8H3
+N8M)5SD
+KR4)94K
+G9K)95M
+X4P)S1C
+XLY)F8N
+DS6)YFJ
+CRT)KKV
+F6P)M2R
+24N)NJH
+DQ5)GLB
+SQG)MPS
+YMF)JM8
+BLC)R5B
+B3S)9P7
+YW1)5PD
+YWQ)RSP
+6XR)SC7
+R3Z)VJJ
+3H8)NQT
+KDR)6D7
+CZ3)M86
+B6G)GPK
+D9B)HYM
+4Q5)PJT
+MZD)5XX
+QVM)B6F
+HD7)59K
+TDG)4LZ
+LD6)ZKB
+ZF4)2DC
+Y6X)K1R
+9F2)3GB
+79T)6S2
+BJ8)47W
+VLF)NJK
+6QY)Z54
+LYW)HWW
+D6J)G4N
+3CJ)JYH
+LNJ)XLB
+2C7)LJK
+TJ7)SDG
+V74)4LY
+VHD)3K9
+8P7)PSB
+PCG)SY4
+D1X)3ZF
+745)MQV
+1GC)C1G
+TXB)PMC
+Y3X)GK3
+DQR)K8J
+JNG)CK1
+Z54)P65
+NWZ)HR8
+9N1)SHM
+MWB)KCZ
+BN3)6RC
+K94)YS2
+K4Y)5TY
+9HP)C95
+1XY)C2D
+YZ3)1S1
+QN1)HY1
+Z18)XG3
+D94)1LK
+VVH)HSQ
+84Z)PR1
+S1C)W1W
+BJ4)86V
+MTT)MRL
+D7T)FV2
+9VN)7QG
+MQV)5GT
+3RW)TB8
+WYC)XDC
+HSM)TD2
+5GT)VWY
+PTG)L35
+TTD)WFT
+1G2)Q39
+FPQ)FDZ
+BPG)5BG
+RN6)9VN
+F2X)ZW5
+2TR)KNS
+BB6)9S1
+52Y)7KF
+4NH)WYF
+M4L)HQY
+Z7L)D9H
+P1W)RHL
+9HX)9TT
+PQB)CZJ
+9YR)F8J
+H7T)H9Z
+WDP)3H3
+3PN)SH2
+5XX)Z7C
+X5H)7K2
+VK6)S6M
+8XM)QTR
+CNV)TKD
+3XQ)J55
+T9F)MJR
+R5B)TPC
+1Z7)ZXY
+YZB)ZXS
+LRN)J25
+HWL)T9F
+N8K)1CK
+99W)8CH
+1LK)LMC
+HSQ)D9B
+V7P)FCB
+QZ8)718
+FQ5)77D
+2N6)THB
+RS6)5RC
+34G)4VQ
+LD9)HLB
+496)D64
+BN6)G8V
+BM7)5BB
+4H4)CPH
+86W)VBB
+T4H)X2L
+Z3W)2V5
+CK7)YTR
+6H9)RG7
+X4W)4M8
+D5V)7NZ
+KPM)WKQ
+GBY)6ZC
+8X3)PQB
+11T)PD4
+GBZ)F44
+M3V)BJP
+C5B)TJ7
+7HQ)3P1
+PN6)LHC
+JC4)Z6S
+95D)RH4
+WJM)KZJ
+92S)WV8
+GBZ)H43
+R74)2C7
+2ZJ)Z11
+L49)1XR
+RCZ)P1L
+KCZ)DNX
+QYW)182
+4NL)78W
+ZKD)61S
+XQ3)3D1
+K4S)GMG
+8XM)2ZJ
+785)PGP
+JFL)R3Z
+4XK)1J9
+ZSN)JL1
+F15)QZF
+9S1)S1J
+6RP)52F
+NJK)WNB
+DQ5)F6P
+99Y)79Z
+45D)SDY
+65K)JRS
+DXW)BML
+MTT)FQH
+J55)G23
+R88)DS6
+3X6)64J
+XDH)W4M
diff --git a/day06.k b/day06.k
new file mode 100644
index 0000000..88d6df8
--- /dev/null
+++ b/day06.k
@@ -0,0 +1,5 @@
++/-1+#:'d\'d:!/|+")"\:'0:"day06"
+#2_,/^/'|:\d\'("SAN";"YOU")
+\\
+147223
+340
diff --git a/day06.pl b/day06.pl
new file mode 100644
index 0000000..218531b
--- /dev/null
+++ b/day06.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+use v5.16;
+
+use File::Slurper 'read_lines';
+
+my %orbits;
+
+for (read_lines("day06")) {
+    my ($in, $out) = split /\)/;
+    $orbits{$out} = $in;
+}
+
+my $p1 = 0;
+for (keys %orbits) {
+    while ($_ ne "COM") {
+        $p1++;
+        $_ = $orbits{$_};
+    }
+}
+say $p1;  # 147223
+
+my (@path1, @path2);
+$_ = "YOU"; push @path1, $_ = $orbits{$_} while ($_ ne "COM");
+$_ = "SAN"; push @path2, $_ = $orbits{$_} while ($_ ne "COM");
+
+while ($path1[-1] eq $path2[-1]) {
+    pop @path1;
+    pop @path2;
+}
+
+say @path1 + @path2;  # 340