vector-add.xtl

1⍝!/usr/bin/env xetal
2⍝ Vector add: c := a + b, the first kernel (one work-item per element).
3⍝ Run with "just demo-lib Accel vector-add".
4ᵃᶜ⁼u̲se< "Accel"
5a ← r̲ange 8
6b ← 10 × r̲ange 8
7a ᵃᶜv̲add b
8x ← (r̲ange 8) ÷ 4
9y ← 0.5 ᵃᶜs̲cale x
10x ᵃᶜv̲add y