ARC

Appearance

On this page

794b24be ​

arc
let g: OList OList Color

let input = g

let output = (λn. null
  |> if (n == 1) [[red, black, black], [black, black, black], [black, black, black]]
  |> if (n == 2) [[red, red, black], [black, black, black], [black, black, black]]
  |> if (n == 3) [[red, red, red], [black, black, black], [black, black, black]]
  |> if (n == 4) [[red, red, red], [black, red, black], [black, black, black]]
) (len (filter (ne black) (flat g)))
composer
input = [[#0, #1, #2], [#3, #4, #5], [#6, #7, #8]]
output = [[red, #9, #10], [black, #11, black], [black, black, black]]
(Color, Color, Color, Color, Color, Color, Color, Color, Color, Color, Color, Color)
(black, black, black, blue, black, black, black, black, black, black, black, black)
(black, blue, black, blue, black, black, black, black, black, red, black, black)
(black, black, blue, black, black, black, blue, black, black, red, black, black)
(black, blue, black, black, black, blue, black, black, black, red, black, black)
(black, black, blue, black, black, black, black, black, black, black, black, black)
(blue, blue, black, black, black, black, blue, black, black, red, red, black)
(black, blue, black, blue, blue, black, black, black, black, red, red, black)
(blue, blue, black, black, black, black, blue, black, blue, red, red, red)
(black, blue, black, blue, blue, black, blue, black, black, red, red, red)
(blue, black, black, black, black, blue, black, blue, blue, red, red, red)
(black, blue, black, black, black, black, black, blue, black, ?, ?, ?)
(black, blue, black, black, blue, blue, blue, black, black, ?, ?, ?)