Return to equalseq.icn CVS log

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

researchv10 Dan Cross

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.