project-euler/e0003/euler0003.rkt

#lang typed/racket

(require math/number-theory)

(: max-prime-factor (-> Integer (U False Integer)))
(define (max-prime-factor x)
  (if (prime? x) x
      (for/or ((i (filter prime? (range 2 (ceiling (assert (sqrt x) real?)))))
        #:when (zero? (remainder x i)))
        (max-prime-factor (quotient x i)))))

(max-prime-factor 600851475143)
typed racket solution for euler 3 2017-07-12 00:42:46 +02:00			`#lang typed/racket`
racket solution for the third problem 2017-05-09 19:48:35 +02:00
			`(require math/number-theory)`

typed racket solution for euler 3 2017-07-12 00:42:46 +02:00			`(: max-prime-factor (-> Integer (U False Integer)))`
deuglyfied euler3.rkt 2017-06-07 18:04:31 +02:00			`(define (max-prime-factor x)`
			`(if (prime? x) x`
typed racket solution for euler 3 2017-07-12 00:42:46 +02:00			`(for/or ((i (filter prime? (range 2 (ceiling (assert (sqrt x) real?)))))`
			`#:when (zero? (remainder x i)))`
			`(max-prime-factor (quotient x i)))))`
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)`