ARC

Appearance

On this page

817e6c09 ​

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

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

let output = fill (bg.1) (fill (bg.2) black)
  |> fold
    (λ((y, x), i). rect ((y, x, y + 1, x + 1), if (i % 2 == 0) red teal))
    (index (sort (λ(y, x). -x) ps))
composer
input = fill 7v (fill #0 black) |> fold (λr. rect ((r.1 + 1 - 1 | r.1, r.2 + 1 - 1 | r.2, r.1 + 1, r.2 + 1), red)) #1
output = fill 7v (fill #0 black) |> fold (λr. rect ((r.1 + 1 - 1 | r.1, r.2 + 1 - 1 | r.2, r.1 + 1, r.2 + 1), red)) #2 |> fold (λr. rect ((r.1 + 1 - 1 | r.1, r.2 + 1 - 1 | r.2, r.1 + 1, r.2 + 1), teal)) #3
(HInt, UList (VInt, HInt), UList (VInt, HInt), UList (VInt, HInt))
(17h, {(6v, 16h), (6v, 7h), (1v, 12h), (1v, 1h), (5v, 11h), (4v, 14h), (4v, 2h), (3v, 8h), (2v, 5h)}, {(6v, 7h), (5v, 11h), (4v, 14h), (4v, 2h)}, {(6v, 16h), (1v, 12h), (1v, 1h), (3v, 8h), (2v, 5h)})
(14h, {(1v, 13h), (5v, 8h), (5v, 4h), (3v, 10h), (2v, 5h), (2v, 2h)}, {(3v, 10h), (2v, 5h), (2v, 2h)}, {(1v, 13h), (5v, 8h), (5v, 4h)})
(15h, {(6v, 12h), (6v, 1h), (2v, 14h), (1v, 7h), (5v, 6h), (4v, 9h), (3v, 3h)}, {(6v, 12h), (1v, 7h), (3v, 3h)}, {(6v, 1h), (2v, 14h), (5v, 6h), (4v, 9h)})
(7h, {(3v, 1h), (2v, 6h), (5v, 3h)}, {(5v, 3h)}, {(3v, 1h), (2v, 6h)})
(5h, {(5v, 4h), (2v, 1h)}, {(2v, 1h)}, {(5v, 4h)})
(15h, {(6v, 9h), (6v, 1h), (2v, 14h), (5v, 12h), (5v, 5h), (3v, 3h), (2v, 8h)}, ?, ?)