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, eliasen@mindspring.com