diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-11 20:19:33 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-12 12:14:40 +0000 |
| commit | 9cf72e3f82ca7c4bbb28fbd8168f62a5e896e415 (patch) | |
| tree | e1ef5468f62cee088d5826d1592b178df1a5c22a | |
| parent | ae07b3ca18e380abe17c669c96915f3e2a8f31de (diff) | |
| download | cl-math-9cf72e3f82ca7c4bbb28fbd8168f62a5e896e415.tar.gz | |
change from eql to eq
| -rw-r--r-- | cl-math.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/cl-math.lisp b/cl-math.lisp index 3bcddfb..ff3480f 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -5,8 +5,8 @@ (defun next-digit (numerals digit) "Given a list of a numeral system and a digit, it returns the next digit." (cond - ((eql (car (last numerals)) digit) (car numerals)) - ((not (eql (car numerals) digit)) (next-digit (cdr numerals) digit)) + ((eq (car (last numerals)) digit) (car numerals)) + ((not (eq (car numerals) digit)) (next-digit (cdr numerals) digit)) (t (cadr numerals)))) (defun may-reverse (number) @@ -38,7 +38,7 @@ (cons (if (eq (car numerals) '|0|) (cadr numerals) (car numerals)) nil)) - ((eql (car number-list) (car (last numerals))) + ((eq (car number-list) (car (last numerals))) (cons (car numerals) (next-list-number numerals (cdr number-list)))) (t (cons (next-digit numerals (car number-list)) (cdr number-list))))) @@ -51,13 +51,13 @@ (cond ((and (null (cdr number-list)) - (eql (car number-list) - (if (eql (car numerals) '|0|) + (eq (car number-list) + (if (eq (car numerals) '|0|) (cadr numerals) (car numerals)))) nil) ((and - (eql (car number-list) (car numerals)) + (eq (car number-list) (car numerals)) (not (null (cdr number-list)))) (cons (previous-digit numerals (car number-list)) (previous-list-number numerals (cdr number-list)))) (t (cons (previous-digit numerals (car number-list)) (cdr number-list))))) @@ -67,7 +67,7 @@ (cond ((and (null (cdr b)) - (eql (car b) (if (eql (car numerals) '|0|) + (eq (car b) (if (eq (car numerals) '|0|) (cadr numerals) (car numerals)))) (next-list-number numerals a)) |