#!/usr/bin/env pluvo

% 016-case.lu - Pardo-Knuth Algorithm Test
Author: Sean B. Palmer, inamidst.com

f = (t) { 
   {@sqrt {@abs t}} + {5 * {t ** 3}}
}

main = (argv) { 
   a = (0 1.5 2 5 0.3 2.16 1.256256 3 3.14159265 0.78 0.135)

   for i {range 10 -1 -1} {
      y = {f {a:i}}
      if {y > 400} { say "$i TOO LARGE" }
      else { say "$i $y" }
   }
}

script main