Sha256: 62d0e03ab43630ec56029a092e1933b7effbe4470d7a8410b8d04f89b5bd82c9
Contents?: true
Size: 475 Bytes
Versions: 265
Compression:
Stored size: 475 Bytes
Contents
module NthPrime
open System
let isPrime (n: int) =
let r = Math.Floor(Math.Sqrt(n |> double)) |> int
r < 5 || Seq.init (r - 4) id |> Seq.forall (fun x -> n % (5 + x) <> 0)
let rec possiblePrimes n =
seq {
yield n - 1
yield n + 1
yield! possiblePrimes (n + 6)
}
let primes =
seq {
yield 2
yield 3
yield! Seq.filter isPrime (possiblePrimes 6)
}
let nthPrime nth = Seq.item (nth - 1) primes
Version data entries
265 entries across 265 versions & 1 rubygems