ARC

Appearance

On this page

67e8384a ​

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)
(grey, green, yellow, green, yellow, grey, green, yellow, yellow, [[grey, green, yellow, yellow, green, grey], [green, yellow, grey, grey, yellow, green], [green, yellow, yellow, yellow, yellow, green], [green, yellow, yellow, yellow, yellow, green], [green, yellow, grey, grey, yellow, green], [grey, green, yellow, yellow, green, grey]])
(orange, blue, grey, orange, orange, blue, grey, green, blue, [[orange, blue, grey, grey, blue, orange], [orange, orange, blue, blue, orange, orange], [grey, green, blue, blue, green, grey], [grey, green, blue, blue, green, grey], [orange, orange, blue, blue, orange, orange], [orange, blue, grey, grey, blue, orange]])
(red, grey, red, red, fuschia, yellow, red, red, red, [[red, grey, red, red, grey, red], [red, fuschia, yellow, yellow, fuschia, red], [red, red, red, red, red, red], [red, red, red, red, red, red], [red, fuschia, yellow, yellow, fuschia, red], [red, grey, red, red, grey, red]])
(blue, red, blue, red, teal, blue, teal, blue, fuschia, [[blue, red, blue, blue, red, blue], [red, teal, blue, blue, teal, red], [teal, blue, fuschia, fuschia, blue, teal], [teal, blue, fuschia, fuschia, blue, teal], [red, teal, blue, blue, teal, red], [blue, red, blue, blue, red, blue]])
(blue, fuschia, fuschia, grey, red, red, red, red, red, ?)