Perlについての質問箱 64箱目

[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

200(4): 2020/02/18(火)20:13 ID:55IHv/fO(1/2) AAS
my @result = grep !$temp{$_}++, @list;

凄げーよね、@listをuniqにソートするコードだって。
パールならではだよね。
普通なにしてるかわからんよw

203(1): 2020/02/18(火)21:09 ID:lAgti/Dg(1) AAS
>>200
これでなんでソートされるの？

204(2): 2020/02/18(火)21:10 ID:Z1cJ/QMX(1) AAS
>>200
それじゃあソートできてないだろ

my @result = sort grep !$temp{$_}++, @list;

213: 2020/02/19(水)00:10 ID:XDqysw2e(1) AAS
>>200
Rubyだとuniqが使えるが配列の集合演算でもできる。
result = list | []

218: 2020/02/19(水)04:28 ID:UqnCT+lt(1) AAS
>>200
いや。わかる。
君もそのうちわかるようになるよ。