Krautspace/project-euler
Archived
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

racket solution for the third problem

Browse source
This commit is contained in:
Lowl3v3l 2017-05-09 19:48:35 +02:00
parent faf8f4962a
commit 88e45dc7a3
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
3/euler3.rkt Normal file
View file

@ -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)))