2753e76c

arc

let ss: OList (Int, Int, Int, Color)

let input = fill 16 (fill 16 black)
  |> fold (λ(y, x, s, c). rect ((y, x, y + s - 1, x + s - 1), c)) ss

let output = group (λ(y, x, s, c). c) ss
  |> map (λ(c, ss). (c, len ss))
  |> sort (λ(c, n). -n)
  |> (λr. flat (map (λ(c, n). [fill (r.1.2) black] |> hline (1, -n, -1, c)) r))

composer

input = fill 16v (fill 16h black) |> fold rect #0
output = #1
(UList ((VInt, HInt, VInt, HInt), Color), OList OList Color)
({((1v, 1h, 5v, 5h), teal), ((13v, 8h, 15v, 10h), red), ((12v, 2h, 13v, 3h), red), ((8v, 12h, 9v, 13h), blue), ((8v, 6h, 11v, 9h), teal), ((3v, 9h, 6v, 12h), teal)}, [[teal, teal, teal], [black, red, red], [black, black, blue]])
({((8v, 13h, 11v, 16h), red), ((7v, 1h, 10v, 4h), teal), ((1v, 14h, 2v, 15h), red), ((1v, 9h, 2v, 10h), yellow), ((14v, 13h, 15v, 14h), green), ((12v, 4h, 13v, 5h), teal), ((9v, 8h, 11v, 10h), green), ((6v, 7h, 7v, 8h), green), ((4v, 11h, 6v, 13h), red), ((2v, 4h, 4v, 6h), red)}, [[red, red, red, red], [black, green, green, green], [black, black, teal, teal], [black, black, black, yellow]])
({((14v, 10h, 16v, 12h), red), ((13v, 1h, 14v, 2h), blue), ((8v, 12h, 12v, 16h), blue), ((8v, 1h, 10v, 3h), red), ((1v, 12h, 3v, 14h), teal), ((1v, 9h, 2v, 10h), teal), ((12v, 5h, 15v, 8h), blue), ((7v, 8h, 9v, 10h), green), ((5v, 14h, 6v, 15h), teal), ((3v, 5h, 5v, 7h), blue), ((2v, 2h, 3v, 3h), blue)}, [[blue, blue, blue, blue, blue], [black, black, teal, teal, teal], [black, black, black, red, red], [black, black, black, black, green]])
({((8v, 15h, 9v, 16h), green), ((3v, 15h, 4v, 16h), teal), ((1v, 7h, 2v, 8h), teal), ((14v, 5h, 15v, 6h), yellow), ((12v, 10h, 15v, 13h), green), ((12v, 2h, 13v, 3h), green), ((10v, 6h, 12v, 8h), yellow), ((7v, 10h, 8v, 11h), yellow), ((6v, 5h, 8v, 7h), yellow), ((3v, 11h, 4v, 12h), green), ((2v, 2h, 4v, 4h), green)}, ?)

Input	Output

2753e76c ​

2753e76c