ARC

Appearance

On this page

62c24649 ​

arc
let g: OList OList Color

let input = g

let output = g
  |> (λg. flat [g, rev g])
  |> (λg. hcat [g, map rev g])
composer
input = [[#0, #1, #2], [#3, #4, #5], [#6, #7, #8]]
output = #9
(Color, Color, Color, Color, Color, Color, Color, Color, Color, OList OList Color)
(green, green, green, black, red, red, blue, blue, black, [[green, green, green, green, green, green], [black, red, red, red, red, black], [blue, blue, black, black, blue, blue], [blue, blue, black, black, blue, blue], [black, red, red, red, red, black], [green, green, green, green, green, green]])
(green, green, blue, blue, green, black, black, red, red, [[green, green, blue, blue, green, green], [blue, green, black, black, green, blue], [black, red, red, red, red, black], [black, red, red, red, red, black], [blue, green, black, black, green, blue], [green, green, blue, blue, green, green]])
(red, blue, black, black, red, green, black, green, black, [[red, blue, black, black, blue, red], [black, red, green, green, red, black], [black, green, black, black, green, black], [black, green, black, black, green, black], [black, red, green, green, red, black], [red, blue, black, black, blue, red]])
(blue, blue, black, black, green, red, green, green, black, ?)