iter: new minimizing, argmax, argmin clauses.

1 files changed, 31 insertions, 0 deletions

diff --git a/testcases-iter b/testcases-iter
index ef2a9b0..b9b7d22 100644
--- a/testcases-iter
+++ b/testcases-iter
@@ -301,3 +301,34 @@ BEGIN {
 9
 10
 maxpos = 10
+--
+14:
+$cppawk '
+#include <iter.h>
+
+BEGIN {
+  loop (range_step  (x, 0, 3.14159, 0.001),
+        argmax      (mx, x, sin(x) * cos(x)),
+        argmin      (mi, x, sin(x) * cos(x)))
+    ; // empty
+
+  print "max x =", mx
+  print "min x =", mi
+}'
+:
+max x = 0.785
+min x = 2.356
+--
+15:
+$cppawk '
+#include <iter.h>
+
+BEGIN {
+  loop (list(tail, item, list(1, 2, 3, 0, 5, -3, 7)),
+        minimizing(min, item))
+  {
+  }
+  print "min =", min
+}'
+:
+min = -3