[adventofcode2020.git] / src / adventofcode2020.lisp

(in-package #:adventofcode2020)

(defmacro day (num var &body body)
  (let ((day-str (format nil "day~2,'0D" num)))
    `(let ((,var (alexandria:read-file-into-string ,(format nil "./res/~A" day-str))))
       ,@body)))

(defun part1 (str)
  (time (format t "Part 1: ~A~%" str)))

(defun part2 (str)
  (time (format t "Part 2: ~A~%" str)))
Commit	Line	Data
3ef62a9d JK	1	(in-package #:adventofcode2020)
	2
	3	(defmacro day (num var &body body)
	4	(let ((day-str (format nil "day~2,'0D" num)))
	5	`(let ((,var (alexandria:read-file-into-string ,(format nil "./res/~A" day-str))))
	6	,@body)))
	7
	8	(defun part1 (str)
63a814f2	9	(time (format t "Part 1: ~A~%" str)))
3ef62a9d JK	10
3ef62a9d JK	11	(defun part2 (str)
63a814f2	12	(time (format t "Part 2: ~A~%" str)))
3ef62a9d	13