saxpy.xtl

1⍝!/usr/bin/env xetal
2⍝ SAXPY: y := a x + y, a scale then an add, fused into one kernel on a
3⍝ GPU. Run with "just demo-lib Accel saxpy".
4ᵃᶜ⁼u̲se< "Accel"
5x ← (r̲ange 8) ÷ 4
6y ← 1.0 ᵃᶜs̲cale 1.0 0.5 0.25 0.125 0.0 -0.125 -0.25 -0.5
7(2.0 ᵃᶜs̲cale x) ᵃᶜv̲add y