diff --git a/exercises/practice/nth-prime/.meta/example.rkt b/exercises/practice/nth-prime/.meta/example.rkt index d52e03e..2b23f9e 100644 --- a/exercises/practice/nth-prime/.meta/example.rkt +++ b/exercises/practice/nth-prime/.meta/example.rkt @@ -1,5 +1,7 @@ #lang racket +(provide nth-prime) + (define/contract (nth-prime number) (-> exact-positive-integer? exact-positive-integer?) (let loop ([candidate 2] @@ -13,8 +15,7 @@ [else (loop (add1 candidate) count)]))) -(define/contract (prime? number) - (-> natural? boolean?) +(define (prime? number) (cond [(zero? number) #f] [(= number 1) #f] @@ -25,4 +26,4 @@ (cond [(> (expt factor 2) number) #t] [(zero? (remainder number factor)) #f] - [else (loop (+ factor 2))]))])) + [else (loop (+ factor 2))]))])) \ No newline at end of file diff --git a/exercises/practice/nth-prime/nth-prime-test.rkt b/exercises/practice/nth-prime/nth-prime-test.rkt index 7a1c129..b53cb94 100644 --- a/exercises/practice/nth-prime/nth-prime-test.rkt +++ b/exercises/practice/nth-prime/nth-prime-test.rkt @@ -22,4 +22,5 @@ 104743) (test-exn "there is no zeroth prime" exn:fail? (lambda () (nth-prime 0))))) + (run-tests suite))