Search type | Search syntax |
---|---|
タグ | [タグ] |
完全一致 | "ここの単語" |
作成者 |
user:1234 user:me (あなたの) |
スコア |
score:3 (3+) score:0 (なし) |
回答 |
answers:3 (3+) answers:0 (なし) isaccepted:yes hasaccepted:no inquestion:1234 |
閲覧数 | views:250 |
コード | code:"if (foo != bar)" |
セクション |
title:リンゴ body:"リンゴ オレンジ" |
URL | url:"*.example.com" |
セーブ | in:saves |
状態 |
closed:yes duplicate:no migrated:no wiki:no |
種類 |
is:question is:answer |
除外 |
-[タグ] -リンゴ |
高度な検索の詳細については、ヘルプ ページをご覧ください。 |
0
票
2
回答
224
閲覧数
perlにて、2つの要素からなる配列のリファレンスの配列から、0番目の要素の値が最大の1番目の要素を取得したい。
例えば([1,'A'],[2,'B'],.....,[10,'X'])のとき、'X'を取り出すには、どうしたらいいでしょうか?
forループでごりごりやればできますが、map、grep、maxのような関数を使ってエレガントに記述したいのですが。
0
票
perlにて、2つの要素からなる配列のリファレンスの配列から、0番目の要素の値が最大の1番目の要素を取得したい。
自己回答ですが、List::Util のreduceを使って、
(reduce { $a->[0]>$b->[0] ? $a : $b } @arr)->[1];
と書けます。
metropolisさんのコメントを参考にさせていただきました。