- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
594 ：デフォルトの名無しさん[sage]：2015/10/29(木) 19:59:34.38 ID:5rO3eYIk - 別人の横レスだけど、
普通に3行でいいだろ。
上二つは速度が遅いだろうし
最後のは、あなたのと何ら代りはない。
@C = grep { !${ { map{ $_, 1} @B } }{$_} } @A;
# 5.21 以降。
@C = grep { ! defined { reverse %B[ 0 .. $#B ] }->{$_} } @A ;
use feature qw(state);
@C = grep { state $h = { map{ $_, 1} @B } ; ! $h->{$_} } @A;
|
|