23b5c85d

arc

let bg: (Int, Int)
let rs: OList ((Int, Int, Int, Int), Color)

let input = fill (bg.1) (fill (bg.2) black)
  |> fold rect rs

let output = rs
  |> map (λ(p, c). (p.3 - p.1 + 1, p.4 - p.2 + 1, c))
  |> sort (λ(h, w, c). h + w)
  |> (λr. fill (r.1.1) (fill (r.1.2) (r.1.3)))

composer

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

Input	Output

23b5c85d ​

23b5c85d