ARC

Appearance

On this page

46442a0e ​

arc
let g: OList OList Color

let input = g

let output = flat [
  hcat [g, map rev (tp g)],
  hcat [rev (tp g), rev (map rev g)],
]
composer
input = #0
output = #1
(OList OList Color, OList OList Color)
([[teal, fuschia], [fuschia, teal]], [[teal, fuschia, fuschia, teal], [fuschia, teal, teal, fuschia], [fuschia, teal, teal, fuschia], [teal, fuschia, fuschia, teal]])
([[orange, orange, teal], [orange, orange, teal], [teal, teal, teal]], [[orange, orange, teal, teal, orange, orange], [orange, orange, teal, teal, orange, orange], [teal, teal, teal, teal, teal, teal], [teal, teal, teal, teal, teal, teal], [orange, orange, teal, teal, orange, orange], [orange, orange, teal, teal, orange, orange]])
([[fuschia, brown, brown], [fuschia, yellow, yellow], [fuschia, yellow, yellow]], [[fuschia, brown, brown, fuschia, fuschia, fuschia], [fuschia, yellow, yellow, yellow, yellow, brown], [fuschia, yellow, yellow, yellow, yellow, brown], [brown, yellow, yellow, yellow, yellow, fuschia], [brown, yellow, yellow, yellow, yellow, fuschia], [fuschia, fuschia, fuschia, brown, brown, fuschia]])
([[blue, yellow, blue], [yellow, brown, yellow], [brown, blue, brown]], ?)