reduce-sum.xtl

1⍝!/usr/bin/env xetal
2⍝ Reductions: research7's GPU PoC 0 (a, b := 2 a, c := a + b, +/ c),
3⍝ the largest item, an inner product. Run with "just demo-lib Accel reduce-sum".
4ᵃᶜ⁼u̲se< "Accel"
5a ← r̲ange 8
6b ← 2 ᵃᶜs̲cale a
7c ← a ᵃᶜv̲add b
8ᵃᶜs̲um c
9ᵃᶜl̲argest c
10a ᵃᶜd̲ot b
11f ← (r̲ange 8) ÷ 8
12ᵃᶜs̲um f
13f ᵃᶜd̲ot f