ARC

Appearance

On this page

f2829549 ​

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

let input = hcat [g1, fill 4 [blue], g2]

let output = zip (zip (λa. λb. if (a != black || b != black) black green)) g1 g2
composer
input = #0
output = #1
(OList OList Color, OList OList Color)
([[orange, orange, black, blue, grey, black, black], [orange, black, black, blue, grey, black, black], [black, black, black, blue, grey, black, grey], [black, black, black, blue, grey, grey, black]], [[black, black, green], [black, green, green], [black, green, black], [black, black, green]])
([[orange, orange, black, blue, grey, black, black], [black, black, black, blue, black, black, black], [orange, orange, black, blue, grey, black, black], [black, orange, orange, blue, grey, grey, black]], [[black, black, green], [green, green, green], [black, black, green], [black, black, black]])
([[black, orange, orange, blue, grey, black, black], [black, black, orange, blue, black, grey, grey], [black, orange, black, blue, grey, grey, black], [black, black, orange, blue, black, black, black]], [[black, black, black], [green, black, black], [black, black, green], [green, green, black]])
([[orange, black, orange, blue, grey, grey, black], [orange, orange, black, blue, grey, grey, grey], [black, orange, black, blue, black, black, black], [black, black, black, blue, grey, black, grey]], [[black, black, black], [black, black, black], [green, black, green], [black, green, black]])
([[orange, black, black, blue, black, grey, black], [black, black, orange, blue, grey, black, black], [black, black, black, blue, grey, grey, grey], [orange, orange, orange, blue, grey, grey, grey]], [[black, black, green], [black, green, black], [black, black, black], [black, black, black]])
([[black, black, black, blue, black, grey, black], [orange, orange, orange, blue, grey, grey, black], [black, black, black, blue, grey, black, black], [orange, black, black, blue, grey, grey, grey]], ?)