ARC

Appearance

On this page

5582e5ca ​

arc
let g: OList OList Color

let input = g

let output = flat g
  |> group id
  |> sort (λ(c, ls). -len ls)
  |> λcs. fill 3 (fill 3 (cs.1.1))
composer
input = [[#0, #1, #2], [#3, #4, #5], [#6, #7, #8]]
output = fill 3v (fill 3h #9)
(Color, Color, Color, Color, Color, Color, Color, Color, Color, Color)
(yellow, yellow, teal, fuschia, yellow, green, fuschia, green, black, yellow)
(fuschia, teal, brown, blue, teal, blue, brown, yellow, brown, brown)
(yellow, fuschia, brown, fuschia, yellow, blue, teal, teal, fuschia, fuschia)
(teal, teal, fuschia, yellow, fuschia, brown, teal, green, black, ?)