ARC

Appearance

On this page

85c4e7cd ​

arc
let cs: OList Color

let input = fill (2 * len cs) (fill (2 * len cs) black)
  |> fold (λ(c, i). rect ((i, i, -i, -i), c)) (index cs)

let output = fill (2 * len cs) (fill (2 * len cs) black)
  |> fold (λ(c, i). rect ((i, i, -i, -i), c)) (index (rev cs))
composer
input = fill #0 (fill #1 #2) |> fold (fold rect) #3
output = fill #0 (fill #1 #4) |> fold (fold rect) #5
(VInt, HInt, Color, OList UList ((VInt, HInt, VInt, HInt), Color), Color, OList UList ((VInt, HInt, VInt, HInt), Color))
(12v, 12h, yellow, [{((2v, 2h, 11v, 11h), red)}, {((3v, 3h, 10v, 10h), blue)}, {((4v, 4h, 9v, 9h), green)}, {((5v, 5h, 8v, 8h), grey)}, {((6v, 6h, 7v, 7h), teal)}], teal, [{((2v, 2h, 11v, 11h), grey)}, {((3v, 3h, 10v, 10h), green)}, {((4v, 4h, 9v, 9h), blue)}, {((5v, 5h, 8v, 8h), red)}, {((6v, 6h, 7v, 7h), yellow)}])
(6v, 6h, red, [{((2v, 2h, 5v, 5h), blue)}, {((3v, 3h, 4v, 4h), fuschia)}], fuschia, [{((2v, 2h, 5v, 5h), blue)}, {((3v, 3h, 4v, 4h), red)}])
(8v, 8h, teal, [{((2v, 2h, 7v, 7h), blue)}, {((3v, 3h, 6v, 6h), red)}, {((4v, 4h, 5v, 5h), yellow)}], yellow, [{((2v, 2h, 7v, 7h), red)}, {((3v, 3h, 6v, 6h), blue)}, {((4v, 4h, 5v, 5h), teal)}])
(10v, 10h, orange, [{((2v, 2h, 9v, 9h), red)}, {((3v, 3h, 8v, 8h), yellow)}, {((4v, 4h, 7v, 7h), blue)}, {((5v, 5h, 6v, 6h), green)}], green, [{((2v, 2h, 9v, 9h), blue)}, {((3v, 3h, 8v, 8h), yellow)}, {((4v, 4h, 7v, 7h), red)}, {((5v, 5h, 6v, 6h), orange)}])
(14v, 14h, teal, [{((2v, 2h, 13v, 13h), red)}, {((3v, 3h, 12v, 12h), yellow)}, {((4v, 4h, 11v, 11h), green)}, {((5v, 5h, 10v, 10h), orange)}, {((6v, 6h, 9v, 9h), fuschia)}, {((7v, 7h, 8v, 8h), grey)}], ?, ?)