ARC

Appearance

On this page

5783df64 ​

arc
let ps: OList (Int, Int, Color)
let s: Int

let input = fill (3 * s) (fill (3 * s) black)
  |> fold (λ(y, x, c). point (y, x) c) ps

let output = fill 3 (fill 3 black)
  |> fold (λ(y, x, c). point (y / s, x / s) c) ps
composer
input = fill #0 (fill #1 black) |> fold (λr. rect ((r.2, r.3, r.2, r.3), r.1)) #2
output = [[#3, #4, #5], [#6, #7, #8], [#9, #10, #11]]
(VInt, HInt, UList (Color, VInt, HInt), Color, Color, Color, Color, Color, Color, Color, Color, Color)
(6v, 6h, {(teal, 6v, 5h), (blue, 6v, 1h), (red, 3v, 1h), (orange, 1v, 6h), (fuschia, 1v, 2h), (grey, 5v, 4h), (green, 4v, 3h), (brown, 3v, 5h), (yellow, 2v, 4h)}, fuschia, yellow, orange, red, green, brown, blue, grey, teal)
(9v, 9h, {(grey, 6v, 1h), (blue, 5v, 9h), (teal, 1v, 7h), (orange, 1v, 4h), (brown, 8v, 5h), (fuschia, 7v, 7h), (green, 7v, 3h), (red, 4v, 6h), (yellow, 2v, 2h)}, yellow, orange, teal, grey, red, blue, green, brown, fuschia)
(6v, 6h, {(teal, 6v, 5h), (yellow, 6v, 1h), (orange, 2v, 6h), (blue, 1v, 4h), (red, 1v, 1h), (fuschia, 5v, 4h), (grey, 4v, 3h), (brown, 3v, 5h), (green, 3v, 2h)}, red, blue, orange, green, grey, brown, yellow, fuschia, teal)
(9v, 9h, {(orange, 9v, 9h), (grey, 2v, 1h), (brown, 1v, 7h), (red, 8v, 4h), (green, 8v, 2h), (yellow, 6v, 3h), (blue, 5v, 6h), (teal, 4v, 8h), (fuschia, 2v, 6h)}, ?, ?, ?, ?, ?, ?, ?, ?, ?)