returnTest.frink

View or download returnTest.frink in plain text format


/** This is a profiling test to test tight loops which call functions. */

count = million

//input["hit enter."]    // Allow jvisualvm to attach

println["Conditional + return"]
for i = 1 to 10
{
   start = now[]
   for a = 1 to count
      compare[a,500000]
   end = now[]
   println["Frequency is " + count/(end-start)]
}

println["\n\nEnd return with 2 functions"]
for i = 1 to 10
{
   start = now[]
   for a = 1 to count
      uncompare[a,500000]
   end = now[]
   println["Frequency is " + count/(end-start)]
}

compare[a,b] :=
{
   if a < b
      return a
   else
      return b
}  

uncompare[a,b] :=
{
   return min[a,b]
}


View or download returnTest.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 17591 days, 17 hours, 47 minutes ago.