Return to maxel.icn CVS log

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

Initial revision

procedure maxel(a)
   local i, j, max
   j := i := 1
   max := a[1]
   while i < *a do {
      i +:= 1
      if max <:= a[i] then j := i
      }
   return a[j]
end

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