programdemos/life.xtl
ᵘl̲ife : (Num a, Truthy a) => a -> a
ᵘl̲ife ← { ('+ r̲/₁₂ -1 0 1 o̲-₁₂ ⍵) { (⍺ = 3) + ⍵ × ⍺ = 4 } ⍵ }
ᵘs̲teps : Num b => (a -> a) -> b -> a -> a
ᵘs̲teps ← { f̲ n x → shown ← p̲rint! x gap ← p̲rint! "" n = 0 ? x (n − 1) 'f̲ ᵘs̲teps f̲ x }