ARC

Appearance

On this page

88a10436 ​

composer
input = fill #0 (fill #1 black) |> fold (fold rect) #2
output = fill #0 (fill #1 black) |> fold (fold rect) #3
(VInt, HInt, OList UList ((VInt, HInt, VInt, HInt), Color), OList UList ((VInt, HInt, VInt, HInt), Color))
(9v, 9h, [{((1v, 1h, 2v, 2h), red)}, {((1v, 1h, 1v, 1h), black), ((6v, 6h, 6v, 6h), grey), ((3v, 3h, 3v, 3h), green), ((3v, 2h, 3v, 2h), blue), ((2v, 3h, 2v, 3h), blue)}], [{((1v, 1h, 2v, 2h), red)}, {((6v, 5h, 6v, 6h), red), ((5v, 6h, 6v, 6h), red), ((1v, 1h, 1v, 1h), black), ((7v, 7h, 7v, 7h), green), ((7v, 6h, 7v, 6h), blue), ((6v, 7h, 6v, 7h), blue), ((3v, 3h, 3v, 3h), green), ((3v, 2h, 3v, 2h), blue), ((2v, 3h, 2v, 3h), blue)}])
(8v, 7h, [{((1v, 6h, 2v, 7h), black)}, {((3v, 5h, 3v, 7h), red), ((1v, 5h, 1v, 5h), fuschia), ((6v, 2h, 6v, 2h), grey), ((2v, 5h, 2v, 6h), blue)}], [{((1v, 6h, 2v, 7h), black)}, {((7v, 1h, 7v, 3h), red), ((6v, 1h, 6v, 2h), blue), ((5v, 1h, 5v, 1h), fuschia), ((3v, 5h, 3v, 7h), red), ((1v, 5h, 1v, 5h), fuschia), ((2v, 5h, 2v, 6h), blue)}])
(10v, 8h, [{((9v, 2h, 9v, 3h), green), ((8v, 3h, 9v, 3h), green), ((8v, 4h, 9v, 4h), blue), ((7v, 2h, 7v, 3h), red), ((3v, 5h, 3v, 5h), grey)}], [{((9v, 2h, 9v, 3h), green), ((8v, 3h, 9v, 3h), green), ((4v, 4h, 4v, 5h), green), ((3v, 5h, 4v, 5h), green), ((8v, 4h, 9v, 4h), blue), ((7v, 2h, 7v, 3h), red), ((3v, 6h, 4v, 6h), blue), ((2v, 4h, 2v, 5h), red)}])
(10v, 11h, [{((9v, 7h, 9v, 7h), grey), ((5v, 4h, 5v, 5h), green), ((4v, 3h, 4v, 4h), blue), ((3v, 4h, 3v, 5h), red)}], ?)
arc
let yn: Int
let xn: Int
let g: OList OList Color
let p1: (Int, Int)
let p2: (Int, Int)

let input = fill yn (fill xn black)
  |> grid p1 g
  |> point p2 grey

let output = fill yn (fill xn black)
  |> grid p1 g
  |> grid (p2 - (1, 1)) g