One less guard in euclid for same effect · ec5f43bd9e - Gogs: Go Git Service

One less guard in euclid for same effect

Lily Carpenter 9 years ago

parent

1fa7aa1eaf

commit

ec5f43bd9e

1 changed files with 1 additions and 1 deletions

Split View Show Diff Stats

						
							+ 1
							
							- 1
						
chapter-1/euclid.lisp
							
								View File
							
				@@ -13,7 +13,7 @@
			
				13
			
				13
			
				14
			
				14
			
				 (defun euclid (m n)
			
				15
			
				15
			
				   "Calculates the greatest common divisor between m and n"
			
				16
			
				-  (when (or (= m 0) (= n 0) (> 0 m n))
			
				16
			
				+  (when (or (>= 0 m) (>= 0 n))
			
				17
			
				17
			
				     (return-from euclid nil))
			
				18
			
				18
			
				   (if (< m n)
			
				19
			
				19
			
				       (euclid n m)