From a4e5db32fc40770b94ca410f815e0becba71ab09 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 31 Mar 2022 21:45:19 -0700
Subject: iter: new minimizing, argmax, argmin clauses.

---
 testcases-iter | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to 'testcases-iter')

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
-- 
cgit v1.2.3