ianb wrote: > I'll try to find time later to do full versions for both max and min > with decimal points, unless someone else does it first.
This works for me with decimals: __BEGIN__ my @a = qw(.01 23 3 52.3 2 3); ($x="@a") =~ s/([\d.]+) ?/$max=$1>$max?$1:$max/eg; ($x="@a") =~ s/([\d.]+) ?/$min||=$1;$min=$1<$min?$1:$min/eg; print "Min: $min$/"; print "Max: $max$/"; __END__ > It's an interesting academic exercise, but for Larry's sake, don't use > it in a real program! Good advice! :-) --Dave
