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

typed racket solution for euler 3

Browse source
This commit is contained in:
Lowl3v3l 2017-07-12 00:42:46 +02:00
parent 447f5ebd77
commit 7cf16ea48b
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
e0003/euler0003.rkt
View file

@ -1,10 +1,12 @@
#lang racket #lang typed/racket
(require math/number-theory) (require math/number-theory)
(: max-prime-factor (-> Integer (U False Integer)))
(define (max-prime-factor x) (define (max-prime-factor x)
(if (prime? x) x (if (prime? x) x
(for/or ((i (filter prime? (range 2 (sqrt x))))) (for/or ((i (filter prime? (range 2 (ceiling (assert (sqrt x) real?)))))
(if (zero? (remainder x i)) (max-prime-factor (quotient x i)) #f)))) #:when (zero? (remainder x i)))
(max-prime-factor (quotient x i)))))
(max-prime-factor 600851475143) (max-prime-factor 600851475143)