一次元é…列åŒå£«ã®æ¯”較ã®ã„ã‚ã„ã‚ãªã‚„ã‚Šæ–¹ - harupiyoã®æ—¥è¨˜å•é¡Œ @a = (1,2,3); @b = (1,2,3); ã®ã‚ˆã†ãªé…列ãŒã‚ã£ãŸã¨ã—ã¦ã€ã“れらã®ä¸èº«ãŒåŒã˜(@a = @b) ã§ã‚ã‚‹ã“ã¨ã‚’確èªã—ãŸã„ã¨æ€ã„ã¾ã™ã€‚ ç´°ã‹ã„æ¡ä»¶ã¨ã—ã¦ã€å€¤ã¯æ£ã®æ•°å—ã®ã¿(è² ã¯ãªã„ã€)ã§ä¸¦ã³é †ã¯æ°—ã«ã—ãªã„ã€ã‹ã¤åŒã˜ç•ªå·ã¯ãªã„ã¨ã„ã†äº‹ã«ã—ã¾ã™ã€‚ ã‹ã‚“ãŸã‚“ã«è€ƒãˆã‚‹ã¨ã€æ¬¡ã®äºŒã¤ã®æ¡ä»¶ã‚’満ãŸã›ã‚Œã°ã„ã„ã¯ãšã§ã™ã€‚ 二ã¤ã®è¦ç´ ã®æ•°ãŒåŒã˜ã§ã‚ã‚‹ã“㨠先é ã‹ã‚‰æ¯”較ã—ã¦ã€æœ«å°¾ã¾ã§ã®å„é …ç›®ã®å†…容ãŒç‰ã—ã„ã“ã¨ ç´ ç›´ã«ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã™ã‚‹ã¨... sub is_same($$){ my($a,$b) = @_; # (1)二ã¤ã®è¦ç´ ã®æ•°ãŒåŒã˜ã§ã‚ã‚‹ã“㨠return 0 if @$a != @$b; # (2)å…ˆé ã‹ã‚‰æ¯”較ã—ã¦ã€æœ«å°¾ã¾ã§ã®å†…容ãŒç‰ã—ã„ã“㨠for (0..$#$a){ return 0 if $a->[$_] != $b->[$_]; } return 1; } ã¨ã„ã†ã‚µãƒ–
{{#tags}}- {{label}}
{{/tags}}