sourcelibs/Clocked/demos/accumulator.xtl

1⍝!/usr/bin/env xetal 2⍝ An 8-bit accumulator fed one number per clock: its final value and 3⍝ its trace (the running sum, wrapped). Run with "just demo-lib Clocked accumulator". 4ᶜᵏ⁼u̲se< "Clocked" 5xs ← 10 20 30 40 50 -60 70 60 'ᶜᵏa̲ccumulate ᶜᵏr̲un xs 70 'ᶜᵏa̲ccumulate ᶜᵏt̲race xs