racket solution for the third problem

2017-05-09 19:48:35 +02:00 · 2017-05-09 19:48:35 +02:00 · 88e45dc7a3
parent faf8f4962a
commit 88e45dc7a3
1 changed files with 14 additions and 0 deletions
--- a/3/euler3.rkt
+++ b/3/euler3.rkt
@ -0,0 +1,14 @@
+#lang racket
+
+(require math/number-theory)
+
+(define (primes x) (filter prime? (range 2 (sqrt x))))
+
+(define (primefactors x primes)
+  (if (prime? x)
+      (list x)
+      (if (zero? (remainder x (car primes)))
+          (cons (car primes) (primefactors (quotient x (car primes)) primes))
+          (primefactors x (cdr primes)))))
+
+(apply max (primefactors 600851475143 (primes 600851475143)))