/* maximum of one or more inputs */

vmax(argv)

{

    local i, s; 

 

    /* 0 or 1 arg case */ 

    if (argc < 2) 

    { 

        if (argc < 1) 

        { 

            s = max(); 

        } 

        else 

        { 

            s = max(getargv(1)); 

        } 

    } 

    else 

    { 

        /* initialize */ 

        s = max(getargv(1), getargv(2)); 

 

        /* compare input args */ 

        for (i = 3; i <= argc; i++) 

        { 

            s = max(s, getargv(i)); 

        } 

    } 

    return(s); 

}

 

 

vmax(1, 3, 2, -1, 0)

 

returns 3.