/** Ahl's simple benchmark, Creative Computing March 1984, P. 6

https://archive.org/details/CreativeComputingbetterScan198403/page/n7/mode/1up
*/

for times = 1 to 200
{
   start = now[]
   s = 0
   r = 0
   for n = 1 to 100
   {
      a = n
      for i = 1 to 10
      {
         a = sqrt[a,prec]
         r = r + randomFloat[0,1]
      }

      for i = 1 to 10
      {
         a = a^2
         r = r + randomFloat[0,1]
      }

      s = s + a
   }

   println["Accuracy: " + abs[1010-s/5]]
   println["Random:   " + formatFix[abs[1000-r], 1, 1]]
   end = now[]
   println["Time:     " + ((end-start) -> "ms")]
   println[]
}