tricu

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

packed-fold.scp (268B)

      1 -- Experiment only: fold's worker/accumulator travel in the input envelope.
      2 consumer packedFold
      3   ([], (worker, accumulator))       @ _ => accumulator
      4   ([x | xs], (worker, accumulator)) @ _ => call worker (accumulator, x) as next in recur (xs, (worker, next)) @ leaf