diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-18 13:12:49 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-18 13:12:49 +0000 |
| commit | 1e53787827d9c6148782e5b2a5181c1b74d8d4a3 (patch) | |
| tree | 4de081719ff59fdcd58ca7216e5c1ac75f3d7355 | |
| parent | fbf5e7e1db52d4fc9ccb14366768287482ea8758 (diff) | |
| download | cl-math-1e53787827d9c6148782e5b2a5181c1b74d8d4a3.tar.gz | |
improve cut-digits, may be a bug fix
| -rw-r--r-- | plus-inc.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plus-inc.lisp b/plus-inc.lisp index cabc2d3..fd24a7d 100644 --- a/plus-inc.lisp +++ b/plus-inc.lisp @@ -5,6 +5,7 @@ (defun cut-digits (number-list-reversed) "Given a reversed number list it cuts unecessay digits." (cond + ((null (cdr number-list-reversed)) number-list-reversed) ((eq (car number-list-reversed) '|0|) (cut-digits (cdr number-list-reversed))) (t number-list-reversed))) |