modtimetest.frink

Download or view modtimetest.frink in plain text format


// Timing test for modular exponentiation

while (true)
{
   numbits = eval[input["Enter number of bits or bytes: "]]
   if (numbits conforms 1)
   {
      println["Bits or bytes not specified, assuming bytes."]
      numbits = 8 numbits
   }

   modulus = 256^(numbits/byte)

   limit = 1000

   start = now[]
   for i = 1 to limit
   {
      base = randomBits[numbits/bit]
      exponent = randomBits[numbits/bit]
      result = modPow[base, exponent, modulus]
   }

   end = now[]

   println["The loop took " + (end - start -> seconds) + " seconds."]
   println["This is " + format[limit / (end-start), s^-1, 2] + " operations/sec."]
}

Download or view modtimetest.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 19973 days, 15 hours, 21 minutes ago.