ARC

Appearance

On this page

22eb0ac0 ​

arc
let r1: OList Color
let r2: OList Color

let input = fill 10 (fill 10 black)
  |> fold (λ(c, i). point (i, 1) c) (index r1)
  |> fold (λ(c, i). point (i, -1) c) (index r2)

let output = fill 10 (fill 10 black)
  |> fold (λ(c, i). point (i, 1) c) (index r1)
  |> fold (λ(c, i). point (i, -1) c) (index r2)
  |> fold (λ(c, i). hline (i, 2, -2, c)) (index (zip (λc1. λc2. if (c1 == c2) c1 black) r1 r2))
composer
input = fill 10v (fill 10h black) |> fold (λr. rect ((r.2, 10h, r.2, 10h), r.1)) #0 |> fold (λr. rect ((r.2, 1h, r.2, 1h), r.1)) #1
output = fill 10v (fill 10h black) |> fold (λr. rect ((r.2, 10h, r.2, 10h), r.1)) #2 |> fold (λr. rect ((r.2, 1h, r.2, r.3), r.1)) #3
(UList (Color, VInt), UList (Color, VInt), UList (Color, VInt), UList (Color, VInt, HInt))
({(teal, 8v), (yellow, 6v), (brown, 4v), (fuschia, 2v)}, {(fuschia, 8v), (yellow, 6v), (teal, 4v), (brown, 2v)}, {(teal, 8v), (brown, 4v), (fuschia, 2v)}, {(fuschia, 8v, 1h), (yellow, 6v, 10h), (teal, 4v, 1h), (brown, 2v, 1h)})
({(green, 10v), (blue, 8v), (yellow, 6v), (red, 4v), (teal, 2v)}, {(red, 10v), (blue, 8v), (green, 6v), (yellow, 4v), (teal, 2v)}, {(green, 10v), (yellow, 6v), (red, 4v)}, {(red, 10v, 1h), (blue, 8v, 10h), (green, 6v, 1h), (yellow, 4v, 1h), (teal, 2v, 10h)})
({(red, 8v), (green, 6v), (yellow, 4v), (teal, 2v)}, {(teal, 8v), (grey, 6v), (green, 4v), (red, 2v)}, {(red, 8v), (green, 6v), (yellow, 4v), (teal, 2v)}, {(teal, 8v, 1h), (grey, 6v, 1h), (green, 4v, 1h), (red, 2v, 1h)})
({(yellow, 10v), (fuschia, 8v), (brown, 6v), (green, 4v), (red, 2v)}, {(brown, 10v), (fuschia, 8v), (red, 6v), (green, 4v), (yellow, 2v)}, ?, ?)