07/06/14 17:44:59
>>25
横レスだが、単なるベタ比較に名前なんかないよw
名前が付くのは「シュワルツ変換」とか「シャチ泳ぎ」とか定番の手法
ちなみに "" cmp $a とか処理のムダだから、素直に-1とか与えたら？
シュワルツ変換で例を書こうかと思ったけど、まあ御参考までに。
@A = sort { $a eq $b ? -1
:$a =~ /^$b/ ? -1
:$b =~ /^$a/ ? 1
: $a cmp $b } @A;
07/06/14 17:44:59
>>25
横レスだが、単なるベタ比較に名前なんかないよw
名前が付くのは「シュワルツ変換」とか「シャチ泳ぎ」とか定番の手法
ちなみに "" cmp $a とか処理のムダだから、素直に-1とか与えたら？
シュワルツ変換で例を書こうかと思ったけど、まあ御参考までに。
@A = sort { $a eq $b ? -1
:$a =~ /^$b/ ? -1
:$b =~ /^$a/ ? 1
: $a cmp $b } @A;