List::MoreUtilsã®uniq関数ã®å®Ÿè£…ãŒå¤‰ã‚ã£ã¦ãŸä»¶ - Unknown::Programming大分昔ã«æ›¸ã„ãŸHashを使ã£ã¦é…列をユニークã«ã—よã†ã¨ã„ã†è¨˜äº‹ã®ãƒ–コメã«ã¦List::MoreUtilsã®uniq関数ã®å®Ÿè£…ãŒå¤‰ã‚ã£ãŸã¨ã„ã†ã‚³ãƒ¡ãƒ³ãƒˆã‚’é ‚ãã¾ã—ãŸã€‚ List::MoreUtils 0.25_02 ã§ã¯å°‘々変更ã•ã‚Œã¦ã„ãŸã€‚ http://cpansearch.perl.org/src/VPARSEVAL/List-MoreUtils-0.25_02/lib/List/MoreUtils.pm ã¯ã¦ãªãƒ–ックマーク - kitsã®ãƒ–ックマーク / 2009å¹´11月17æ—¥ ã•ã£ããã©ã†å¤‰ã‚ã£ãŸã®ã‹ç¢ºèªã—ãŸã¨ã“ã‚ã€ãªã‚“ã¨ã‚‚アンビリーãƒãƒœãƒ¼ãªå®Ÿè£…ã«ãªã£ã¦ã¾ã—ãŸã€‚ # List::MoreUtils-0.22 sub uniq (@) { my %h; map { $h{$_}++ == 0 ? $_ : () } @_; } # List::MoreUtils-0.25_02 sub
ã‚°ã‚°ã‚‹ãªå±é™ºï¼šãƒ—ãƒã‚°ãƒ©ãƒžã§ã€ç”Ÿãã¦ã„る：エンジニアライフ
Shibu's Diary: 「ソースコードをãã‚Œã„ã«æ›¸ã唯一ã®æ–¹æ³•ã€ã¯ï¼”ã¤ã‚ã‚‹
ã‚ãªãŸã®ã‚½ãƒ¼ã‚¹ã‚’汚ãã—ã¦ç”Ÿç”£æ€§ã‚‚下ã’ã¦ã„ã‚‹ã€ãŸã£ãŸã²ã¨ã¤ã®é–“é•ã„ - よãã‚ã‹ã‚Šã¾ã›ã‚“
{{#tags}}- {{label}}
{{/tags}}