blob: da7c87dfad3f7255491b61a95c26fe729735eb05 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
:import std/List .
:import std/Number .
:import std/Char C
walk scanl floor (+0)
floor [[(C.eq? 0 '(') ++1 --1]]
main [parts (walk instructions)]
instructions init 0
parts [(last 0) : (find-index <?‣ 0)]
|
