diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2021-08-15 01:50:52 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2021-08-15 01:50:52 +0900 |
| commit | 14775ccc8daf54118a8d613bfb5053a1323a41d5 (patch) | |
| tree | 11b158c6abe03a3f51fb3d057b8764163e1c48c8 | |
| parent | 39e473ca059c50cd0f4e4606ddd78969eaed46be (diff) | |
consecutive-fibonacci-numbers-are-coprime: Remove nfix.
| -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))) |