ARC

Appearance

On this page

0ca9ddb6 ​

arc
let ps: OList (Int, Int, Color)

let input = fill 9 (fill 9 black)
  |> fold (λ(y, x, c). point (y, x) c) ps

let output = fill 9 (fill 9 black)
  |> fold (λ(y, x, c). λg. g
    |> point (y, x) c
    |> if (c == red) (λg. g
      |> point (y - 1, x - 1) yellow
      |> point (y - 1, x + 1) yellow
      |> point (y + 1, x - 1) yellow
      |> point (y + 1, x + 1) yellow) id
    |> if (c == blue) (λg. g
      |> point (y - 1, x) orange
      |> point (y + 1, x) orange
      |> point (y, x - 1) orange
      |> point (y, x + 1) orange) id
  ) ps
composer
input = fill 9v (fill 9h black) |> fold (λr. rect ((r.2, r.3, r.2, r.3), r.1)) #0
output = fill 9v (fill 9h black) |> fold (λr. rect ((r.1 + 2 - 2 | r.1, r.2, r.1 + 2, r.2), orange)) #1 |> fold rect #2 |> fold rect #3
(UList (Color, VInt, HInt), UList (VInt, HInt), UList ((VInt, HInt, VInt, HInt), Color), UList ((VInt, HInt, VInt, HInt), Color))
({(blue, 7v, 7h), (red, 4v, 3h)}, {(6v, 7h)}, {((7v, 6h, 7v, 8h), orange)}, {((5v, 4h, 5v, 4h), yellow), ((5v, 2h, 5v, 2h), yellow), ((4v, 3h, 4v, 3h), red), ((3v, 4h, 3v, 4h), yellow), ((3v, 2h, 3v, 2h), yellow), ((7v, 7h, 7v, 7h), blue)})
({(teal, 1v, 4h), (red, 8v, 2h), (blue, 7v, 7h), (blue, 4v, 3h), (red, 3v, 7h)}, {(6v, 7h), (3v, 3h)}, {((7v, 1h, 9v, 1h), yellow), ((7v, 6h, 7v, 8h), orange), ((4v, 2h, 4v, 4h), orange)}, {((9v, 3h, 9v, 3h), yellow), ((9v, 2h, 9v, 2h), black), ((8v, 1h, 8v, 1h), black), ((1v, 4h, 1v, 4h), teal), ((8v, 2h, 8v, 2h), red), ((7v, 3h, 7v, 3h), yellow), ((4v, 8h, 4v, 8h), yellow), ((4v, 6h, 4v, 6h), yellow), ((3v, 7h, 3v, 7h), red), ((2v, 8h, 2v, 8h), yellow), ((2v, 6h, 2v, 6h), yellow), ((7v, 7h, 7v, 7h), blue), ((4v, 3h, 4v, 3h), blue)})
({(blue, 8v, 4h), (fuschia, 6v, 7h), (red, 3v, 3h)}, {(7v, 4h)}, {((8v, 3h, 8v, 5h), orange)}, {((8v, 4h, 8v, 4h), blue), ((6v, 7h, 6v, 7h), fuschia), ((4v, 4h, 4v, 4h), yellow), ((4v, 2h, 4v, 2h), yellow), ((3v, 3h, 3v, 3h), red), ((2v, 4h, 2v, 4h), yellow), ((2v, 2h, 2v, 2h), yellow)})
({(red, 8v, 8h), (fuschia, 8v, 2h), (teal, 6v, 6h), (red, 4v, 3h), (blue, 3v, 7h)}, ?, ?, ?)