Return to equalseq.icn CVS log

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

Initial revision

procedure equalseq(e1,e2)
   local x
   while x := @e1 do
      (x === @e2) | fail	# fail if different
   if @e2 then fail		# fail if longer
   else return
end

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