[2022/D07] Solved both tasks from today

3 files changed, 1050 insertions, 16 deletions

diff --git a/2022/Day07/input-po.txt b/2022/Day07/input-po.txt
new file mode 100644
index 0000000..5fd04a2
--- /dev/null
+++ b/2022/Day07/input-po.txt
@@ -0,0 +1,967 @@
+$ cd /
+$ ls
+dir fcqv
+dir fcv
+72939 hdpgfcwd
+236918 jlncjqh.csz
+dir jvwfwrg
+dir tzwpllhq
+dir vglf
+28586 wzljr.zvp
+$ cd fcqv
+$ ls
+dir fhg
+277152 qldfrhm.qnr
+269351 qsd
+dir thbb
+$ cd fhg
+$ ls
+dir jljrdvw
+$ cd jljrdvw
+$ ls
+101940 vsvgjg.tpn
+$ cd ..
+$ cd ..
+$ cd thbb
+$ ls
+144311 cchngzcc.lcd
+178246 fbsj.wtl
+48521 gfsqtssb.vtg
+284713 jwl.hll
+96717 wdqqqv.pcr
+$ cd ..
+$ cd ..
+$ cd fcv
+$ ls
+dir ffhwwg
+275505 fprcz.hrd
+179689 jwn
+69265 tfnws.drt
+38365 twvt.dbs
+dir vcqsrw
+247592 zldbq
+dir znzpm
+$ cd ffhwwg
+$ ls
+dir hlqf
+$ cd hlqf
+$ ls
+30443 vrdbrwp.dss
+$ cd ..
+$ cd ..
+$ cd vcqsrw
+$ ls
+dir bzlnsjmv
+dir rvbtnz
+224487 slr
+255340 vrdbrwp.dss
+$ cd bzlnsjmv
+$ ls
+272548 qwqlzvzv
+$ cd ..
+$ cd rvbtnz
+$ ls
+165670 jwl.lhn
+$ cd ..
+$ cd ..
+$ cd znzpm
+$ ls
+dir mjwnsw
+$ cd mjwnsw
+$ ls
+219638 bzcb
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd jvwfwrg
+$ ls
+dir ffhwwg
+42104 hmphb.qvq
+dir hzjpg
+dir jwl
+dir nmz
+243217 qldfrhm.rws
+dir tdjtv
+dir wdn
+$ cd ffhwwg
+$ ls
+179995 hcbf.dhw
+176263 lgssjp.mnl
+$ cd ..
+$ cd hzjpg
+$ ls
+241535 ddlcslcs.zjh
+dir ddrwfq
+dir mqwww
+29329 qwqlzvzv
+91380 vrdbrwp.dss
+dir wctwz
+210633 wdqqqv.pcr
+dir wlrmbtdg
+172051 zldbq
+$ cd ddrwfq
+$ ls
+11756 ffhwwg
+$ cd ..
+$ cd mqwww
+$ ls
+149750 wlfmbv.cgp
+$ cd ..
+$ cd wctwz
+$ ls
+277720 qldfrhm.bph
+$ cd ..
+$ cd wlrmbtdg
+$ ls
+14154 ffhwwg
+dir hgdjv
+dir qldfrhm
+48920 qwqlzvzv
+101228 wdqqqv.pcr
+159676 zldbq
+$ cd hgdjv
+$ ls
+dir hlw
+$ cd hlw
+$ ls
+229687 cdzwfzww.wcv
+$ cd ..
+$ cd ..
+$ cd qldfrhm
+$ ls
+254189 nfbp.gcg
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd jwl
+$ ls
+277778 drtw
+dir ghgf
+dir gqlmq
+163875 jwl.pmm
+dir mjm
+dir qgq
+$ cd ghgf
+$ ls
+181540 zsgjptrm.thf
+$ cd ..
+$ cd gqlmq
+$ ls
+dir ffhwwg
+283989 hzpwn
+dir jwl
+dir pqdqntr
+62581 vrdbrwp.dss
+$ cd ffhwwg
+$ ls
+242533 qwqlzvzv
+21991 wdqqqv.pcr
+$ cd ..
+$ cd jwl
+$ ls
+179926 jfgbmb.qsd
+dir zjv
+$ cd zjv
+$ ls
+102693 ffhwwg.hrt
+$ cd ..
+$ cd ..
+$ cd pqdqntr
+$ ls
+159376 nqwcsdmv
+$ cd ..
+$ cd ..
+$ cd mjm
+$ ls
+273410 hdbmpnfv
+8169 qwqlzvzv
+87728 tfgq.vbt
+221237 vrdbrwp.dss
+$ cd ..
+$ cd qgq
+$ ls
+dir dgq
+dir hlw
+164971 jvwfwrg
+dir jwl
+158534 qftjvcz.pfv
+251561 qzzpmh
+282035 wsz
+$ cd dgq
+$ ls
+dir ffhwwg
+237291 nfqzn
+70142 qfnrvmp.vbb
+55607 zldbq
+$ cd ffhwwg
+$ ls
+117790 sqhrdmd.thc
+186465 tfctr.scc
+236863 wdqqqv.pcr
+$ cd ..
+$ cd ..
+$ cd hlw
+$ ls
+244567 wrnplfgg.pcw
+$ cd ..
+$ cd jwl
+$ ls
+105997 lpsg.jjl
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd nmz
+$ ls
+51802 qwqlzvzv
+128617 zldbq
+$ cd ..
+$ cd tdjtv
+$ ls
+dir jvwfwrg
+dir mdmwf
+dir rlpbrq
+$ cd jvwfwrg
+$ ls
+35406 wdqqqv.pcr
+$ cd ..
+$ cd mdmwf
+$ ls
+dir ffhwwg
+15609 rdpwqw.pfv
+205721 zldbq
+$ cd ffhwwg
+$ ls
+117473 hdcv.cwj
+$ cd ..
+$ cd ..
+$ cd rlpbrq
+$ ls
+120058 dgddvmt.fnv
+194704 ffhwwg
+256467 qwqlzvzv
+$ cd ..
+$ cd ..
+$ cd wdn
+$ ls
+170094 bzqsnv
+dir gqmghw
+150252 gwgz.fnf
+243953 jfgbmb.qsd
+123382 qwqlzvzv
+96220 wpc.swm
+dir ztqbhjr
+$ cd gqmghw
+$ ls
+dir tlgbcrh
+$ cd tlgbcrh
+$ ls
+281457 ztjhcrwf.ljf
+$ cd ..
+$ cd ..
+$ cd ztqbhjr
+$ ls
+271212 jfgbmb.qsd
+dir nbhq
+dir vfmmj
+260079 vrdbrwp.dss
+$ cd nbhq
+$ ls
+179096 hlw.hrh
+150184 wdqqqv.pcr
+$ cd ..
+$ cd vfmmj
+$ ls
+57445 hlw.pfb
+40329 qldfrhm
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd tzwpllhq
+$ ls
+33596 cmwwd
+16963 hlw.jrw
+161107 hlw.npq
+dir jwv
+152431 nqf.jjg
+dir qldfrhm
+dir swmwvl
+dir wzpth
+$ cd jwv
+$ ls
+dir bgswd
+188795 hlw
+dir jvwfwrg
+dir jwl
+dir mbcb
+dir qldfrhm
+30173 qwqlzvzv
+193577 zldbq
+$ cd bgswd
+$ ls
+dir hdgt
+216966 ldbg.dzh
+$ cd hdgt
+$ ls
+70441 fnv.bpl
+$ cd ..
+$ cd ..
+$ cd jvwfwrg
+$ ls
+dir mctsws
+69374 qldfrhm
+$ cd mctsws
+$ ls
+257337 qsgvbj
+$ cd ..
+$ cd ..
+$ cd jwl
+$ ls
+161061 ffhwwg
+$ cd ..
+$ cd mbcb
+$ ls
+dir fbhhq
+dir rgjwh
+$ cd fbhhq
+$ ls
+dir vnn
+$ cd vnn
+$ ls
+55629 cthtjm.wbt
+$ cd ..
+$ cd ..
+$ cd rgjwh
+$ ls
+7826 wrhpmqd.fvw
+$ cd ..
+$ cd ..
+$ cd qldfrhm
+$ ls
+14471 hlw.lwh
+163165 jnpgzcmt
+10880 qwqlzvzv
+$ cd ..
+$ cd ..
+$ cd qldfrhm
+$ ls
+dir ffhwwg
+dir jwl
+15164 ldmm
+188544 pwg.zsf
+255566 qjlggt
+dir tbngqwb
+59898 zldbq
+$ cd ffhwwg
+$ ls
+218749 ffhwwg.ztr
+$ cd ..
+$ cd jwl
+$ ls
+40245 cbhtl.frv
+268818 fmwvvg
+161866 nqp
+dir nsvjcpc
+dir nwdvblg
+171528 qldfrhm
+dir qqmb
+282266 wdqqqv.pcr
+$ cd nsvjcpc
+$ ls
+43660 wtnhh.zgw
+$ cd ..
+$ cd nwdvblg
+$ ls
+dir cltj
+dir fds
+$ cd cltj
+$ ls
+86970 dlzsw.whj
+111805 qwqlzvzv
+247438 zldbq
+$ cd ..
+$ cd fds
+$ ls
+49560 fsrvhv.lhd
+234970 jvwfwrg.pfd
+133376 qgbmc
+$ cd ..
+$ cd ..
+$ cd qqmb
+$ ls
+139542 qzm.jjz
+$ cd ..
+$ cd ..
+$ cd tbngqwb
+$ ls
+dir jwl
+273706 vcfmt.jqv
+76731 wdqqqv.pcr
+$ cd jwl
+$ ls
+45969 ltvvm
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd swmwvl
+$ ls
+32187 dzn.rnz
+dir gsj
+83763 jfgbmb.qsd
+93113 vrdbrwp.dss
+$ cd gsj
+$ ls
+dir fpzj
+152202 wntpsp.tbf
+$ cd fpzj
+$ ls
+83665 btwqdhnf.qwz
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd wzpth
+$ ls
+dir snhss
+$ cd snhss
+$ ls
+dir hlw
+$ cd hlw
+$ ls
+15123 qwqlzvzv
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd vglf
+$ ls
+dir gdjmt
+dir hnnw
+dir htqzfcc
+dir nqf
+269558 qldfrhm
+116732 rqg.zbf
+dir tvmqzwmn
+72822 vrdbrwp.dss
+$ cd gdjmt
+$ ls
+214742 jfgbmb.qsd
+$ cd ..
+$ cd hnnw
+$ ls
+dir ffhwwg
+217384 jfgbmb.qsd
+153385 jvwfwrg
+dir jwl
+dir shdt
+143935 vrdbrwp.dss
+90319 zldbq
+101043 zqvwfhrz.rfz
+$ cd ffhwwg
+$ ls
+dir dsqwrdnq
+261158 jvwfwrg.plf
+$ cd dsqwrdnq
+$ ls
+129823 pngjr.rpg
+$ cd ..
+$ cd ..
+$ cd jwl
+$ ls
+dir bzq
+215828 hpqtdllh
+dir jjmndb
+dir pjzqjbd
+dir pmslv
+dir smfg
+dir wmjjwh
+$ cd bzq
+$ ls
+199534 jvwfwrg.tnt
+$ cd ..
+$ cd jjmndb
+$ ls
+dir cbfdqtc
+dir gnjlnz
+dir hlw
+201443 lgdvsvc.wvp
+dir lzlwstch
+175514 nlvh.rjc
+dir qldfrhm
+144450 qwqlzvzv
+dir ssh
+dir tbdhtqn
+150014 ttp.zqf
+240619 wdqqqv.pcr
+$ cd cbfdqtc
+$ ls
+39125 ffhwwg.fpg
+264178 jpnslr.qqt
+180897 wjmfvtvn
+$ cd ..
+$ cd gnjlnz
+$ ls
+217994 jwl.ddh
+$ cd ..
+$ cd hlw
+$ ls
+dir chgwjl
+dir dsz
+165192 ffhwwg.qfc
+40771 gzph.mvb
+46495 jvwfwrg
+122203 lhgfb.blq
+175167 qwqlzvzv
+dir ttr
+$ cd chgwjl
+$ ls
+284909 jwl.qqp
+$ cd ..
+$ cd dsz
+$ ls
+47411 bsshfjl.wbd
+$ cd ..
+$ cd ttr
+$ ls
+dir fgbgl
+dir qsflswrq
+5609 sfz
+250311 vrdbrwp.dss
+$ cd fgbgl
+$ ls
+203288 scclvct
+$ cd ..
+$ cd qsflswrq
+$ ls
+222611 ffhwwg
+143339 thrwtw.nsg
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd lzlwstch
+$ ls
+dir ffhwwg
+dir hwmzp
+dir jvwfwrg
+dir ndpbn
+dir qllzhd
+$ cd ffhwwg
+$ ls
+51165 hlw.hdn
+$ cd ..
+$ cd hwmzp
+$ ls
+54571 qwqlzvzv
+$ cd ..
+$ cd jvwfwrg
+$ ls
+130055 qldfrhm
+$ cd ..
+$ cd ndpbn
+$ ls
+160215 hptz.zms
+$ cd ..
+$ cd qllzhd
+$ ls
+41306 hwnllpw.vjp
+162845 vrdbrwp.dss
+$ cd ..
+$ cd ..
+$ cd qldfrhm
+$ ls
+dir bwcg
+dir ffhwwg
+$ cd bwcg
+$ ls
+181254 wpzpd
+$ cd ..
+$ cd ffhwwg
+$ ls
+240618 cdmlz.wsf
+dir ffhwwg
+201345 jfww
+128709 jwl.gwc
+284209 pswsrf.wwt
+dir qldfrhm
+$ cd ffhwwg
+$ ls
+13278 wcc.qmr
+165094 wdqqqv.pcr
+$ cd ..
+$ cd qldfrhm
+$ ls
+104797 ccgfmcnc.jrg
+273814 hlw.pnt
+182685 jvwfwrg.szl
+190595 stjhgqd
+dir stpvb
+105499 vbqw.vwc
+dir zldj
+$ cd stpvb
+$ ls
+221672 vrdbrwp.dss
+$ cd ..
+$ cd zldj
+$ ls
+dir jwl
+$ cd jwl
+$ ls
+130858 jhqhfrbp.nff
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ssh
+$ ls
+65814 jfgbmb.qsd
+dir jvwfwrg
+70744 zqhftjbs.jwd
+$ cd jvwfwrg
+$ ls
+212356 jfgf.szv
+$ cd ..
+$ cd ..
+$ cd tbdhtqn
+$ ls
+37228 ffhwwg.vvc
+69069 nrtgtbmp.qlv
+dir rmrwm
+166294 zldbq
+$ cd rmrwm
+$ ls
+118846 qldfrhm.hns
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd pjzqjbd
+$ ls
+259092 cqlfdc.qdp
+89322 nmpvmdlp
+$ cd ..
+$ cd pmslv
+$ ls
+82637 jwl.lhz
+$ cd ..
+$ cd smfg
+$ ls
+dir gfbpcr
+dir sghtlzqv
+$ cd gfbpcr
+$ ls
+23958 hnpgr.htf
+$ cd ..
+$ cd sghtlzqv
+$ ls
+275943 jfgbmb.qsd
+149592 qwqlzvzv
+285215 sgptfc.msd
+179076 zldbq
+$ cd ..
+$ cd ..
+$ cd wmjjwh
+$ ls
+198333 jfgbmb.qsd
+59553 qwqlzvzv
+91883 wdqqqv.pcr
+7054 zldbq
+$ cd ..
+$ cd ..
+$ cd shdt
+$ ls
+27781 hlw.vcl
+255994 jpd
+dir mrgppm
+dir mwvgmjmb
+dir nsbrbcq
+263384 rbwbqf.qjc
+251640 tgr.rdc
+16959 zldbq
+$ cd mrgppm
+$ ls
+dir ghzhzzp
+dir jwl
+dir tgpm
+$ cd ghzhzzp
+$ ls
+dir bqplqq
+dir vtqgwsj
+$ cd bqplqq
+$ ls
+234131 lntldzhp
+$ cd ..
+$ cd vtqgwsj
+$ ls
+260109 qrzrfzr
+$ cd ..
+$ cd ..
+$ cd jwl
+$ ls
+112258 ffhwwg.wvp
+$ cd ..
+$ cd tgpm
+$ ls
+dir hlw
+167788 zldbq
+$ cd hlw
+$ ls
+70960 qwqlzvzv
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd mwvgmjmb
+$ ls
+142087 pvpw.wtv
+$ cd ..
+$ cd nsbrbcq
+$ ls
+dir hljjp
+$ cd hljjp
+$ ls
+125853 jfgbmb.qsd
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd htqzfcc
+$ ls
+dir cqs
+dir dsnpcnv
+dir ffhwwg
+90664 jfgbmb.qsd
+92316 lsjtfbvt
+dir mftm
+dir mmgn
+dir qqvzvw
+166400 qwqlzvzv
+dir vtf
+dir wrbwbdt
+$ cd cqs
+$ ls
+232548 nnv.wph
+35933 rwqj.crp
+$ cd ..
+$ cd dsnpcnv
+$ ls
+115805 ffhwwg.tvt
+$ cd ..
+$ cd ffhwwg
+$ ls
+dir qldfrhm
+dir wjj
+$ cd qldfrhm
+$ ls
+221567 qwqlzvzv
+dir rsztzjcm
+33248 vrdbrwp.dss
+114731 wdqqqv.pcr
+276521 zldbq
+$ cd rsztzjcm
+$ ls
+268313 frdpwjsh.wsh
+283644 jfgbmb.qsd
+dir jhdcdm
+84130 jvwfwrg.vsd
+31286 jwl.rth
+$ cd jhdcdm
+$ ls
+212461 qwqlzvzv
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd wjj
+$ ls
+89758 jvwfwrg.mmg
+163105 vrdbrwp.dss
+$ cd ..
+$ cd ..
+$ cd mftm
+$ ls
+278389 bbth.bht
+$ cd ..
+$ cd mmgn
+$ ls
+28122 zldbq
+$ cd ..
+$ cd qqvzvw
+$ ls
+dir mjw
+dir qldfrhm
+dir zbmpdwtc
+$ cd mjw
+$ ls
+dir cvn
+dir dlgzc
+10631 jfgbmb.qsd
+206351 qldfrhm.hgf
+136824 qwqlzvzv
+116870 qwzczrcf
+$ cd cvn
+$ ls
+146142 ggtd.jlp
+$ cd ..
+$ cd dlgzc
+$ ls
+130120 wpc
+$ cd ..
+$ cd ..
+$ cd qldfrhm
+$ ls
+260238 bpf.jbv
+270180 cwdnf
+dir czwwzj
+50884 jvwfwrg.fmq
+dir mjpzgbww
+252028 qtdzw.bmb
+dir rzqj
+$ cd czwwzj
+$ ls
+dir cpwwqrph
+19863 jfgbmb.qsd
+dir snl
+83915 vrdbrwp.dss
+$ cd cpwwqrph
+$ ls
+dir jvwfwrg
+$ cd jvwfwrg
+$ ls
+176717 jfgbmb.qsd
+$ cd ..
+$ cd ..
+$ cd snl
+$ ls
+dir btngcvt
+dir ffhwwg
+53428 gchwbc.jtf
+220232 vrdbrwp.dss
+$ cd btngcvt
+$ ls
+172859 jwl.smp
+dir tgcqmbrn
+$ cd tgcqmbrn
+$ ls
+149905 jvwfwrg
+$ cd ..
+$ cd ..
+$ cd ffhwwg
+$ ls
+145399 qldfrhm.hbg
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd mjpzgbww
+$ ls
+52355 bwzwfjtc.rmn
+5856 ffhwwg.tnh
+146211 scbdnlgl
+$ cd ..
+$ cd rzqj
+$ ls
+dir jmjszd
+134481 vgr
+187382 vrdbrwp.dss
+$ cd jmjszd
+$ ls
+81971 qldfrhm
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd zbmpdwtc
+$ ls
+193744 jvntrn
+231403 qwqlzvzv
+$ cd ..
+$ cd ..
+$ cd vtf
+$ ls
+2562 vzngcbq
+$ cd ..
+$ cd wrbwbdt
+$ ls
+dir brzwbmc
+29261 hlw
+$ cd brzwbmc
+$ ls
+dir ggh
+174287 jfgbmb.qsd
+dir jwl
+247329 mpdz
+dir thm
+83546 vrdbrwp.dss
+231269 wmwhhhmn.rms
+$ cd ggh
+$ ls
+dir cqrmsltg
+18724 mrlwwdv.ffb
+$ cd cqrmsltg
+$ ls
+dir ffhwwg
+dir jvwfwrg
+41263 pmrmh.zmn
+dir tcjr
+$ cd ffhwwg
+$ ls
+dir hlw
+$ cd hlw
+$ ls
+139875 ljnfchr.frr
+$ cd ..
+$ cd ..
+$ cd jvwfwrg
+$ ls
+141078 zldbq
+$ cd ..
+$ cd tcjr
+$ ls
+dir hnngpdc
+153685 jwl
+93502 nwlsf.dbq
+226658 qwqlzvzv
+$ cd hnngpdc
+$ ls
+243203 gchtc.sst
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd jwl
+$ ls
+62087 hfp.cfv
+$ cd ..
+$ cd thm
+$ ls
+228008 dfqgcd.frc
+167850 glblcw
+dir jvwfwrg
+$ cd jvwfwrg
+$ ls
+dir ffhwwg
+dir jgvf
+170488 qmc.vgf
+$ cd ffhwwg
+$ ls
+258985 jfgbmb.qsd
+$ cd ..
+$ cd jgvf
+$ ls
+150671 rdplqftl
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd ..
+$ cd nqf
+$ ls
+dir rglrpqd
+$ cd rglrpqd
+$ ls
+276785 nnbs.dhr
+224128 qwqlzvzv
+$ cd ..
+$ cd ..
+$ cd tvmqzwmn
+$ ls
+47655 jfgbmb.qsd
+233646 qwqlzvzv
+237245 rqfp
+185131 whntfvm.sfz
diff --git a/2022/Day07/part-one.cl b/2022/Day07/part-one.cl
index e1ffecc..390cd24 100644
--- a/2022/Day07/part-one.cl
+++ b/2022/Day07/part-one.cl
@@ -1,4 +1,3 @@
-
 ;;; https://gitlab.com/Syndamia/senzill
 (require :senzill)
 (use-package :senzill.math)
@@ -6,28 +5,44 @@
 (use-package :senzill.io)
 
 (ask-for-stream (prog-input)
-  (let* ((folders '("/" 0 0)) (current-folder 0))
+  ;;; Every 3 consecutive values (in FOLDERS) represent one folder, where
+  ;;; the first is it's name, second is size of all files inside and third is parent folder.
+  (let* ((folders '("/" 0 -1)) (current-folder 0) (temp-size 0))
     (defun parse-cd (loc)
-      (cond ((string= loc "/")
-             (setf current-folder 0))
-            ((string= loc "..")
-             (setf current-folder (nth (+ 2 current-folder) folders))
-            (T
-             (setf current-folder (position-if (lambda (x) (and (stringp x) (string= x loc)))
-                                               current-folder))))))
+      "Updates CURRENT-FOLDER to point to index of chosen folder"
+      (if (string= loc "..")
+          (setf current-folder (nth (+ 2 current-folder) folders))
+          (+= current-folder (position-if (lambda (x) (and (stringp x) (string= x loc)))
+                                          (nthcdr current-folder folders)
+                                          :from-end T)))) ; Dirty trick for not properly handling folders with same names in different locations
 
     (defun parse-dir (name)
-      (push-back name folders)
-      (push-back 0 folders)               ; sum of size of all files
+      "Adds a new folder inside folders"
+      (push-back name           folders)
+      (push-back 0              folders)
       (push-back current-folder folders))
 
+    ;;; Parses input lines
     (doread-lines (inpt :read-line-options (prog-input NIL))
-                  (cond ((and (char= (char inpt 0) #\$) (char= (char inpt 2) #\c))
+                  ;; "$ ls" isn't parsed, because we don't need to
+                  (cond ;; if we have "$ cd"
+                        ((and (char= (char inpt 0) #\$) (char= (char inpt 2) #\c))
                          (parse-cd (subseq inpt 5)))
+                        ;; if we have "dir ..."
                         ((char= (char inpt 0) #\d)
                          (parse-dir (subseq inpt 4)))
+                        ;; if we have "<NUMBER> <FILE_NAME>"
                         ((digit-char-p (char inpt 0))
-                         (+= (nth (+ 1 current-folder) folders) (parse-integer inpt :junk-allowed T))))
-                  (print current-folder)
-                  (force-output))
-    (print folders)))
+                         (setf temp-size (parse-integer inpt :junk-allowed T))
+                         ;;; Adds the file size to the current folder and all parent folders
+                         ;;; This could be extracted to the final summation, but this way it's simpler
+                         (loop for fol = current-folder then (nth (+ 2 fol) folders)
+                               until (= fol -1) do
+                               (+= (nth (+ 1 fol) folders)
+                                   temp-size)))))
+
+    ;;; LREST is a tail of FOLDERS, where on each iteration it starts with the file size of each folder
+    (loop for lrest on (cdr folders) by #'cdddr
+          if (<= (car lrest) 100000)
+            sum (car lrest) into result
+          finally (print result))))
diff --git a/2022/Day07/part-two.cl b/2022/Day07/part-two.cl
new file mode 100644
index 0000000..267cf48
--- /dev/null
+++ b/2022/Day07/part-two.cl
@@ -0,0 +1,52 @@
+;;; https://gitlab.com/Syndamia/senzill
+(require :senzill)
+(use-package :senzill.math)
+(use-package :senzill.collections)
+(use-package :senzill.io)
+
+(defconstant +filesystem-size+ 70000000)
+(defconstant +needed-space+ 30000000)
+
+(ask-for-stream (prog-input)
+  ;;; Every 3 consecutive values (in FOLDERS) represent one folder, where
+  ;;; the first is it's name, second is size of all files inside and third is parent folder.
+  (let* ((folders '("/" 0 -1)) (current-folder 0) (temp-size 0))
+    (defun parse-cd (loc)
+      "Updates CURRENT-FOLDER to point to index of chosen folder"
+      (if (string= loc "..")
+          (setf current-folder (nth (+ 2 current-folder) folders))
+          (+= current-folder (position-if (lambda (x) (and (stringp x) (string= x loc)))
+                                          (nthcdr current-folder folders)
+                                          :from-end T)))) ; Dirty trick for not properly handling folders with same names in different locations
+
+    (defun parse-dir (name)
+      "Adds a new folder inside FOLDERS"
+      (push-back name           folders)
+      (push-back 0              folders)
+      (push-back current-folder folders))
+
+    ;;; Parses input lines
+    (doread-lines (inpt :read-line-options (prog-input NIL))
+                  ;; "$ ls" isn't parsed, because we don't need to
+                  (cond ;; if we have "$ cd"
+                        ((and (char= (char inpt 0) #\$) (char= (char inpt 2) #\c))
+                         (parse-cd (subseq inpt 5)))
+                        ;; if we have "dir ..."
+                        ((char= (char inpt 0) #\d)
+                         (parse-dir (subseq inpt 4)))
+                        ;; if we have "<NUMBER> <FILE_NAME>"
+                        ((digit-char-p (char inpt 0))
+                         (setf temp-size (parse-integer inpt :junk-allowed T))
+                         ;;; Adds the file size to the current folder and all parent folders
+                         ;;; This could be extracted to the final summation, but this way it's simpler
+                         (loop for fol = current-folder then (nth (+ 2 fol) folders)
+                               until (= fol -1) do
+                               (+= (nth (+ 1 fol) folders)
+                                   temp-size)))))
+
+    (let ((free-space (- +filesystem-size+ (second folders))))
+      ;;; LREST is a tail of FOLDERS, where on each iteration it starts with the file size of each folder
+      (loop for lrest on (cdr folders) by #'cdddr
+            if (>= (+ free-space (car lrest)) +needed-space+)
+              minimize (car lrest) into result
+            finally (print result)))))