Return to teq.icn CVS log

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

researchv10 Dan Cross

procedure teq(a1,a2)
   local i
   if *a1 ~= *a2 then fail	# check sizes
   if a1[1] ~== a2[1] then fail	# check values
   every i := 2 to *a1 do	# check subtrees
      if not teq(a1[i],a2[i]) then fail
   return a2
end

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