diff options
| -rw-r--r-- | consecutive-fibonacci-numbers-are-coprime.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/consecutive-fibonacci-numbers-are-coprime.lisp b/consecutive-fibonacci-numbers-are-coprime.lisp index 5b807a4..af0a534 100644 --- a/consecutive-fibonacci-numbers-are-coprime.lisp +++ b/consecutive-fibonacci-numbers-are-coprime.lisp @@ -19,7 +19,7 @@ (posp m)))) (if (and (posp n) (posp m)) (cond - ((= (nfix n) (nfix m)) + ((= n m) n) ((< n m) (gcd$ (- m n) n)) (t (gcd$ (- n m) m))) |