ARC

Appearance

On this page

0692e18c ​

arc
let g: OList OList Bool
let c: Color

let input = g
  |> map (map (λb. if b c black))

let output = g
  |> gmapg (λb. if b (map (map (λb. if b black c)) g) (map (map (λb. black)) g))
composer
input = [[#5, #2, #0], [#4, #1, #2], [#3, #4, #5]]
output = fill 9v (fill 9h black) |> fold (fold rect) #6
(Color, Color, Color, Color, Color, Color, OList UList ((VInt, HInt, VInt, HInt), Color))
(black, orange, orange, black, orange, black, [{((6v, 6h, 6v, 7h), orange), ((6v, 6h, 7v, 6h), orange), ((6v, 4h, 7v, 4h), orange), ((6v, 3h, 6v, 4h), orange), ((4v, 6h, 4v, 7h), orange), ((3v, 6h, 4v, 6h), orange), ((4v, 3h, 4v, 4h), orange), ((3v, 4h, 4v, 4h), orange), ((9v, 6h, 9v, 6h), orange), ((9v, 4h, 9v, 4h), orange), ((6v, 9h, 6v, 9h), orange), ((6v, 1h, 6v, 1h), orange), ((4v, 9h, 4v, 9h), orange), ((4v, 1h, 4v, 1h), orange), ((1v, 6h, 1v, 6h), orange), ((1v, 4h, 1v, 4h), orange)}])
(fuschia, fuschia, black, fuschia, black, black, [{((8v, 2h, 9v, 3h), fuschia), ((7v, 1h, 8v, 2h), fuschia), ((2v, 8h, 3v, 9h), fuschia), ((1v, 7h, 2v, 8h), fuschia), ((5v, 5h, 6v, 6h), fuschia), ((4v, 4h, 5v, 5h), fuschia)}, {((9v, 1h, 9v, 1h), black), ((1v, 9h, 1v, 9h), black), ((8v, 2h, 8v, 2h), black), ((2v, 8h, 2v, 8h), black), ((5v, 5h, 5v, 5h), black)}])
(black, black, yellow, black, black, yellow, [{((5v, 9h, 9v, 9h), black), ((1v, 1h, 1v, 5h), black)}, {((8v, 7h, 9v, 8h), yellow), ((7v, 9h, 7v, 9h), yellow), ((4v, 9h, 4v, 9h), yellow), ((2v, 1h, 3v, 2h), yellow), ((1v, 6h, 1v, 6h), yellow), ((1v, 3h, 1v, 3h), yellow), ((5v, 7h, 6v, 8h), yellow), ((2v, 4h, 3v, 5h), yellow)}])
(green, green, black, black, green, black, ?)