From 8fbcd639714c54245c8bbb479d85e75c5aa4f4b0 Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Sat, 7 Dec 2019 20:55:21 +0100 Subject: day06 --- day06 | 1035 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ day06.k | 5 + day06.pl | 31 ++ 3 files changed, 1071 insertions(+) create mode 100644 day06 create mode 100644 day06.k create mode 100644 day06.pl 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 -- cgit 1.4.1