Return to stree.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / book / 16

researchv10 Dan Cross

procedure stree(ltree)
   local s
   if *ltree = 1 then return ltree[1]	  # start with leaf
   s := ltree[1] || "("			  # append value
					  # append stree
   every s ||:= stree(ltree[2 to *ltree]) || ","
   return s[1:-1] || ")"
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.