Opened by RPerl at 2008-05-10 23:36
User since
2007-12-13
411 articles
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-12-13
411 articles
BenutzerIn
hab mir Gedanken darüber gemacht wie man meinen Algo als Einzeiler hinbekommt:
allerdings stört mich der Ringtausch im vordersten map { $y=$x; $x=$_; $x-$y }, weiß jemand wie man das einfacher hinbekommt?
Nachtrag: vielleicht wird mein Problem so klarer map { $y=$_-$x ; $x=$_ ; $y } ich würde gerne das $y einsparen
Nachtrag2: kürzer aber unverständlich: map { $y+=$x; $x=$_-$y }
Code (perl): (dl
)
1 2 3 4
$,="\t"; print map { $y=$x; $x=$_; $x-$y } sort {$a <=> $b} (100, map {int(rand(100))} (1..4)) ;
allerdings stört mich der Ringtausch im vordersten map { $y=$x; $x=$_; $x-$y }, weiß jemand wie man das einfacher hinbekommt?
Nachtrag: vielleicht wird mein Problem so klarer map { $y=$_-$x ; $x=$_ ; $y } ich würde gerne das $y einsparen
Nachtrag2: kürzer aber unverständlich: map { $y+=$x; $x=$_-$y }
TMTOWTDYOG (there's more than one way to dig your own grave)