ARC

Appearance

On this page

ff28f65a ​

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

let input = fill s (fill s black)
  |> fold (λ(y, x). rect ((y, x, y + 1, x + 1), red)) ps

let output = fill 3 (fill 3 black)
  |> fold (λ(p, i). point ((i * 2 - 1) / 3, (i - 1) * 2 % 3 + 1) blue) (index ps)
composer
input = fill #0 (fill #1 black) |> fold (λr. rect ((r.2 + 1 - 1 | r.2, r.3 + 1 - 1 | r.3, r.2 + 1, r.3 + 1), r.1)) #2
output = [[blue, black, #3], [black, #4, black], [#5, black, #6]]
(VInt, HInt, UList (Color, VInt, HInt), Color, Color, Color, Color)
(5v, 5h, {(red, 1v, 1h)}, black, black, black, black)
(5v, 5h, {(red, 4v, 4h), (red, 2v, 2h)}, blue, black, black, black)
(7v, 7h, {(red, 5v, 3h), (red, 3v, 5h), (red, 2v, 2h)}, blue, blue, black, black)
(6v, 6h, {(red, 5v, 3h), (red, 2v, 2h)}, blue, black, black, black)
(3v, 3h, {(red, 2v, 2h)}, black, black, black, black)
(7v, 7h, {(red, 6v, 2h), (red, 1v, 5h), (red, 4v, 5h), (red, 3v, 2h)}, blue, blue, blue, black)
(7v, 7h, {(black, 6v, 6h), (red, 6v, 4h), (red, 5v, 1h), (red, 4v, 6h), (red, 1v, 5h), (red, 2v, 2h)}, blue, blue, blue, blue)
(7v, 7h, {(red, 3v, 1h), (red, 1v, 6h), (red, 1v, 3h), (black, 1v, 1h), (red, 4v, 4h)}, blue, blue, blue, black)
(6v, 6h, {(red, 2v, 1h), (red, 1v, 4h), (red, 4v, 3h)}, ?, ?, ?, ?)
(7v, 7h, {(red, 4v, 6h), (red, 2v, 1h), (red, 5v, 3h), (red, 2v, 4h)}, ?, ?, ?, ?)
(7v, 7h, {(red, 6v, 5h), (red, 3v, 6h), (black, 1v, 6h), (red, 1v, 4h), (red, 1v, 1h), (red, 4v, 2h)}, ?, ?, ?, ?)