Data update

Task/Trabb-Pardo-Knuth-algorithm/PascalABC.NET/trabb-pardo-knuth-algorithm.pas

@@ -0,0 +1,10 @@
+function f(x:real) := Sqrt(x) + 5 *x ** 3;
+
+begin
+  var seq := ReadArrInteger(11).Reverse;
+  foreach var x in seq do
+  begin
+    var fx := f(x);
+    Println($'f({x}): {fx > 400 ? ''overflow'' : fx.ToString}');
+  end;
+end.

Task/Trabb-Pardo-Knuth-algorithm/UNIX-Shell/trabb-pardo-knuth-algorithm.sh

@@ -0,0 +1,18 @@
+fn f {
+   printf 'scale=3; sqrt(sqrt(%s^2)) + 5.0 * %s ^ 3 \n' $1 $1 | bc
+}
+
+count = 11
+list = ()
+for (idx in `{seq $count}) {
+   num = `{read}  # get value from stdin
+   list = ($num $list)  # add to list in reverse
+}
+for (idx in `{seq $count}) {
+   x = $list($idx)
+   printf 'f(%s) = ' $x
+   y = `{f $x}
+   if (~ `{printf '%s > 400 \n' $y | bc} 1)
+      echo TOO LARGE!
+   if not echo $y
+}