Appearance
f8b3ba0a ​
arc
let g: OList OList Color
let input = fill ((len g) * 2 + 1) (fill ((len (g.1)) * 3 + 1) black)
|> fold (λ(r, i).
fold (λ(c, j).
hline (i * 2, j * 3 - 1, j * 3, c)
) (index r)
) (index g)
let output = flat g
|> group id
|> sort (λ(c, ls). -len ls)
|> take (2, -1)
|> map (λ(c, ls). [c])composer
input = fill #0 (fill #1 black) |> fold rect #2
output = [[#3], [#4], [#5]]
(VInt, HInt, UList ((VInt, HInt, VInt, HInt), Color), Color, Color, Color)
(13v, 13h, {((12v, 11h, 12v, 12h), blue), ((12v, 8h, 12v, 9h), blue), ((12v, 5h, 12v, 6h), blue), ((12v, 2h, 12v, 3h), blue), ((10v, 11h, 10v, 12h), blue), ((10v, 8h, 10v, 9h), blue), ((10v, 5h, 10v, 6h), red), ((10v, 2h, 10v, 3h), blue), ((8v, 11h, 8v, 12h), blue), ((8v, 8h, 8v, 9h), blue), ((8v, 5h, 8v, 6h), blue), ((8v, 2h, 8v, 3h), red), ((6v, 11h, 6v, 12h), blue), ((6v, 8h, 6v, 9h), blue), ((6v, 5h, 6v, 6h), yellow), ((6v, 2h, 6v, 3h), blue), ((4v, 11h, 4v, 12h), yellow), ((4v, 8h, 4v, 9h), yellow), ((4v, 5h, 4v, 6h), blue), ((4v, 2h, 4v, 3h), blue), ((2v, 11h, 2v, 12h), blue), ((2v, 8h, 2v, 9h), blue), ((2v, 5h, 2v, 6h), blue), ((2v, 2h, 2v, 3h), green)}, yellow, red, green)
(13v, 16h, {((12v, 14h, 12v, 15h), teal), ((12v, 11h, 12v, 12h), teal), ((12v, 8h, 12v, 9h), teal), ((12v, 5h, 12v, 6h), teal), ((12v, 2h, 12v, 3h), teal), ((10v, 14h, 10v, 15h), fuschia), ((10v, 11h, 10v, 12h), teal), ((10v, 8h, 10v, 9h), fuschia), ((10v, 5h, 10v, 6h), teal), ((10v, 2h, 10v, 3h), teal), ((8v, 14h, 8v, 15h), teal), ((8v, 11h, 8v, 12h), teal), ((8v, 8h, 8v, 9h), teal), ((8v, 5h, 8v, 6h), blue), ((8v, 2h, 8v, 3h), teal), ((6v, 14h, 6v, 15h), teal), ((6v, 11h, 6v, 12h), teal), ((6v, 8h, 6v, 9h), blue), ((6v, 5h, 6v, 6h), teal), ((6v, 2h, 6v, 3h), blue), ((4v, 14h, 4v, 15h), teal), ((4v, 11h, 4v, 12h), fuschia), ((4v, 8h, 4v, 9h), red), ((4v, 5h, 4v, 6h), teal), ((4v, 2h, 4v, 3h), teal), ((2v, 14h, 2v, 15h), teal), ((2v, 11h, 2v, 12h), teal), ((2v, 8h, 2v, 9h), teal), ((2v, 5h, 2v, 6h), teal), ((2v, 2h, 2v, 3h), fuschia)}, fuschia, blue, red)
(13v, 10h, {((12v, 8h, 12v, 9h), green), ((12v, 5h, 12v, 6h), green), ((12v, 2h, 12v, 3h), red), ((10v, 8h, 10v, 9h), red), ((10v, 5h, 10v, 6h), red), ((10v, 2h, 10v, 3h), green), ((8v, 8h, 8v, 9h), green), ((8v, 5h, 8v, 6h), teal), ((8v, 2h, 8v, 3h), green), ((6v, 8h, 6v, 9h), green), ((6v, 5h, 6v, 6h), teal), ((6v, 2h, 6v, 3h), green), ((4v, 8h, 4v, 9h), green), ((4v, 5h, 4v, 6h), green), ((4v, 2h, 4v, 3h), blue), ((2v, 8h, 2v, 9h), green), ((2v, 5h, 2v, 6h), green), ((2v, 2h, 2v, 3h), green)}, red, teal, blue)
(13v, 13h, {((12v, 11h, 12v, 12h), blue), ((12v, 8h, 12v, 9h), blue), ((12v, 5h, 12v, 6h), teal), ((12v, 2h, 12v, 3h), blue), ((10v, 11h, 10v, 12h), yellow), ((10v, 8h, 10v, 9h), blue), ((10v, 5h, 10v, 6h), teal), ((10v, 2h, 10v, 3h), blue), ((8v, 11h, 8v, 12h), blue), ((8v, 8h, 8v, 9h), teal), ((8v, 5h, 8v, 6h), blue), ((8v, 2h, 8v, 3h), blue), ((6v, 11h, 6v, 12h), blue), ((6v, 8h, 6v, 9h), blue), ((6v, 5h, 6v, 6h), blue), ((6v, 2h, 6v, 3h), red), ((4v, 11h, 4v, 12h), red), ((4v, 8h, 4v, 9h), blue), ((4v, 5h, 4v, 6h), red), ((4v, 2h, 4v, 3h), blue), ((2v, 11h, 2v, 12h), blue), ((2v, 8h, 2v, 9h), teal), ((2v, 5h, 2v, 6h), blue), ((2v, 2h, 2v, 3h), blue)}, teal, red, yellow)
(15v, 13h, {((14v, 11h, 14v, 12h), red), ((14v, 8h, 14v, 9h), yellow), ((14v, 5h, 14v, 6h), red), ((14v, 2h, 14v, 3h), red), ((12v, 11h, 12v, 12h), yellow), ((12v, 8h, 12v, 9h), red), ((12v, 5h, 12v, 6h), blue), ((12v, 2h, 12v, 3h), red), ((10v, 11h, 10v, 12h), red), ((10v, 8h, 10v, 9h), red), ((10v, 5h, 10v, 6h), red), ((10v, 2h, 10v, 3h), yellow), ((8v, 11h, 8v, 12h), red), ((8v, 8h, 8v, 9h), blue), ((8v, 5h, 8v, 6h), red), ((8v, 2h, 8v, 3h), red), ((6v, 11h, 6v, 12h), teal), ((6v, 8h, 6v, 9h), red), ((6v, 5h, 6v, 6h), red), ((6v, 2h, 6v, 3h), teal), ((4v, 11h, 4v, 12h), red), ((4v, 8h, 4v, 9h), yellow), ((4v, 5h, 4v, 6h), red), ((4v, 2h, 4v, 3h), blue), ((2v, 11h, 2v, 12h), red), ((2v, 8h, 2v, 9h), red), ((2v, 5h, 2v, 6h), yellow), ((2v, 2h, 2v, 3h), red)}, ?, ?, ?)