adam/exercism-common-lisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Adam Cooper 2025-01-25 14:04:53 -05:00
parent 8cbf0b109b
commit 4e3ea1a878
2 changed files with 7 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
all-your-base/all-your-base.fasl
View file

Binary file not shown.

17
all-your-base/all-your-base.lisp
View file

@ -17,18 +17,15 @@
(calc-start-exponent num base (1+ x))))
(defun unconv (num base exponent)
; TODO
; Compiler calls x and undefined variable, so I need to fix this
; `setq` call.
(setq x
(let ((x
(if (eq exponent -1)
(calc-start-exponent num base 0)
exponent))
(if (eq x 0)
(list num)
(multiple-value-bind (q r)
(truncate (/ num (expt base x)))
(append (list q) (unconv r base (- x 1))))))
exponent)))
(if (eq x 0)
(list num)
(multiple-value-bind (q r)
(truncate (/ num (expt base x)))
(append (list q) (unconv r base (- x 1)))))))
(defun rebase (l source destination)
(unconv (conv l source) destination -1))