tricu

An interpreted language for exploring Tree Calculus
Log | Files | Refs | README | LICENSE

recursive.scp (491B)

      1 -- Bind again to the package's explicit selfReference during configuration.
      2 consumer entry
      3   []       @ _ => (0, (stem leaf, ([], leaf)))
      4   [x | xs] @ _ => (1, ("Echo", (x, ("read", xs))))
      5 consumer read
      6   (stem leaf, (value, _)) @ rest => (2, ("again", (rest, (leaf, ("resume", value)))))
      7   result                  @ _    => (0, result)
      8 consumer resume
      9   (stem leaf, (tail, metadata)) @ head => (0, (stem leaf, ([head | tail], metadata)))
     10   result                      @ _    => (0, result)