Perlについての質問箱 28箱目

どう考えてもこれで十分だろ。
($x, $y, $z) = sort { $b <=> $a } ($x, $y, $z);

sortを使わないとなると、if文やリスト、配列を使うのでしょうか？

>>973
変数３個なら並び方は順列で６通りだから if〜elsif 文でなんとかなるだろ

$i = @nums = ( $x, $y, $z );
foreach (0 .. $i) {
  foreach (0 .. @nums) {
    @nums[ $_, $_ + 1 ] = @nums[ $_ + 1, $_ ] if $nums[$_] < $nums[ $_ + 1 ];
  }
  unshift @sorted, pop @nums;
}

sort() を使わないと、こんな愉快なコードを保守する破目になりますが、かまいませんか?

それは変数三つに対して大仰だろう
if ($x < $y) { ($x, $y) = ($y, $x) }
if ($y < $z) { ($y, $z) = ($z, $y) }
if ($x < $z) { ($x, $z) = ($z, $x) }

って順番間違えたorz 正しくはこうだ
if ($x < $y) { ($x, $y) = ($y, $x) }
if ($x < $z) { ($x, $z) = ($z, $x) }
if ($y < $z) { ($y, $z) = ($z, $y) }

そろそろ >>960 の釣り宣言が入る頃だな

>>976-977
スネーク、三大美徳の基本を思い出して！

@a=($a=10,$b=5,$c=30);

if($a<$b){
($a,$b)=($b,$a)
} elsif($a<$c){
($a,$c)=($c,$a)
} elsif($b<$c){
($b,$c)=($c,$b)
}

print $a $b $c

xyzをabcに変えました。
これでできません・・・どうしたらよいのでしょうか？

教えてくれるほどの技術の人が居ないようなので
別のところで質問することにします。
さようなら

>>981
偽者はやめてください

>>980
自分で$x,$,$zで質問して、なぜ$a,$b,$cに代えるの？
無知なフリして無駄に時間を使わせないで下さい
しかもつまらないし

皆さんも、親切なだけではなく、ガマン強いですね
もう相手にするのはやめては？

>>980
上のほうで if (条件) { ブロック } を3つ並べる例を出してもらってるのに
if〜elsif〜elsif〜に動作変えちゃったのはなぜ？

つーか、sort で…というのを踏まえて $a $b を使う方向に変えたのかなあ。

($x=10,$y=100,$z=30);

if ($x < $y) {
($x, $y) = ($y, $x)
} if ($x < $z) {
($x, $z) = ($z, $x)
} if ($y < $z){
($y, $z) = ($z, $y)
}

print "$x,$y,$z";

でやったらできました。
しかしifの中がいまいちわかりません。。

>>979
そうだ、プログラマは無精であるべきだったな。
対象が増えることを予期するべきだった。私とした事が。
罰として久しぶりに次スレ建ててくる。

どうしてsortを使わないのかいまいち分かりません。。

本当は分かるけど。課題なんだろ。

>>986はスレ立てを蹴られたのか、テンプレの準備がなかなか進まないのか。

ごめん、蹴られて別回線使おうとしてたところだけど駄目だった。

俺も蹴られたらどうしよう？と思いながら逝ってくる。

無事に立ちました。次スレ。
Perlについての質問箱 29箱目
http://pc8.2ch.net/test/read.cgi/tech/1166708139/

うめ

うめ

うめ

うめ

うめ

うめ

$s = q{$self->kakikomi(qq{\$s = q{$s};\n$s\n__END__\n埋め})};
$self->kakikomi(qq{\$s = q{$s};\n$s\n__END__\n埋め});
__END__
埋め

うはｗｗ

1000なら彼女できる

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。