Prime Sieve - Project Euler 10 :: Code Pin Board :: Networks

Networks » Code Pin Board » Prime Sieve - Project Euler 10

JavaScript is not enabled on your browser and in order to properly use Coder Profile JavaScript is required.
To view instructions on how to enable JavaScript on your browser click here.

Prime Sieve - Project Euler 10

Download Source Code

Author Details

Code Information

CodeMangler

Pinned 1 Codes
Posted 0 Coding Articles

Send A Message
View Coders Profile

Language	Plain Text
Expires	Never
Length	462 Characters (14 Lines)
Password	no password

let prime_series_sieve (limit:bigint) =
let series = List.to_array [0I..limit]
series.SetValue(0I, 1)
let rec eliminate_multiples (n:bigint) (i:bigint) =
let index = (i * n)
if index < bigint.Parse(series.Length.ToString()) then
series.SetValue(0I, (bigint.ToInt64(index)))
eliminate_multiples n (i + 1I)
for n in [2I..(limit/2I)] do
eliminate_multiples n 2I
series;;

Back To Code Pin Board

Post New Code

Please login to post comments.

Latest News About Coder Profile

RSS News Feed

Coder Profile Poll

Which sounds better on your coder profiles, and makes more sense to you (think twitter, facebook, etc)?

Followers / Following
Fans / Following
Fans / Fan Of

please login to cast your vote
and see the results of this poll

Latest Coder Profile Changes

Coder Profile was last updated
3.20 Years Ago

RSS Development Blog Feed

Official Blog :: Make A Donation :: Credits :: Contact Me
Terms & Conditions :: Privacy Policy :: Documents :: Wallpapers