ARC

Appearance

On this page

fafffa47 ​

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

let input = flat [g1, g2]

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