Yet Another Hackadelic - ç›´ç©ã®å°Žå‡ºã¨è€ƒãˆã†ã‚‹å…¨ã¦ã®å€¤ã‚’網羅ã—ãŸãƒãƒƒã‚·ãƒ¥ã®ç”Ÿæˆæ˜¨æ—¥ã‹ã‚‰æ¿€ã—ãæ‚©ã‚“ã§ã„ãŸå†…容ã§ã€id:kazuhookuã•ã‚“ã¨nishioã•ã‚“ã«è‰²ã€…æ•™ã‚ã£ãŸã®ã§ã€ãã®å†…容ã®ã¾ã¨ã‚。 ã‚„ã‚ŠãŸã„事 my $entries = { A => [0..5], B => ["A".."D"], C => ["a".."c"] }; ã¿ãŸã„ãªé›†åˆA, B, Cã£ã¦ã®ãŒã‚ã‚‹ã¨ã—ã¦ã€A, B, Cã‹ã‚‰ä¸€å€‹ãšã¤å€¤ã‚’抽出ã—ã¦ãる組åˆã›ã‚’列挙ã™ã‚‹ã¨è¨€ã†ãŠè©±ã€‚ ã¡ãªã¿ã«å ´åˆã®æ•°ã¨ã—ã¦ã€6 * 4 * 3 = 72 通りå˜åœ¨ã™ã‚‹ãƒã‚ºã§ã™ã€‚ List::Utilã®reduceを使ㆠid:kazuhookuã•ã‚“案をé©å½“ã«æ•´å½¢ã€‚ #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use List::Util qw(reduce); my $entries = { A => [0..5], B =>
Net-FireEagle-1.6 - access Yahoo's new FireEagle location service - metacpan.org
ã®ã¿ã¾ãã—日記 - yes
è¼ã‘ï¼å…¨æ—¥æœ¬æœ€å¼· CPAN Author 決定é¸æ‰‹æ¨© : ã«ã½ãŸã‚“ç ”ç©¶æ‰€
Shipwrightã‚’å¦ã‚“ã ã®ã§ã¾ã¨ã‚ã¨ã‹ - libnitsuji.so
{{#tags}}- {{label}}
{{/tags}}