diff options
| author | ubq323 <ubq323@ubq323.website> | 2024-07-02 17:17:01 +0100 |
|---|---|---|
| committer | ubq323 <ubq323@ubq323.website> | 2024-07-02 17:17:01 +0100 |
| commit | 033a9cbb66d65a0918e2c095d12937afb82fd4b2 (patch) | |
| tree | 29d5314ff15aa677b732d2631d555c2a6b1d942d /tests | |
| parent | 6e8123763241efcb259f68d6e0e6d3ffcbc32795 (diff) | |
add (each (x arr) ...) array-loop form
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/each.bth | 4 | ||||
| -rw-r--r-- | tests/each.out | 10 |
2 files changed, 14 insertions, 0 deletions
diff --git a/tests/each.bth b/tests/each.bth new file mode 100644 index 0000000..3dd3f9f --- /dev/null +++ b/tests/each.bth @@ -0,0 +1,4 @@ +(let (a [2 3 4 5 6]) + (each (x a) + (say (* x x)) + (let (q 100 r 200 s 300) (say r)))) diff --git a/tests/each.out b/tests/each.out new file mode 100644 index 0000000..f8ae193 --- /dev/null +++ b/tests/each.out @@ -0,0 +1,10 @@ +4 +200 +9 +200 +16 +200 +25 +200 +36 +200 |