Blame

Date:
Message:
Add optional compiler Just for fun. While the resulting code is much faster than the interpreter, the compile process eats up any speedups and it ends up being slower overall.
Actions:
History | Blob | Raw File
 1 a757f2cc 2024-12-17 lh (defpackage #:aoc-test/day-17

 2 a757f2cc 2024-12-17 lh   (:use #:cl #:lisp-unit2 #:aoc/day-17))

 3 a757f2cc 2024-12-17 lh (in-package #:aoc-test/day-17)

 4 a757f2cc 2024-12-17 lh 

 5 0372dbde 2024-12-17 lh (defun day-17-tests ()

 6 a757f2cc 2024-12-17 lh   (let ((registers (make-registers 0 0 9))

 7 0372dbde 2024-12-17 lh         (program (make-program (vector 2 6))))

 8 0372dbde 2024-12-17 lh     (funcall program registers)

 9 a757f2cc 2024-12-17 lh     (assert= 1 (aref registers 1)))

10 a757f2cc 2024-12-17 lh   (let ((registers (make-registers 10 0 0))

11 0372dbde 2024-12-17 lh         (program (make-program (vector 5 0 5 1 5 4))))

12 a757f2cc 2024-12-17 lh     (assert-equal (list 0 1 2)

13 0372dbde 2024-12-17 lh                   (nreverse (funcall program registers))))

14 a757f2cc 2024-12-17 lh   (let ((registers (make-registers 2024 0 0))

15 0372dbde 2024-12-17 lh         (program (make-program (vector 0 1 5 4 3 0))))

16 a757f2cc 2024-12-17 lh     (assert-equal (list 4 2 5 6 7 7 7 7 3 1 0)

17 0372dbde 2024-12-17 lh                   (nreverse (funcall program registers)))

18 a757f2cc 2024-12-17 lh     (assert= 0 (aref registers 0)))

19 a757f2cc 2024-12-17 lh   (let ((registers (make-registers 0 29 0))

20 0372dbde 2024-12-17 lh         (program (make-program (vector 1 7))))

21 0372dbde 2024-12-17 lh     (funcall program registers)

22 a757f2cc 2024-12-17 lh     (assert= 26 (aref registers 1)))

23 a757f2cc 2024-12-17 lh   (let ((registers (make-registers 0 2024 43690))

24 0372dbde 2024-12-17 lh         (program (make-program (vector 4 0))))

25 0372dbde 2024-12-17 lh     (funcall program registers)

26 a757f2cc 2024-12-17 lh     (assert= 44354 (aref registers 1)))

27 a757f2cc 2024-12-17 lh   (let ((registers (make-registers 729))

28 0372dbde 2024-12-17 lh         (program (make-program (vector 0 1 5 4 3 0))))

29 a757f2cc 2024-12-17 lh     (assert-equal (list 4 6 3 5 6 3 5 2 1 0)

30 0372dbde 2024-12-17 lh                   (nreverse (funcall program registers)))))

31 0372dbde 2024-12-17 lh 

32 0372dbde 2024-12-17 lh (define-test test-day-17

33 0372dbde 2024-12-17 lh     ()

34 0372dbde 2024-12-17 lh   (day-17-tests)

35 0372dbde 2024-12-17 lh   (let ((*use-compiler* t))

36 0372dbde 2024-12-17 lh     (day-17-tests)))