第66回 Perlã§ã˜ã‚ƒã‚“ã‘んゲーム- bingo_nakanishiã®ä»–言語出身者ã®ãŸã‚ã®Perl入門Perlã§ã˜ã‚ƒã‚“ã‘んゲームをã¤ãã‚Šã¾ã—ãŸã€‚ å‹æ•—を決ã‚るアルゴリズムãŒé•ã†2パターン作りã¾ã—ãŸã€‚ ã˜ã‚ƒã‚“ã‘んプãƒã‚°ãƒ©ãƒ ãã®1 使ã„æ–¹ プãƒã‚°ãƒ©ãƒ ã®å¼•æ•°ã«ã€ グー, ãƒãƒ§ã‚, パー ã®ã„ãšã‚Œã‹ã®æ–‡å—を与ãˆã¦èµ·å‹• å‹è² ã®åˆ¤å®šæ–¹æ³• å‹è² ã®å…¨ãƒ‘ターンを書ã„ã¦å ´åˆã‚㑠ソース 1 use strict; ################################### # 入力ãƒã‚§ãƒƒã‚¯ ################################### if( 1 != int @ARGV ){ die '引数ã®æ•°ãŒæ£ã—ãã‚ã‚Šã¾ã›ã‚“'; } if( !( ( $ARGV[0] eq 'グー' ) || ( $ARGV[0] eq 'ãƒãƒ§ã‚') || ( $ARGV[0] eq 'パー') ) ){ die q{引数ã¯ã€'グー', 'ãƒãƒ§ã‚', 'パー'ã§ãªã‘ã‚Œã°ã„ã‘ã¾ã›ã‚“}; } ###
{{#tags}}- {{label}}
{{/tags}}