2010-03-24T09:23:33 pq

edit: nachtrag: auch bei zahlen kleiner 0 sollte das gehn:

Code (perl): (dl )

1
2

my $max = "-Infinity";
...

;-)

1
2

D:\>perl -wle "my $max = '-Infinity'; for (-10,-20,-1) { $max = $_ if $_ > $max } print $max"
-Infinity