Return to maxel.icn CVS log

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

Annotation of 43BSD/contrib/icon/book/08/maxel.icn, revision 1.1

1.1     ! root        1: procedure maxel(a)
        !             2:    local i, j, max
        !             3:    j := i := 1
        !             4:    max := a[1]
        !             5:    while i < *a do {
        !             6:       i +:= 1
        !             7:       if max <:= a[i] then j := i
        !             8:       }
        !             9:    return a[j]
        !            10: end

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