pipeline.xtl

1⍝!/usr/bin/env xetal
2⍝ The acceptance pipeline: multiply, add, select, reduce, as one
3⍝ expression, on Ints and on Floats. Run with "just demo-lib Accel pipeline".
4ᵃᶜ⁼u̲se< "Accel"
5x ← r̲ange 8
6w ← 1 -1 1 -1 1 -1 1 -1
7x ᵃᶜp̲ipeline w
8f ← (r̲ange 8) ÷ 4
9g ← -1.5 -1.0 -0.5 0.0 0.5 1.0 1.5 2.0
10f ᵃᶜp̲ipeline g