ARC

Appearance

On this page

fcc82909 ​

arc
let gs: OList (Int, Int, OList OList Color)

let input = fill 10 (fill 10 black)
  |> fold (λ(y, x, g). grid (y, x) g) gs

let output = fill 10 (fill 10 black)
  |> fold (λ(y, x, g). λh. h
    |> grid (y, x) g
    |> rect ((y + 2, x, y + 1 + len (group id (flat g)), x + 1), green)
  ) gs
composer
input = fill 10v (fill 10h black) |> fold (fold rect) #0
output = fill 10v (fill 10h black) |> fold (fold rect) #1
(OList UList ((VInt, HInt, VInt, HInt), Color), OList UList ((VInt, HInt, VInt, HInt), Color))
([{((7v, 6h, 7v, 7h), orange), ((6v, 7h, 6v, 7h), yellow), ((6v, 6h, 6v, 6h), teal), ((4v, 2h, 4v, 3h), fuschia), ((3v, 2h, 3v, 3h), brown)}], [{((8v, 6h, 10v, 7h), green), ((7v, 6h, 7v, 7h), orange), ((6v, 7h, 6v, 7h), yellow), ((6v, 6h, 6v, 6h), teal), ((5v, 2h, 6v, 3h), green), ((4v, 2h, 4v, 3h), fuschia), ((3v, 2h, 3v, 3h), brown)}])
([{((6v, 8h, 6v, 8h), red), ((6v, 7h, 6v, 7h), blue), ((5v, 8h, 5v, 8h), blue), ((5v, 7h, 5v, 7h), red), ((3v, 4h, 3v, 4h), yellow), ((3v, 3h, 3v, 3h), brown), ((2v, 4h, 2v, 4h), teal), ((2v, 3h, 2v, 3h), yellow)}], [{((7v, 7h, 8v, 8h), green), ((6v, 8h, 6v, 8h), red), ((6v, 7h, 6v, 7h), blue), ((5v, 8h, 5v, 8h), blue), ((5v, 7h, 5v, 7h), red), ((4v, 3h, 6v, 4h), green), ((3v, 4h, 3v, 4h), yellow), ((3v, 3h, 3v, 3h), brown), ((2v, 4h, 2v, 4h), teal), ((2v, 3h, 2v, 3h), yellow)}])
([{((6v, 5h, 7v, 6h), fuschia)}, {((6v, 5h, 6v, 5h), orange), ((3v, 8h, 3v, 8h), brown), ((3v, 7h, 3v, 7h), teal), ((3v, 4h, 3v, 4h), orange), ((3v, 3h, 3v, 3h), fuschia), ((2v, 8h, 2v, 8h), teal), ((2v, 7h, 2v, 7h), brown), ((2v, 4h, 2v, 4h), yellow), ((2v, 3h, 2v, 3h), red)}], [{((6v, 5h, 7v, 6h), fuschia)}, {((8v, 5h, 9v, 6h), green), ((6v, 5h, 6v, 5h), orange), ((4v, 7h, 5v, 8h), green), ((4v, 3h, 7v, 4h), green), ((3v, 8h, 3v, 8h), brown), ((3v, 7h, 3v, 7h), teal), ((3v, 4h, 3v, 4h), orange), ((3v, 3h, 3v, 3h), fuschia), ((2v, 8h, 2v, 8h), teal), ((2v, 7h, 2v, 7h), brown), ((2v, 4h, 2v, 4h), yellow), ((2v, 3h, 2v, 3h), red)}])
([{((2v, 1h, 3v, 2h), blue)}, {((3v, 1h, 3v, 1h), red), ((5v, 5h, 5v, 5h), yellow), ((5v, 4h, 5v, 4h), teal), ((4v, 5h, 4v, 5h), orange), ((4v, 4h, 4v, 4h), yellow), ((3v, 8h, 3v, 8h), fuschia), ((3v, 7h, 3v, 7h), blue), ((2v, 8h, 2v, 8h), brown), ((2v, 7h, 2v, 7h), red)}], ?)