diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-19 06:22:34 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-19 06:22:34 -0700 |
| commit | eb088d2bf6c55dd98a1cc2c0b68e1dddd3e5b975 (patch) | |
| tree | 11ab47dff79b0fc2cfe9cc4c02dad073321eaef9 | |
| parent | 7b64f8f016c86f8a5bf4fcdd2f70d6ac83a1ec9b (diff) | |
| download | cppawk-eb088d2bf6c55dd98a1cc2c0b68e1dddd3e5b975.tar.gz cppawk-eb088d2bf6c55dd98a1cc2c0b68e1dddd3e5b975.tar.bz2 cppawk-eb088d2bf6c55dd98a1cc2c0b68e1dddd3e5b975.zip | |
loop: argmax: single iter must produce arg.
| -rw-r--r-- | cppawk-include/iter.h | 4 | ||||
| -rw-r--r-- | testcases-iter | 17 |
2 files changed, 19 insertions, 2 deletions
diff --git a/cppawk-include/iter.h b/cppawk-include/iter.h index 93bb2d0..1ac3ac2 100644 --- a/cppawk-include/iter.h +++ b/cppawk-include/iter.h @@ -249,7 +249,7 @@ function __loop_argmax(a, arga, b, argb) #define __am_old __g(arg) #define __temp_argmax(amx, arg, expr) __am_max, __am_old, -#define __init_argmax(amx, arg, expr) (__am_max = 0) || (amx = __nil) +#define __init_argmax(amx, arg, expr) (__am_max = __nil) || (amx = __nil) #define __test_argmax(amx, arg, expr) 1 #define __prep_argmax(amx, arg, expr) ((__am_old = __am_max) || 1) && \ ((__am_max = \ @@ -267,7 +267,7 @@ function __loop_argmin(a, arga, b, argb) } #define __temp_argmin(ami, arg, expr) __am_min, __am_old, -#define __init_argmin(ami, arg, expr) (__am_min = 0) || (ami = __nil) +#define __init_argmin(ami, arg, expr) (__am_min = __nil) || (ami = __nil) #define __test_argmin(ami, arg, expr) 1 #define __prep_argmin(ami, arg, expr) ((__am_old = __am_min) || 1) && \ ((__am_min = \ diff --git a/testcases-iter b/testcases-iter index 48138c0..9ed1c25 100644 --- a/testcases-iter +++ b/testcases-iter @@ -425,3 +425,20 @@ BEGIN { : 1 1 +-- +20: +$cppawk ' +#include <iter.h> + +BEGIN { + loop (range (x, -1, -1), + argmax (mx, x, x), + argmin (mi, x, x)) + ; // empty + + print mx + print mi +}' +: +-1 +-1 |