OpenEuphoria

Re: Standard library praise and challenge

• Posted by mattlewis (admin) Sep 16, 2011
• 2978 views

Or...

public function max( object a, object b = a ) 
    if atom(a) then 
        if a >= b then 
            return a 
        else 
            return b 
        end if 
    end if 
    b = mathcons:MINF 
    atom c 
    for i = 1 to length(a) do 
        c = max(a[i]) 
        if c > b then 
            b = c 
    end if 
    end for 
    return b 
end function 

Matt