ARC

Appearance

On this page

0520fde7 ​

arc
let g1: OList OList Color
let g2: OList OList Color

let input = hcat [g1, fill 3 (fill 1 grey), g2]

let output = zip (zip (λa. λb. if (a == black || b == black) black red)) g1 g2
composer
input = [#0, #1, #2]
output = [[black, #3, black], [#4, #5, #6], [black, #7, #8]]
(OList Color, OList Color, OList Color, Color, Color, Color, Color, Color, Color)
([blue, black, black, grey, black, blue, black], [black, blue, black, grey, blue, blue, blue], [blue, black, black, grey, black, black, black], black, black, red, black, black, black)
([blue, blue, black, grey, black, blue, black], [black, black, blue, grey, blue, blue, blue], [blue, blue, black, grey, black, blue, black], red, black, black, red, red, black)
([black, black, blue, grey, black, black, black], [blue, blue, black, grey, blue, black, blue], [black, blue, blue, grey, blue, black, blue], black, red, black, black, black, red)
([blue, black, blue, grey, blue, black, blue], [black, blue, black, grey, blue, black, blue], [blue, black, blue, grey, black, blue, black], ?, ?, ?, ?, ?, ?)