ARC

Appearance

On this page

f76d97a5 ​

arc
let c: Color
let g: OList OList Bool

let input = map (map (λb. if b c grey)) g

let output = map (map (λb. if b black c)) g
composer
input = #0
output = #1
(OList OList Color, OList OList Color)
([[yellow, grey, yellow], [grey, grey, grey], [yellow, grey, yellow]], [[black, yellow, black], [yellow, yellow, yellow], [black, yellow, black]])
([[grey, grey, fuschia, fuschia, fuschia], [fuschia, grey, grey, fuschia, fuschia], [fuschia, fuschia, grey, grey, fuschia], [fuschia, fuschia, fuschia, grey, grey], [grey, fuschia, fuschia, fuschia, grey]], [[fuschia, fuschia, black, black, black], [black, fuschia, fuschia, black, black], [black, black, fuschia, fuschia, black], [black, black, black, fuschia, fuschia], [fuschia, black, black, black, fuschia]])
([[brown, grey, brown, brown, brown], [brown, brown, grey, grey, brown], [brown, grey, brown, brown, brown], [brown, brown, grey, brown, brown], [brown, brown, brown, grey, grey]], [[black, brown, black, black, black], [black, black, brown, brown, black], [black, brown, black, black, black], [black, black, brown, black, black], [black, black, black, brown, brown]])
([[green, green, green, grey, green], [green, grey, green, green, green], [green, grey, grey, green, grey], [green, green, green, grey, green], [grey, grey, grey, green, green]], ?)