mersennetiming.frink

Download or view mersennetiming.frink in plain text format


// Program to factor smaller Mersenne primes and time the process.

fullStart = now[]

for b = 1 to 256
{
   start = now[]
   num = 2^b-1
   factors = factor[2^b-1]
   check = 1
   for [factor, pow] factors
      check = check * factor^pow

   if (num != check)
      println["Error in check!"]
   
   end = now[]
   time = (end-start) -> ms
   println["$b\t$time\t$factors"]
}

println["Total time: " + ((now[] - fullStart) -> "s")]


Download or view mersennetiming.frink in plain text format


This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 20163 days, 0 hours, 9 minutes ago.