dimitri/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Initial commit

Browse source
This commit is contained in:
Dimitri Lozeve 2024-11-12 21:43:32 +01:00
commit f242d2b0df
420 changed files with 62521 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
2019/day01/day01.lisp Normal file
View file

@ -0,0 +1,16 @@
(defparameter *input-file* #P"input.txt")
(defparameter *input* (uiop:read-file-lines *input-file*))
(defun part1 ()
(loop for line in *input*
sum (- (floor (/ (parse-integer line) 3)) 2)))
(defun total-fuel-requirements (total-fuel fuel)
(let ((new-fuel (max 0 (- (floor (/ fuel 3)) 2))))
(if (= new-fuel 0)
(+ total-fuel fuel)
(total-fuel-requirements (+ total-fuel fuel) new-fuel))))
(defun part2 ()
(loop for line in *input*
sum (total-fuel-requirements 0 (- (floor (/ (parse-integer line) 3)) 2))))