ARC

Appearance

On this page

4c4377d9 ​

arc
let g: OList OList Color

let input = g

let output = g
  |> λg. flat [rev g, g]
composer
input = [#0, #1, #2]
output = #3
(OList Color, OList Color, OList Color, OList OList Color)
([brown, brown, grey, brown], [grey, grey, brown, brown], [brown, grey, brown, brown], [[brown, grey, brown, brown], [grey, grey, brown, brown], [brown, brown, grey, brown], [brown, brown, grey, brown], [grey, grey, brown, brown], [brown, grey, brown, brown]])
([yellow, blue, blue, yellow], [blue, blue, blue, blue], [yellow, yellow, yellow, blue], [[yellow, yellow, yellow, blue], [blue, blue, blue, blue], [yellow, blue, blue, yellow], [yellow, blue, blue, yellow], [blue, blue, blue, blue], [yellow, yellow, yellow, blue]])
([brown, yellow, brown, yellow], [brown, brown, yellow, yellow], [yellow, yellow, yellow, yellow], [[yellow, yellow, yellow, yellow], [brown, brown, yellow, yellow], [brown, yellow, brown, yellow], [brown, yellow, brown, yellow], [brown, brown, yellow, yellow], [yellow, yellow, yellow, yellow]])
([green, green, grey, grey], [green, grey, grey, green], [grey, grey, green, green], [[grey, grey, green, green], [green, grey, grey, green], [green, green, grey, grey], [green, green, grey, grey], [green, grey, grey, green], [grey, grey, green, green]])
([yellow, yellow, brown, brown], [yellow, yellow, yellow, yellow], [yellow, yellow, brown, brown], ?)