差分

素数

462 バイト追加, 2013年9月4日 (水) 14:29

==素数判定==

=== [[F Sharp|F#]]による記述例 ===

let isPrime (number : bigint) =

match number with

| _ -> seq { bigint(2) .. bigint(sqrt(float number))}

|> Seq.exists (fun x -> if (number % x = bigint(0)) then true else false)

|> not

let primes =

Seq.initInfinite (fun i -> i + 2) //need to skip 0 and 1 for isPrime

|> Seq.map (fun i -> bigint(i))

|> Seq.filter isPrime

printfn "%A" primes;;

</source>

===愚直な方法===

匿名利用者