与えられた配列の順にソートする方法

質問

例えば、与えられた配列が (1, 3, 5, 7, 9, 2, 4, 6, 8, 10) だった場合に、
入力配列が (1, 2, 3, 4, 5) だったら、(1, 3, 5, 2, 4) のように並び替えた
いと考えています。

下記のような方法を考えましたが、いずれもできそうにありません。

grep { @ref } @input
map { grep { $_ } @ref } @input

forループ等を使えば容易にできるのでしょうが、なるべく自前のコードは書き
たくなく、map, grep, sort等を組み合わせてできればよりベターだと考えてい
ます。

なんとか、スマートな方法でこれを実現することはできないでしょうか。

回答No.1

Tacosan · ベストアンサー

むりやり one-liner:
@ref[sort {$a<=>$b} map {{map {$ref[$_] => $_} 0 .. $#ref}->{$_}} @input]

お礼

ありがとうございました。
結局下記のような方法で実現しました。

map { my $input = $_; grep { $_ eq $input } @ref } @input