project-euler/3/euler3.rkt

#lang racket

(require math/number-theory)

(define (max-prime-factor x)
  (if (prime? x) x
      (for/or ((i (filter prime? (range 2 (sqrt x)))))
        (if (zero? (remainder x i)) (max-prime-factor (quotient x i)) #f))))

(max-prime-factor 600851475143)
racket solution for the third problem 2017-05-09 19:48:35 +02:00			`#lang racket`

			`(require math/number-theory)`

deuglyfied euler3.rkt 2017-06-07 18:04:31 +02:00			`(define (max-prime-factor x)`
			`(if (prime? x) x`
			`(for/or ((i (filter prime? (range 2 (sqrt x)))))`
			`(if (zero? (remainder x i)) (max-prime-factor (quotient x i)) #f))))`
racket solution for the third problem 2017-05-09 19:48:35 +02:00
deuglyfied euler3.rkt 2017-06-07 18:04:31 +02:00			`(max-prime-factor 600851475143)`