Day 7 Part 1
This commit is contained in:
Jens Kadenbach
@@ -44,6 +44,8 @@ library
|
|||||||
Day5.Part2
|
Day5.Part2
|
||||||
Day5.Shared
|
Day5.Shared
|
||||||
Day6
|
Day6
|
||||||
|
Day7
|
||||||
|
Day7.Parser
|
||||||
Lib
|
Lib
|
||||||
other-modules:
|
other-modules:
|
||||||
Paths_aoc2022
|
Paths_aoc2022
|
||||||
@@ -57,6 +59,7 @@ library
|
|||||||
, heredoc
|
, heredoc
|
||||||
, hspec
|
, hspec
|
||||||
, lens
|
, lens
|
||||||
|
, parsec
|
||||||
, split
|
, split
|
||||||
, text
|
, text
|
||||||
default-language: Haskell2010
|
default-language: Haskell2010
|
||||||
@@ -76,6 +79,7 @@ executable aoc2022-exe
|
|||||||
, heredoc
|
, heredoc
|
||||||
, hspec
|
, hspec
|
||||||
, lens
|
, lens
|
||||||
|
, parsec
|
||||||
, split
|
, split
|
||||||
, text
|
, text
|
||||||
default-language: Haskell2010
|
default-language: Haskell2010
|
||||||
@@ -90,6 +94,7 @@ test-suite aoc2022-test
|
|||||||
Day4Spec
|
Day4Spec
|
||||||
Day5Spec
|
Day5Spec
|
||||||
Day6Spec
|
Day6Spec
|
||||||
|
Day7Spec
|
||||||
Paths_aoc2022
|
Paths_aoc2022
|
||||||
hs-source-dirs:
|
hs-source-dirs:
|
||||||
test
|
test
|
||||||
@@ -102,6 +107,7 @@ test-suite aoc2022-test
|
|||||||
, heredoc
|
, heredoc
|
||||||
, hspec
|
, hspec
|
||||||
, lens
|
, lens
|
||||||
|
, parsec
|
||||||
, split
|
, split
|
||||||
, text
|
, text
|
||||||
default-language: Haskell2010
|
default-language: Haskell2010
|
||||||
|
|||||||
@@ -29,6 +29,7 @@ dependencies:
|
|||||||
- split
|
- split
|
||||||
- lens
|
- lens
|
||||||
- Ranged-sets
|
- Ranged-sets
|
||||||
|
- parsec
|
||||||
|
|
||||||
ghc-options:
|
ghc-options:
|
||||||
- -Wall
|
- -Wall
|
||||||
|
|||||||
986
ressources/day07-input
Normal file
986
ressources/day07-input
Normal file
@@ -0,0 +1,986 @@
|
|||||||
|
$ cd /
|
||||||
|
$ ls
|
||||||
|
dir bnl
|
||||||
|
dir dmpsnhdh
|
||||||
|
272080 dncdssn.hdr
|
||||||
|
dir fcnqg
|
||||||
|
6067 hjpmqrq
|
||||||
|
dir jvwtm
|
||||||
|
dir ldztz
|
||||||
|
dir lmmw
|
||||||
|
dir wthvqw
|
||||||
|
dir zpdnprb
|
||||||
|
$ cd bnl
|
||||||
|
$ ls
|
||||||
|
dir dhw
|
||||||
|
dir dmpsnhdh
|
||||||
|
dir lmw
|
||||||
|
dir vgbqbrst
|
||||||
|
$ cd dhw
|
||||||
|
$ ls
|
||||||
|
237421 vccwmhl
|
||||||
|
$ cd ..
|
||||||
|
$ cd dmpsnhdh
|
||||||
|
$ ls
|
||||||
|
dir chf
|
||||||
|
dir mjpbhjm
|
||||||
|
dir zwhpwp
|
||||||
|
$ cd chf
|
||||||
|
$ ls
|
||||||
|
4679 lmw.wmp
|
||||||
|
217367 wwnfv.qqr
|
||||||
|
dir zfgznbz
|
||||||
|
$ cd zfgznbz
|
||||||
|
$ ls
|
||||||
|
179409 cnj.gdn
|
||||||
|
171574 vglqg
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd mjpbhjm
|
||||||
|
$ ls
|
||||||
|
dir crf
|
||||||
|
dir hqnj
|
||||||
|
dir lmw
|
||||||
|
18783 lmw.rwr
|
||||||
|
302608 twpq
|
||||||
|
166891 vqczlg
|
||||||
|
$ cd crf
|
||||||
|
$ ls
|
||||||
|
32183 dltmqht
|
||||||
|
240428 frqqdsr.hbf
|
||||||
|
224910 sgtnrvrt
|
||||||
|
$ cd ..
|
||||||
|
$ cd hqnj
|
||||||
|
$ ls
|
||||||
|
261723 cgstb
|
||||||
|
77979 dmpsnhdh.cmd
|
||||||
|
$ cd ..
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
50307 fcqrwd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd zwhpwp
|
||||||
|
$ ls
|
||||||
|
141133 gdngm.mps
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
dir dvv
|
||||||
|
267473 jmqgrh.dlz
|
||||||
|
295139 rrqjwpm
|
||||||
|
$ cd dvv
|
||||||
|
$ ls
|
||||||
|
114536 gmlmbrrw.wdm
|
||||||
|
102061 lmw
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd vgbqbrst
|
||||||
|
$ ls
|
||||||
|
105102 dmpsnhdh.bgl
|
||||||
|
269054 gmwgjf.fzz
|
||||||
|
dir jbdtpnw
|
||||||
|
245266 jzsjvgl
|
||||||
|
216220 lmw.gtb
|
||||||
|
dir rflp
|
||||||
|
dir twpq
|
||||||
|
$ cd jbdtpnw
|
||||||
|
$ ls
|
||||||
|
27543 cjvvmzp
|
||||||
|
$ cd ..
|
||||||
|
$ cd rflp
|
||||||
|
$ ls
|
||||||
|
137601 frqqdsr.hbf
|
||||||
|
83444 rrqjwpm
|
||||||
|
$ cd ..
|
||||||
|
$ cd twpq
|
||||||
|
$ ls
|
||||||
|
dir rlbsdj
|
||||||
|
36846 tnrqzjdd
|
||||||
|
$ cd rlbsdj
|
||||||
|
$ ls
|
||||||
|
56078 bvndq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd dmpsnhdh
|
||||||
|
$ ls
|
||||||
|
dir fnpwwhtj
|
||||||
|
dir lmw
|
||||||
|
9090 mgjpsvl.jlh
|
||||||
|
186374 pbb.zln
|
||||||
|
$ cd fnpwwhtj
|
||||||
|
$ ls
|
||||||
|
dir cgp
|
||||||
|
$ cd cgp
|
||||||
|
$ ls
|
||||||
|
81938 hjpmqrq
|
||||||
|
281971 jvszf
|
||||||
|
151057 wmr.bnf
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
dir bfbv
|
||||||
|
56929 pbb.zln
|
||||||
|
dir rrqjwpm
|
||||||
|
dir sngm
|
||||||
|
$ cd bfbv
|
||||||
|
$ ls
|
||||||
|
92667 qrrttb.jgp
|
||||||
|
$ cd ..
|
||||||
|
$ cd rrqjwpm
|
||||||
|
$ ls
|
||||||
|
25739 cqljn.zqw
|
||||||
|
91325 dncdssn.hdr
|
||||||
|
$ cd ..
|
||||||
|
$ cd sngm
|
||||||
|
$ ls
|
||||||
|
282163 jgrj
|
||||||
|
dir lmw
|
||||||
|
237524 lmw.dff
|
||||||
|
153497 lmw.ntg
|
||||||
|
dir lqd
|
||||||
|
dir szn
|
||||||
|
143535 tvpvc.qpr
|
||||||
|
98326 vbfgh
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
32484 dncdssn.hdr
|
||||||
|
dir glwr
|
||||||
|
$ cd glwr
|
||||||
|
$ ls
|
||||||
|
144719 frqqdsr.hbf
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd lqd
|
||||||
|
$ ls
|
||||||
|
231401 dncdssn.hdr
|
||||||
|
dir jnjqmvg
|
||||||
|
dir lmw
|
||||||
|
199704 rrqjwpm
|
||||||
|
$ cd jnjqmvg
|
||||||
|
$ ls
|
||||||
|
104947 trpsrfjz.brg
|
||||||
|
$ cd ..
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
230298 rrqjwpm.nnv
|
||||||
|
158947 wfv.qrb
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd szn
|
||||||
|
$ ls
|
||||||
|
197974 frqqdsr.hbf
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd fcnqg
|
||||||
|
$ ls
|
||||||
|
251609 dncdssn.hdr
|
||||||
|
289497 jdjmftqs
|
||||||
|
228459 qbmthcq
|
||||||
|
$ cd ..
|
||||||
|
$ cd jvwtm
|
||||||
|
$ ls
|
||||||
|
dir dmpsnhdh
|
||||||
|
47959 pbb.zln
|
||||||
|
dir tlr
|
||||||
|
dir twpq
|
||||||
|
dir wbgcsw
|
||||||
|
dir zjmldjdh
|
||||||
|
$ cd dmpsnhdh
|
||||||
|
$ ls
|
||||||
|
247567 bnl
|
||||||
|
102471 bnl.wdm
|
||||||
|
80054 fhqvp.hfm
|
||||||
|
dir llhp
|
||||||
|
dir mnsbh
|
||||||
|
dir mpplsfjp
|
||||||
|
20844 mtvl.lmp
|
||||||
|
$ cd llhp
|
||||||
|
$ ls
|
||||||
|
180255 dmpsnhdh
|
||||||
|
$ cd ..
|
||||||
|
$ cd mnsbh
|
||||||
|
$ ls
|
||||||
|
267627 dmpsnhdh
|
||||||
|
$ cd ..
|
||||||
|
$ cd mpplsfjp
|
||||||
|
$ ls
|
||||||
|
dir bnl
|
||||||
|
233742 tcnpvqc.tdr
|
||||||
|
$ cd bnl
|
||||||
|
$ ls
|
||||||
|
243223 fcqrwd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd tlr
|
||||||
|
$ ls
|
||||||
|
dir vcsngm
|
||||||
|
dir wndmt
|
||||||
|
$ cd vcsngm
|
||||||
|
$ ls
|
||||||
|
36434 czs.dnv
|
||||||
|
$ cd ..
|
||||||
|
$ cd wndmt
|
||||||
|
$ ls
|
||||||
|
dir fvmtfcqd
|
||||||
|
dir nvdb
|
||||||
|
dir nwqqgl
|
||||||
|
dir sbspgnpm
|
||||||
|
$ cd fvmtfcqd
|
||||||
|
$ ls
|
||||||
|
237025 nzttjt.rzh
|
||||||
|
$ cd ..
|
||||||
|
$ cd nvdb
|
||||||
|
$ ls
|
||||||
|
235328 dnrqwqtp.vfc
|
||||||
|
51984 rhblt.mfz
|
||||||
|
51332 rjhvhw
|
||||||
|
$ cd ..
|
||||||
|
$ cd nwqqgl
|
||||||
|
$ ls
|
||||||
|
203534 cjghw
|
||||||
|
dir cljbrh
|
||||||
|
$ cd cljbrh
|
||||||
|
$ ls
|
||||||
|
133820 lmw.dnd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd sbspgnpm
|
||||||
|
$ ls
|
||||||
|
270010 hjpmqrq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd twpq
|
||||||
|
$ ls
|
||||||
|
dir dmpsnhdh
|
||||||
|
dir hbchdjjp
|
||||||
|
247649 hjpmqrq
|
||||||
|
29891 rrqjwpm
|
||||||
|
72407 twpq.crb
|
||||||
|
$ cd dmpsnhdh
|
||||||
|
$ ls
|
||||||
|
251490 dncdssn.hdr
|
||||||
|
222231 hjpmqrq
|
||||||
|
102058 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd hbchdjjp
|
||||||
|
$ ls
|
||||||
|
70058 dprrmd.qcd
|
||||||
|
230958 tsdbl.bnq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd wbgcsw
|
||||||
|
$ ls
|
||||||
|
292028 bhtfcf
|
||||||
|
dir bnl
|
||||||
|
dir bqq
|
||||||
|
dir ctnlpgt
|
||||||
|
247888 hblhfvwj
|
||||||
|
dir hbqm
|
||||||
|
277949 pbb.zln
|
||||||
|
106225 rrqjwpm
|
||||||
|
125927 ssqpmlfb.gwm
|
||||||
|
dir zqmjwsgz
|
||||||
|
dir zwwphs
|
||||||
|
$ cd bnl
|
||||||
|
$ ls
|
||||||
|
dir fbbr
|
||||||
|
240500 frqqdsr.hbf
|
||||||
|
dir mzfrdl
|
||||||
|
25137 srqlww.mcj
|
||||||
|
dir tqgrdz
|
||||||
|
dir ztrnq
|
||||||
|
$ cd fbbr
|
||||||
|
$ ls
|
||||||
|
84414 mjbw.dhs
|
||||||
|
$ cd ..
|
||||||
|
$ cd mzfrdl
|
||||||
|
$ ls
|
||||||
|
135647 bccwgn
|
||||||
|
dir cjdptqgh
|
||||||
|
dir hwdnrqns
|
||||||
|
dir prq
|
||||||
|
$ cd cjdptqgh
|
||||||
|
$ ls
|
||||||
|
147946 mdgl.drz
|
||||||
|
11972 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd hwdnrqns
|
||||||
|
$ ls
|
||||||
|
dir dmpsnhdh
|
||||||
|
$ cd dmpsnhdh
|
||||||
|
$ ls
|
||||||
|
254432 phthmn
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd prq
|
||||||
|
$ ls
|
||||||
|
75827 dmpsnhdh.rtl
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd tqgrdz
|
||||||
|
$ ls
|
||||||
|
251475 bjwnll.rlw
|
||||||
|
$ cd ..
|
||||||
|
$ cd ztrnq
|
||||||
|
$ ls
|
||||||
|
208497 bnl.dtr
|
||||||
|
179376 gqnbswcj.hht
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd bqq
|
||||||
|
$ ls
|
||||||
|
202201 bnl.lbm
|
||||||
|
$ cd ..
|
||||||
|
$ cd ctnlpgt
|
||||||
|
$ ls
|
||||||
|
269484 vsfvzrpr
|
||||||
|
$ cd ..
|
||||||
|
$ cd hbqm
|
||||||
|
$ ls
|
||||||
|
74455 bvnfz
|
||||||
|
42748 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd zqmjwsgz
|
||||||
|
$ ls
|
||||||
|
146194 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd zwwphs
|
||||||
|
$ ls
|
||||||
|
209587 mtbzd.nwb
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd zjmldjdh
|
||||||
|
$ ls
|
||||||
|
dir cdq
|
||||||
|
dir mdclfbs
|
||||||
|
dir tfc
|
||||||
|
132043 wrm
|
||||||
|
$ cd cdq
|
||||||
|
$ ls
|
||||||
|
289173 twpq.mrn
|
||||||
|
$ cd ..
|
||||||
|
$ cd mdclfbs
|
||||||
|
$ ls
|
||||||
|
64639 bnl.jwf
|
||||||
|
dir hpdgt
|
||||||
|
72868 hznfj.nmj
|
||||||
|
159467 lmw.bfz
|
||||||
|
$ cd hpdgt
|
||||||
|
$ ls
|
||||||
|
52760 fcqrwd
|
||||||
|
54661 tzgt.hvh
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd tfc
|
||||||
|
$ ls
|
||||||
|
185481 bwntlh
|
||||||
|
18925 fcqrwd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ldztz
|
||||||
|
$ ls
|
||||||
|
128430 bwz.fcz
|
||||||
|
dir dmpsnhdh
|
||||||
|
dir lbqgz
|
||||||
|
dir znrnj
|
||||||
|
$ cd dmpsnhdh
|
||||||
|
$ ls
|
||||||
|
238193 dncdssn.hdr
|
||||||
|
285939 hwfngq.dpw
|
||||||
|
$ cd ..
|
||||||
|
$ cd lbqgz
|
||||||
|
$ ls
|
||||||
|
171931 vgrp
|
||||||
|
$ cd ..
|
||||||
|
$ cd znrnj
|
||||||
|
$ ls
|
||||||
|
153738 vmwwbjqd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd lmmw
|
||||||
|
$ ls
|
||||||
|
dir bqqnsfdj
|
||||||
|
163303 fcqrwd
|
||||||
|
43453 frqqdsr.hbf
|
||||||
|
33319 hjpmqrq
|
||||||
|
dir rlpcqtzg
|
||||||
|
$ cd bqqnsfdj
|
||||||
|
$ ls
|
||||||
|
dir bnl
|
||||||
|
2251 hjpmqrq
|
||||||
|
14707 rrqjwpm
|
||||||
|
dir tlnbvhdl
|
||||||
|
$ cd bnl
|
||||||
|
$ ls
|
||||||
|
33357 bnl.fqp
|
||||||
|
151237 bnl.vbs
|
||||||
|
40294 dmpsnhdh.hwz
|
||||||
|
76455 dncdssn.hdr
|
||||||
|
290341 hjpmqrq
|
||||||
|
dir lmw
|
||||||
|
dir nqw
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
dir sfj
|
||||||
|
$ cd sfj
|
||||||
|
$ ls
|
||||||
|
156532 fcqrwd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd nqw
|
||||||
|
$ ls
|
||||||
|
59928 dncdssn.hdr
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd tlnbvhdl
|
||||||
|
$ ls
|
||||||
|
183301 hjpmqrq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd rlpcqtzg
|
||||||
|
$ ls
|
||||||
|
258638 dqt.mlc
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd wthvqw
|
||||||
|
$ ls
|
||||||
|
224501 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd zpdnprb
|
||||||
|
$ ls
|
||||||
|
dir bnl
|
||||||
|
dir ffg
|
||||||
|
dir jljlwpsv
|
||||||
|
212081 lrzc.lhj
|
||||||
|
dir rrqjwpm
|
||||||
|
dir twpq
|
||||||
|
dir vlgsrtm
|
||||||
|
$ cd bnl
|
||||||
|
$ ls
|
||||||
|
124009 hjgjf
|
||||||
|
74860 hjpmqrq
|
||||||
|
84996 lrdl.swf
|
||||||
|
dir pnzmp
|
||||||
|
$ cd pnzmp
|
||||||
|
$ ls
|
||||||
|
dir btbtlrs
|
||||||
|
128636 nfzf
|
||||||
|
$ cd btbtlrs
|
||||||
|
$ ls
|
||||||
|
107651 hhzbwd.wzj
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ffg
|
||||||
|
$ ls
|
||||||
|
57918 jwzbs.tnt
|
||||||
|
$ cd ..
|
||||||
|
$ cd jljlwpsv
|
||||||
|
$ ls
|
||||||
|
188175 dmpsnhdh.nnb
|
||||||
|
46693 fcqrwd
|
||||||
|
111557 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd rrqjwpm
|
||||||
|
$ ls
|
||||||
|
dir bftw
|
||||||
|
dir ccsfws
|
||||||
|
87225 mccw
|
||||||
|
290654 pbb.zln
|
||||||
|
147394 twzqc.pbz
|
||||||
|
52983 wsvgf
|
||||||
|
dir wwfgbzqh
|
||||||
|
$ cd bftw
|
||||||
|
$ ls
|
||||||
|
dir brl
|
||||||
|
167154 crs
|
||||||
|
dir lmw
|
||||||
|
dir rrqjwpm
|
||||||
|
dir twpq
|
||||||
|
174963 twpq.wjl
|
||||||
|
dir vnfhb
|
||||||
|
dir wcldzp
|
||||||
|
$ cd brl
|
||||||
|
$ ls
|
||||||
|
297937 wspcnp
|
||||||
|
$ cd ..
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
166695 mcjql.jrv
|
||||||
|
$ cd ..
|
||||||
|
$ cd rrqjwpm
|
||||||
|
$ ls
|
||||||
|
198762 mwn
|
||||||
|
$ cd ..
|
||||||
|
$ cd twpq
|
||||||
|
$ ls
|
||||||
|
141835 jlwf.hcd
|
||||||
|
$ cd ..
|
||||||
|
$ cd vnfhb
|
||||||
|
$ ls
|
||||||
|
128626 tvmwhq.wfn
|
||||||
|
$ cd ..
|
||||||
|
$ cd wcldzp
|
||||||
|
$ ls
|
||||||
|
dir ncq
|
||||||
|
dir twpq
|
||||||
|
$ cd ncq
|
||||||
|
$ ls
|
||||||
|
dir wrtw
|
||||||
|
$ cd wrtw
|
||||||
|
$ ls
|
||||||
|
133331 fcqrwd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd twpq
|
||||||
|
$ ls
|
||||||
|
151811 fcqrwd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ccsfws
|
||||||
|
$ ls
|
||||||
|
100548 twpq.ppm
|
||||||
|
$ cd ..
|
||||||
|
$ cd wwfgbzqh
|
||||||
|
$ ls
|
||||||
|
dir lmw
|
||||||
|
dir mfms
|
||||||
|
dir pjbjgbcl
|
||||||
|
204154 qtflzwm
|
||||||
|
226500 vdmjj.htj
|
||||||
|
dir wzqbwr
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
dir bgl
|
||||||
|
95150 dncdssn.hdr
|
||||||
|
119653 frqqdsr.hbf
|
||||||
|
97941 hjpmqrq
|
||||||
|
dir jqthwzj
|
||||||
|
$ cd bgl
|
||||||
|
$ ls
|
||||||
|
dir lmw
|
||||||
|
dir rrqjwpm
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
233655 wmdldvbz
|
||||||
|
$ cd ..
|
||||||
|
$ cd rrqjwpm
|
||||||
|
$ ls
|
||||||
|
242918 frqqdsr.hbf
|
||||||
|
227581 hjpmqrq
|
||||||
|
dir hsvnmlp
|
||||||
|
dir nsch
|
||||||
|
25524 pbb.zln
|
||||||
|
dir qlgg
|
||||||
|
dir twpq
|
||||||
|
67453 twpq.fms
|
||||||
|
$ cd hsvnmlp
|
||||||
|
$ ls
|
||||||
|
264517 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd nsch
|
||||||
|
$ ls
|
||||||
|
7898 cmsdzh
|
||||||
|
233270 dmpsnhdh.bsq
|
||||||
|
101256 frl
|
||||||
|
133902 jzvh.vdv
|
||||||
|
dir lmw
|
||||||
|
dir sgjsg
|
||||||
|
130245 wcftvft
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
69572 bnjnc.csp
|
||||||
|
$ cd ..
|
||||||
|
$ cd sgjsg
|
||||||
|
$ ls
|
||||||
|
38856 tnzpz.tbq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd qlgg
|
||||||
|
$ ls
|
||||||
|
276013 frbstg.pzb
|
||||||
|
$ cd ..
|
||||||
|
$ cd twpq
|
||||||
|
$ ls
|
||||||
|
136454 fhwz.bqb
|
||||||
|
94099 rglp
|
||||||
|
114026 tsrt.cbd
|
||||||
|
26252 zhclpzm.rqf
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd jqthwzj
|
||||||
|
$ ls
|
||||||
|
128200 lmw.btl
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd mfms
|
||||||
|
$ ls
|
||||||
|
274935 dmpsnhdh
|
||||||
|
76547 lchwq.dsd
|
||||||
|
215701 pbb.zln
|
||||||
|
dir rmwtvjt
|
||||||
|
$ cd rmwtvjt
|
||||||
|
$ ls
|
||||||
|
74490 hjpmqrq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd pjbjgbcl
|
||||||
|
$ ls
|
||||||
|
231757 cjcpwwc.wbf
|
||||||
|
dir cswvftzs
|
||||||
|
dir jtvtg
|
||||||
|
dir lmw
|
||||||
|
dir tnctbjr
|
||||||
|
dir tqsrfhdr
|
||||||
|
$ cd cswvftzs
|
||||||
|
$ ls
|
||||||
|
dir dchqnbns
|
||||||
|
dir smf
|
||||||
|
$ cd dchqnbns
|
||||||
|
$ ls
|
||||||
|
94111 szl.hqs
|
||||||
|
$ cd ..
|
||||||
|
$ cd smf
|
||||||
|
$ ls
|
||||||
|
dir dlnsgvl
|
||||||
|
dir zglt
|
||||||
|
$ cd dlnsgvl
|
||||||
|
$ ls
|
||||||
|
dir dsz
|
||||||
|
$ cd dsz
|
||||||
|
$ ls
|
||||||
|
156473 hjpmqrq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd zglt
|
||||||
|
$ ls
|
||||||
|
295383 frgg.sdp
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd jtvtg
|
||||||
|
$ ls
|
||||||
|
202254 bftv.rqb
|
||||||
|
58419 lmw
|
||||||
|
$ cd ..
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
8097 fcqrwd
|
||||||
|
$ cd ..
|
||||||
|
$ cd tnctbjr
|
||||||
|
$ ls
|
||||||
|
250830 frqqdsr.hbf
|
||||||
|
dir gzrcqr
|
||||||
|
$ cd gzrcqr
|
||||||
|
$ ls
|
||||||
|
dir fnzgsnv
|
||||||
|
$ cd fnzgsnv
|
||||||
|
$ ls
|
||||||
|
117215 hjpmqrq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd tqsrfhdr
|
||||||
|
$ ls
|
||||||
|
96381 lmw
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd wzqbwr
|
||||||
|
$ ls
|
||||||
|
149066 dmpsnhdh.vnd
|
||||||
|
dir dpbcgfdr
|
||||||
|
dir swp
|
||||||
|
14495 twpq.gsb
|
||||||
|
dir zhj
|
||||||
|
$ cd dpbcgfdr
|
||||||
|
$ ls
|
||||||
|
12909 dmpsnhdh
|
||||||
|
dir jvn
|
||||||
|
173491 mnhpr.lpr
|
||||||
|
222018 rfqfjmd.jqq
|
||||||
|
205077 wbbdrpr.hzj
|
||||||
|
dir wzpbbbhm
|
||||||
|
$ cd jvn
|
||||||
|
$ ls
|
||||||
|
117656 vqddrqlq.nfd
|
||||||
|
233109 vqqvh.swz
|
||||||
|
$ cd ..
|
||||||
|
$ cd wzpbbbhm
|
||||||
|
$ ls
|
||||||
|
143534 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd swp
|
||||||
|
$ ls
|
||||||
|
131295 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd zhj
|
||||||
|
$ ls
|
||||||
|
166268 pbb.zln
|
||||||
|
33734 rrqjwpm.blg
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd twpq
|
||||||
|
$ ls
|
||||||
|
dir bppvlwqs
|
||||||
|
dir bvh
|
||||||
|
dir rmcdr
|
||||||
|
dir tdn
|
||||||
|
2230 whb.lfb
|
||||||
|
dir wwtwnvh
|
||||||
|
$ cd bppvlwqs
|
||||||
|
$ ls
|
||||||
|
195026 hvlhgsw
|
||||||
|
279259 rrqjwpm
|
||||||
|
$ cd ..
|
||||||
|
$ cd bvh
|
||||||
|
$ ls
|
||||||
|
dir lmw
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
66958 pdqnd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd rmcdr
|
||||||
|
$ ls
|
||||||
|
dir dmpsnhdh
|
||||||
|
182930 grj
|
||||||
|
dir pmrdhrth
|
||||||
|
119725 qpcqclqh
|
||||||
|
77890 sjgfjz
|
||||||
|
142855 twpq
|
||||||
|
dir zbmcrvbh
|
||||||
|
$ cd dmpsnhdh
|
||||||
|
$ ls
|
||||||
|
dir rrqjwpm
|
||||||
|
188474 zgjzpbl.vgv
|
||||||
|
$ cd rrqjwpm
|
||||||
|
$ ls
|
||||||
|
dir bnl
|
||||||
|
dir lmw
|
||||||
|
7598 vsntvs.pdv
|
||||||
|
$ cd bnl
|
||||||
|
$ ls
|
||||||
|
245600 lmw.mgf
|
||||||
|
$ cd ..
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
73396 hjpmqrq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd pmrdhrth
|
||||||
|
$ ls
|
||||||
|
173155 rrqjwpm.pjw
|
||||||
|
178530 smgpzs.qtj
|
||||||
|
$ cd ..
|
||||||
|
$ cd zbmcrvbh
|
||||||
|
$ ls
|
||||||
|
124201 fcqrwd
|
||||||
|
135578 hjpmqrq
|
||||||
|
54356 hnztplsp.qlh
|
||||||
|
dir lmw
|
||||||
|
58350 pbb.zln
|
||||||
|
dir qfrvdm
|
||||||
|
dir rcg
|
||||||
|
15267 rwbzjpt.djn
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
dir bbbll
|
||||||
|
28362 bfgfwlf.wvg
|
||||||
|
229637 dmpndms.fln
|
||||||
|
146121 dncdssn.hdr
|
||||||
|
131039 frqqdsr.hbf
|
||||||
|
152805 hjpmqrq
|
||||||
|
dir mlz
|
||||||
|
$ cd bbbll
|
||||||
|
$ ls
|
||||||
|
169940 dncdssn.hdr
|
||||||
|
216888 pbb.zln
|
||||||
|
248369 tjpmlr.vmf
|
||||||
|
$ cd ..
|
||||||
|
$ cd mlz
|
||||||
|
$ ls
|
||||||
|
115167 bhfv.fts
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd qfrvdm
|
||||||
|
$ ls
|
||||||
|
284564 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd rcg
|
||||||
|
$ ls
|
||||||
|
dir sqzjz
|
||||||
|
$ cd sqzjz
|
||||||
|
$ ls
|
||||||
|
116435 jrstpcpl.zsq
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd tdn
|
||||||
|
$ ls
|
||||||
|
143971 cmg
|
||||||
|
133317 fcqrwd
|
||||||
|
dir pstpclp
|
||||||
|
133161 tddv
|
||||||
|
$ cd pstpclp
|
||||||
|
$ ls
|
||||||
|
267351 hjpmqrq
|
||||||
|
86930 rrqjwpm.dvl
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd wwtwnvh
|
||||||
|
$ ls
|
||||||
|
256584 frqqdsr.hbf
|
||||||
|
114564 twpq.wrd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd vlgsrtm
|
||||||
|
$ ls
|
||||||
|
148089 bnl.jzj
|
||||||
|
119796 cjfphsfw.hnd
|
||||||
|
197668 cpw
|
||||||
|
dir dmpsnhdh
|
||||||
|
dir fjsglr
|
||||||
|
dir lmw
|
||||||
|
dir lqgrft
|
||||||
|
9231 pltdltrs
|
||||||
|
dir rmdp
|
||||||
|
109777 rncfff.fll
|
||||||
|
dir vgjzqjpq
|
||||||
|
dir ztnqnfnq
|
||||||
|
$ cd dmpsnhdh
|
||||||
|
$ ls
|
||||||
|
dir lltnrdtv
|
||||||
|
dir scthsg
|
||||||
|
$ cd lltnrdtv
|
||||||
|
$ ls
|
||||||
|
179511 pcvmpz
|
||||||
|
90913 tbr
|
||||||
|
$ cd ..
|
||||||
|
$ cd scthsg
|
||||||
|
$ ls
|
||||||
|
dir rrqjwpm
|
||||||
|
$ cd rrqjwpm
|
||||||
|
$ ls
|
||||||
|
188629 fcqrwd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd fjsglr
|
||||||
|
$ ls
|
||||||
|
139754 fcqrwd
|
||||||
|
dir pnsjwfzc
|
||||||
|
$ cd pnsjwfzc
|
||||||
|
$ ls
|
||||||
|
113848 lmw
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
54999 dmpsnhdh
|
||||||
|
dir ffhcf
|
||||||
|
251476 frqqdsr.hbf
|
||||||
|
dir jpgqspqw
|
||||||
|
198972 nhfclq.pbh
|
||||||
|
180380 nqmjnvc.fvr
|
||||||
|
dir pfsjwmbc
|
||||||
|
213768 rcvccgcd
|
||||||
|
$ cd ffhcf
|
||||||
|
$ ls
|
||||||
|
40478 svmwstq.sjj
|
||||||
|
$ cd ..
|
||||||
|
$ cd jpgqspqw
|
||||||
|
$ ls
|
||||||
|
22181 hjpmqrq
|
||||||
|
$ cd ..
|
||||||
|
$ cd pfsjwmbc
|
||||||
|
$ ls
|
||||||
|
dir bcvchw
|
||||||
|
$ cd bcvchw
|
||||||
|
$ ls
|
||||||
|
225892 bnl.nwc
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd lqgrft
|
||||||
|
$ ls
|
||||||
|
dir rrqjwpm
|
||||||
|
dir twpq
|
||||||
|
$ cd rrqjwpm
|
||||||
|
$ ls
|
||||||
|
54786 fcqrwd
|
||||||
|
3053 tthhqjm.ntd
|
||||||
|
$ cd ..
|
||||||
|
$ cd twpq
|
||||||
|
$ ls
|
||||||
|
109355 bnl
|
||||||
|
dir lmw
|
||||||
|
dir mhgqt
|
||||||
|
301291 rrqjwpm.lrm
|
||||||
|
271233 twpq.srp
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
dir lmw
|
||||||
|
dir lngbszqm
|
||||||
|
$ cd lmw
|
||||||
|
$ ls
|
||||||
|
139640 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd lngbszqm
|
||||||
|
$ ls
|
||||||
|
98279 mqvq.gsj
|
||||||
|
283599 rvjd.dvt
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd mhgqt
|
||||||
|
$ ls
|
||||||
|
208165 fcqrwd
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd rmdp
|
||||||
|
$ ls
|
||||||
|
dir bqn
|
||||||
|
170956 fcqrwd
|
||||||
|
90954 snnttp.gld
|
||||||
|
$ cd bqn
|
||||||
|
$ ls
|
||||||
|
75628 hdrgbrpc
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd vgjzqjpq
|
||||||
|
$ ls
|
||||||
|
dir bnl
|
||||||
|
dir wpfw
|
||||||
|
$ cd bnl
|
||||||
|
$ ls
|
||||||
|
25911 pbb.zln
|
||||||
|
$ cd ..
|
||||||
|
$ cd wpfw
|
||||||
|
$ ls
|
||||||
|
247784 bzll.ltc
|
||||||
|
$ cd ..
|
||||||
|
$ cd ..
|
||||||
|
$ cd ztnqnfnq
|
||||||
|
$ ls
|
||||||
|
dir dtpzsrfc
|
||||||
|
214055 srgzhp.nlr
|
||||||
|
$ cd dtpzsrfc
|
||||||
|
$ ls
|
||||||
|
142652 bhgwj
|
||||||
97
src/Day7.hs
Normal file
97
src/Day7.hs
Normal file
@@ -0,0 +1,97 @@
|
|||||||
|
module Day7 (
|
||||||
|
buildTree,
|
||||||
|
buildTree',
|
||||||
|
mkdir,
|
||||||
|
Directory (..),
|
||||||
|
calculateSize,
|
||||||
|
filterDirectories,
|
||||||
|
sumUp,
|
||||||
|
day7
|
||||||
|
) where
|
||||||
|
|
||||||
|
import Day7.Parser
|
||||||
|
import Data.Map (Map)
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
|
||||||
|
data Directory = Directory
|
||||||
|
{ sub :: Map String Directory
|
||||||
|
, files :: Map String Int
|
||||||
|
, isRoot :: Bool
|
||||||
|
} deriving (Eq)
|
||||||
|
|
||||||
|
|
||||||
|
instance Show Directory where
|
||||||
|
show d = show (files d) ++ " - " ++ show (sub d) ++ "\n"
|
||||||
|
|
||||||
|
mkdir :: Directory
|
||||||
|
mkdir = Directory { sub = Map.empty, files = Map.empty, isRoot = False }
|
||||||
|
|
||||||
|
rootDirectory :: Directory
|
||||||
|
rootDirectory = Directory { sub = Map.empty, files = Map.empty, isRoot = True }
|
||||||
|
|
||||||
|
buildTree :: [TerminalCommand] -> Directory
|
||||||
|
buildTree commands = fst (buildTree' rootDirectory commands)
|
||||||
|
|
||||||
|
buildTree' :: Directory -> [TerminalCommand] -> (Directory, [TerminalCommand])
|
||||||
|
buildTree' dir [] = (dir, [])
|
||||||
|
buildTree' dir (command:cs) = case command of
|
||||||
|
Listing entries ->
|
||||||
|
let asFiles = Map.fromList $ toFiles entries
|
||||||
|
newDir = dir { files = asFiles }
|
||||||
|
in buildTree' newDir cs
|
||||||
|
In dirName ->
|
||||||
|
let subFolders = sub dir
|
||||||
|
selectedDir = Map.findWithDefault mkdir dirName subFolders
|
||||||
|
(replacement, rest) = buildTree' selectedDir cs
|
||||||
|
updatedSub = Map.insert dirName replacement subFolders
|
||||||
|
in buildTree' dir { sub = updatedSub} rest
|
||||||
|
Out -> (dir, cs)
|
||||||
|
Root -> if isRoot dir
|
||||||
|
then buildTree' dir cs
|
||||||
|
else (dir, command:cs)
|
||||||
|
|
||||||
|
toFiles :: [ListingEntry] -> [(String, Int)]
|
||||||
|
toFiles ((FileListing name size):rest) = (name, size): toFiles rest
|
||||||
|
toFiles (_:rest) = toFiles rest
|
||||||
|
toFiles [] = []
|
||||||
|
|
||||||
|
sizeThreshold :: Int
|
||||||
|
sizeThreshold = 100000
|
||||||
|
|
||||||
|
calculateSize :: Directory -> Int
|
||||||
|
calculateSize dir = sum (Map.elems (files dir)) + sum sizes
|
||||||
|
where
|
||||||
|
subFolders = Map.elems (sub dir)
|
||||||
|
sizes = map calculateSize subFolders
|
||||||
|
|
||||||
|
flatten :: Directory -> [(String, Directory)]
|
||||||
|
flatten dir = flatten' ("/", dir)
|
||||||
|
where
|
||||||
|
flatten' (name, d) = (name, d) : concatMap flatten' (Map.toList (sub d))
|
||||||
|
|
||||||
|
sizeOfDirectories :: Directory -> [(String, Int)]
|
||||||
|
sizeOfDirectories dir = map withSize allDirectories
|
||||||
|
where
|
||||||
|
allDirectories = flatten dir
|
||||||
|
withSize (name, directory) = (name, calculateSize directory)
|
||||||
|
|
||||||
|
filterDirectories :: (Int -> Bool) -> Directory -> [(String, Int)]
|
||||||
|
filterDirectories predicate dir = filter (\(_, size) -> predicate size) $ sizeOfDirectories dir
|
||||||
|
|
||||||
|
sumUp :: [(String, Int)] -> Int
|
||||||
|
sumUp = sum . map snd
|
||||||
|
|
||||||
|
|
||||||
|
forceRight :: Either a b -> b
|
||||||
|
forceRight (Left _) = error "forced Right but got Left"
|
||||||
|
forceRight (Right b) = b
|
||||||
|
|
||||||
|
day7 :: IO ()
|
||||||
|
day7 = do
|
||||||
|
input <- readFile "ressources/day07-input"
|
||||||
|
putStrLn "Day7"
|
||||||
|
let parsed = forceRight $ parseTerminalLines input
|
||||||
|
let tree = buildTree parsed
|
||||||
|
let filtered = filterDirectories (<= 100000) tree
|
||||||
|
let summed = sumUp filtered
|
||||||
|
putStrLn ("Sum of those directories is " ++ show summed)
|
||||||
68
src/Day7/Parser.hs
Normal file
68
src/Day7/Parser.hs
Normal file
@@ -0,0 +1,68 @@
|
|||||||
|
module Day7.Parser (
|
||||||
|
parseTerminalLines,
|
||||||
|
TerminalCommand (..),
|
||||||
|
ListingEntry (..),
|
||||||
|
DirName,
|
||||||
|
FileName,
|
||||||
|
Size
|
||||||
|
) where
|
||||||
|
|
||||||
|
import Text.ParserCombinators.Parsec
|
||||||
|
|
||||||
|
type DirName = String
|
||||||
|
type FileName = String
|
||||||
|
type Size = Int
|
||||||
|
|
||||||
|
data ListingEntry = DirListing DirName | FileListing FileName Size
|
||||||
|
deriving (Show, Eq)
|
||||||
|
|
||||||
|
data TerminalCommand = In DirName | Out | Root | Listing [ListingEntry]
|
||||||
|
deriving (Show, Eq)
|
||||||
|
|
||||||
|
parseTerminalLines :: String -> Either ParseError [TerminalCommand]
|
||||||
|
parseTerminalLines = parse terminal "(error)"
|
||||||
|
|
||||||
|
terminal :: GenParser Char st [TerminalCommand]
|
||||||
|
terminal = many command
|
||||||
|
|
||||||
|
command :: GenParser Char st TerminalCommand
|
||||||
|
command = do
|
||||||
|
_ <- string "$ "
|
||||||
|
cd <|> ls
|
||||||
|
|
||||||
|
ls :: GenParser Char st TerminalCommand
|
||||||
|
ls = do
|
||||||
|
_ <- string "ls\n"
|
||||||
|
entries <- many listingEntry
|
||||||
|
return $ Listing entries
|
||||||
|
|
||||||
|
listingEntry :: GenParser Char st ListingEntry
|
||||||
|
listingEntry = dirListing <|> fileListing
|
||||||
|
|
||||||
|
dirListing :: GenParser Char st ListingEntry
|
||||||
|
dirListing = do
|
||||||
|
_ <- string "dir "
|
||||||
|
dirName <- many $ noneOf "\n"
|
||||||
|
_ <- char '\n'
|
||||||
|
return $ DirListing dirName
|
||||||
|
|
||||||
|
fileListing :: GenParser Char st ListingEntry
|
||||||
|
fileListing = do
|
||||||
|
fileSize <- many1 digit
|
||||||
|
_ <- char ' '
|
||||||
|
fileName <- many $ noneOf "\n"
|
||||||
|
_ <- char '\n'
|
||||||
|
return $ FileListing fileName (read fileSize)
|
||||||
|
|
||||||
|
cd :: GenParser Char st TerminalCommand
|
||||||
|
cd = do
|
||||||
|
_ <- string "cd "
|
||||||
|
name <- many $ noneOf "\n"
|
||||||
|
_ <- char '\n'
|
||||||
|
return (nameToDir name)
|
||||||
|
|
||||||
|
nameToDir :: DirName -> TerminalCommand
|
||||||
|
nameToDir "/" = Root
|
||||||
|
nameToDir ".." = Out
|
||||||
|
nameToDir ds = In ds
|
||||||
|
|
||||||
@@ -8,6 +8,7 @@ import Day3
|
|||||||
import Day4
|
import Day4
|
||||||
import Day5
|
import Day5
|
||||||
import Day6
|
import Day6
|
||||||
|
import Day7
|
||||||
|
|
||||||
someFunc :: IO ()
|
someFunc :: IO ()
|
||||||
someFunc = do
|
someFunc = do
|
||||||
@@ -22,5 +23,7 @@ someFunc = do
|
|||||||
day5
|
day5
|
||||||
putStrLn "-----------"
|
putStrLn "-----------"
|
||||||
day6
|
day6
|
||||||
|
putStrLn "-----------"
|
||||||
|
day7
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
133
test/Day7Spec.hs
Normal file
133
test/Day7Spec.hs
Normal file
@@ -0,0 +1,133 @@
|
|||||||
|
{-# LANGUAGE QuasiQuotes #-}
|
||||||
|
module Day7Spec (spec) where
|
||||||
|
|
||||||
|
import Test.Hspec
|
||||||
|
import Text.Heredoc
|
||||||
|
|
||||||
|
import Day7
|
||||||
|
import Day7.Parser
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
|
||||||
|
inputPart1 :: String
|
||||||
|
inputPart1 = [str|$ cd /
|
||||||
|
|$ ls
|
||||||
|
|dir a
|
||||||
|
|14848514 b.txt
|
||||||
|
|8504156 c.dat
|
||||||
|
|dir d
|
||||||
|
|$ cd a
|
||||||
|
|$ ls
|
||||||
|
|dir e
|
||||||
|
|29116 f
|
||||||
|
|2557 g
|
||||||
|
|62596 h.lst
|
||||||
|
|$ cd e
|
||||||
|
|$ ls
|
||||||
|
|584 i
|
||||||
|
|$ cd ..
|
||||||
|
|$ cd ..
|
||||||
|
|$ cd d
|
||||||
|
|$ ls
|
||||||
|
|4060174 j
|
||||||
|
|8033020 d.log
|
||||||
|
|5626152 d.ext
|
||||||
|
|7214296 k
|
||||||
|
|]
|
||||||
|
|
||||||
|
cdTerm :: [TerminalCommand]
|
||||||
|
cdTerm = forceRight $ parseTerminalLines
|
||||||
|
[str|$ cd foo
|
||||||
|
|$ ls
|
||||||
|
|23 f
|
||||||
|
|34 f2
|
||||||
|
|dir d
|
||||||
|
|$ cd ..
|
||||||
|
|]
|
||||||
|
|
||||||
|
cdOutTerm :: [TerminalCommand]
|
||||||
|
cdOutTerm = forceRight $ parseTerminalLines
|
||||||
|
[str|$ cd foo
|
||||||
|
|$ ls
|
||||||
|
|42 f
|
||||||
|
|$ cd ..
|
||||||
|
|$ cd bar
|
||||||
|
|$ ls
|
||||||
|
|100 baba
|
||||||
|
|$ cd x
|
||||||
|
|$ cd /
|
||||||
|
|$ ls
|
||||||
|
|23 f
|
||||||
|
|dir foo
|
||||||
|
|dir bar
|
||||||
|
|]
|
||||||
|
cdOutParsed :: [TerminalCommand]
|
||||||
|
cdOutParsed = [
|
||||||
|
In "foo",
|
||||||
|
Listing [FileListing "f" 42],
|
||||||
|
Out,
|
||||||
|
In "bar",
|
||||||
|
Listing [FileListing "baba" 100],
|
||||||
|
In "x",
|
||||||
|
Root,
|
||||||
|
Listing [FileListing "f" 23, DirListing "foo", DirListing "bar"]
|
||||||
|
]
|
||||||
|
|
||||||
|
forceRight :: Either a b -> b
|
||||||
|
forceRight (Left _) = error "forced Right but got Left"
|
||||||
|
forceRight (Right b) = b
|
||||||
|
|
||||||
|
spec :: Spec
|
||||||
|
spec =
|
||||||
|
describe "Day7" $ do
|
||||||
|
describe "Part1" $ do
|
||||||
|
describe "parser" $ do
|
||||||
|
it "parses an ls command" $ do
|
||||||
|
parseTerminalLines "$ ls\n" `shouldBe` Right [Listing []]
|
||||||
|
it "parses a cd up command" $ do
|
||||||
|
parseTerminalLines "$ cd ..\n" `shouldBe` Right [Out]
|
||||||
|
it "parses a cd root command" $ do
|
||||||
|
parseTerminalLines "$ cd /\n" `shouldBe` Right [Root]
|
||||||
|
it "parses a cd in command" $ do
|
||||||
|
parseTerminalLines "$ cd dirname\n" `shouldBe` Right [In "dirname"]
|
||||||
|
it "parses a file listing line" $ do
|
||||||
|
parseTerminalLines "$ ls\n1234 f\n$ cd foo\n" `shouldBe` Right [Listing [FileListing "f" 1234], In "foo"]
|
||||||
|
it "parses a larger shell log" $ do
|
||||||
|
cdOutTerm `shouldBe` cdOutParsed
|
||||||
|
describe "tree" $ do
|
||||||
|
it "reads a listing" $ do
|
||||||
|
buildTree [Listing [FileListing "f" 123]] `shouldBe`
|
||||||
|
mkdir { files = Map.singleton "f" 123, isRoot = True }
|
||||||
|
it "changes dir" $ do
|
||||||
|
buildTree cdTerm `shouldBe`
|
||||||
|
mkdir {
|
||||||
|
sub = Map.fromList [
|
||||||
|
("foo", mkdir { files = Map.fromList [("f", 23), ("f2", 34)] })
|
||||||
|
],
|
||||||
|
files = Map.empty,
|
||||||
|
isRoot = True
|
||||||
|
}
|
||||||
|
it "changes dir outwards" $ do
|
||||||
|
buildTree cdOutTerm `shouldBe`
|
||||||
|
mkdir {
|
||||||
|
sub = Map.fromList [
|
||||||
|
("foo", mkdir { files = Map.fromList [("f", 42)] } ),
|
||||||
|
("bar", mkdir {
|
||||||
|
sub = Map.fromList [("x", mkdir)],
|
||||||
|
files = Map.fromList [("baba", 100)]
|
||||||
|
} )
|
||||||
|
],
|
||||||
|
files = Map.fromList [("f", 23)],
|
||||||
|
isRoot = True
|
||||||
|
}
|
||||||
|
it "calculates size of directories" $ do
|
||||||
|
calculateSize mkdir { files = Map.fromList [("f", 23), ("f2", 34)] }
|
||||||
|
`shouldBe` 23 + 34
|
||||||
|
calculateSize mkdir {
|
||||||
|
sub = Map.fromList [ ("d", mkdir { files = Map.fromList [("f", 23), ("f2", 34)] })] }
|
||||||
|
`shouldBe` 23 + 34
|
||||||
|
it "sums stuff up" $ do
|
||||||
|
let parsed = forceRight $ parseTerminalLines inputPart1
|
||||||
|
let tree = buildTree parsed
|
||||||
|
let filtered = filterDirectories (<= 100000) tree
|
||||||
|
let summed = sumUp filtered
|
||||||
|
summed `shouldBe` 95437
|
||||||
Reference in New Issue
Block a user