例えば([1,'A'],[2,'B'],.....,[10,'X'])のとき、'X'を取り出すには、どうしたらいいでしょうか?
forループでごりごりやればできますが、map、grep、maxのような関数を使ってエレガントに記述したいのですが。
2 件の回答
Non-COREなCPANモジュールを使えるのなら List::UtilsBy
のmax_by
がそのものずばりです。
#!/usr/bin/perl
use strict;
use warnings;
use List::UtilsBy qw(max_by);
my @arr = (
[1, 'A'],
[2, 'B'],
[3, 'C'],
[4, 'D'],
[5, 'E'],
[10, 'X'],
);
my $max = max_by { $_->[0] } @arr;
print $max->[1];
List::UtilsByの利点はmaxとなる要素が複数ある場合にも対応できることです。
my @arr = (
[1, 'A'],
[2, 'B'],
[3, 'C'],
[4, 'D'],
[5, 'E'],
[10, 'X'],
[10, 'Z'],
);
my @max = max_by { $_->[0] } @arr;
use Data::Dumper;
print Dumper @max;
__END__
$VAR1 = [
10,
'X'
];
$VAR2 = [
10,
'Z'
];
max_by
自体は実装も簡潔なので、COREモジュールが使えない場合サブルーチンだけ拝借してもいいかもしれません。
#!/usr/bin/perl
use strict;
use warnings;
BEGIN {
# Borrowed from List::[email protected]
sub max_by(&@)
{
my $code = shift;
return unless @_;
local $_;
my @maximal = $_ = shift @_;
my $max = $code->( $_ );
foreach ( @_ ) {
my $this = $code->( $_ );
if( $this > $max ) {
@maximal = $_;
$max = $this;
}
elsif( wantarray and $this == $max ) {
push @maximal, $_;
}
}
return wantarray ? @maximal : $maximal[0];
}
}
my @arr = (
[1, 'A'],
[2, 'B'],
[3, 'C'],
[4, 'D'],
[5, 'E'],
[10, 'X'],
);
my $max = max_by { $_->[0] } @arr;
print $max->[1];
自己回答ですが、List::Util のreduceを使って、
(reduce { $a->[0]>$b->[0] ? $a : $b } @arr)->[1];
と書けます。
metropolisさんのコメントを参考にさせていただきました。
my @sorted = sort { @$b[0] <=> @$a[0] } @arr; print $sorted[0][1];