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

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.