Return to eq.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / 16

Initial revision

procedure eq(x,y)
   local i
   if x === y then return y	# succeed if identical
   if type(x) == type(y) == "list" then {
      if *x ~= *y then fail	# check sizes
      every i := 1 to *x do	# check subtrees
         if not eq(x[i],y[i]) then fail
      return y
     }
end

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