Skip to main content
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
除外 -[タグ]
-リンゴ
高度な検索の詳細については、ヘルプ ページをご覧ください
でタグ付けされた検索結果
検索オプション not deleted user 24431

配列 (array) とは、要素を一列に並べたデータ構造です。一般に配列の要素にはランダムアクセスできます(つまり、O(1) でアクセスできます)。

0
2 回答
224 閲覧数

perlにて、2つの要素からなる配列のリファレンスの配列から、0番目の要素の値が最大の1番目の要素を取得したい。

例えば([1,'A'],[2,'B'],.....,[10,'X'])のとき、'X'を取り出すには、どうしたらいいでしょうか? forループでごりごりやればできますが、map、grep、maxのような関数を使ってエレガントに記述したいのですが。
shigekatsu.kimura's user avatar
0

perlにて、2つの要素からなる配列のリファレンスの配列から、0番目の要素の値が最大の1番目の要素を取得したい。

自己回答ですが、List::Util のreduceを使って、 (reduce { $a->[0]>$b->[0] ? $a : $b } @arr)->[1]; と書けます。 metropolisさんのコメントを参考にさせていただきました。
shigekatsu.kimura's user avatar