From 14775ccc8daf54118a8d613bfb5053a1323a41d5 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 15 Aug 2021 01:50:52 +0900 Subject: consecutive-fibonacci-numbers-are-coprime: Remove nfix. --- consecutive-fibonacci-numbers-are-coprime.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- cgit v1.2.3