From e0f94a32e3c731dd47a9b573ca43a3d8339e6bad Mon Sep 17 00:00:00 2001
From: Giacomo Ritucci <ritucci@cs.unibo.it>
Date: Tue, 15 Jul 2008 02:04:29 +0200
Subject: [PATCH] Risolto problema 3

---
 03.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/03.lisp b/03.lisp
index 9dc5f7e..11c4449 100644
--- a/03.lisp
+++ b/03.lisp
@@ -1,7 +1,14 @@
-;;;; Giacomo Ritucci, 23.07 di venerdì 14 dicembre 2007
+;;;; Giacomo Ritucci, 02.03 di martedì 15 luglio 2008
 
 ;;; Problem 3
 ;;;
 ;;; The prime factors of 13195 are 5, 7, 13 and 29.
 ;;;
 ;;; What is the largest prime factor of the number 317584931803?
+
+(defun largest-prime-factor (n &optional (i 2))
+  (cond ((= n i) n)
+	((= 0 (mod n i)) (largest-prime-factor (/ n i) i))
+	(T (largest-prime-factor n (incf i)))))
+
+(largest-prime-factor 600851475143)