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

changed file and folder names to a sane scheme

Browse source
This commit is contained in:
ikselven 2017-07-12 00:08:34 +02:00
parent c19129e6dd
commit b725343392
34 changed files with 44 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
e0007/euler0007.rkt Normal file
View file

@ -0,0 +1,12 @@
#lang racket
(require math/number-theory)
(define (nth-prime it n primes)
(if (equal? n (length primes))
(car primes)
(if (prime? it)
(nth-prime (+ it 2) n (cons it primes))
(nth-prime (+ it 2) n primes))))
(nth-prime 3 10001 (list 2))