1. Minimum & Maximum - Reply
- Posted by "BABOR, JIRI" <J.Babor at GNS.CRI.NZ> Sep 25, 1998
- 373 views
function minimum(object a, object b) if atom(a) and atom(b) then if b<a then a=b end if elsif sequence(a) and sequence(b) then if length(a)=length(b) then for i=1 to length(a) do a[i]=minimum(a[i],b[i]) end for else puts(1,"Error: unequal lengths of sequences!") abort(0) end if else puts(1,"Error: unmatched objects!") abort(0) end if return a end function ? minimum(5,3) ? minimum({5,3,1},{-5,2,6}) ? minimum({5,3,{4,5},1},{-5,2,{-7,7},6}) -- Safer! jiri
2. Re: Minimum & Maximum - Reply
- Posted by Hawke <mdeland at NWINFO.NET> Sep 24, 1998
- 389 views
BABOR, JIRI wrote: > function minimum(object a, object b) snip > end function heh, pretty close... i like that extra check to see if we are looking at atom versus sequence. i had thought that just checking lengths would do that, but... also, heh, i fergot my element indexing in the recursive line... definite bonehead manuever on my part... x[i]=maximum(a,b) *blush* that won't quite cut it eh? infinite recursion? glad you caught that. > -- Safer! for the place (new library--top secret--defn'ly kewl) this routine is going, a tad bit of speed can defn'ly be sacrificed for penultimate safety... good code jiri... thanx oodles (or is that noodles? :) --Hawke'