rand関数：乱数を生æˆã™ã‚‹
use strict; use warnings; use utf8; binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':encoding(cp932)'; binmode STDERR, ':encoding(cp932)'; my $num; $num = rand(10); print "$num\n"; $num = rand(10); print "$num\n"; $num = rand(10); print "$num\n"; $num = int(rand(10)); print "$num\n"; $num = int(rand(10)); print "$num\n"; $num = int(rand(10)); print "$num\n";
rand関数 - 乱数を生æˆã™ã‚‹ - Perl入門ゼミ
Perl › 関数 › here 乱数を生æˆã™ã‚‹ã«ã¯rand関数を使用ã—ã¾ã™ã€‚引数ã§æŒ‡å®šã—ãŸæ•°ã‚ˆã‚Šå°ã•ã„0以上ã®æ•°å€¤ãŒãƒ©ãƒ³ãƒ€ãƒ ã§ç”Ÿæˆã•ã‚Œã¾ã™ã€‚ $ret = rand 10; 乱数ã¨ã¯ãƒ©ãƒ³ãƒ€ãƒ ãªæ•°ã®ã“ã¨ã§ã™ã€‚アプリケーションを作æˆã™ã‚‹ã¨ãã¯ã€æ™‚ã«ãƒ©ãƒ³ãƒ€ãƒ ãªæ•°ãŒã»ã—ã„ã¨ããŒã‚ã‚Šã¾ã™ã€‚ゲームã§ã•ã„ã“ã‚を投ã’ãŸã‚Šã‚¯ã‚¤ã‚ºã‚’出ã—ãŸã‚Šã™ã‚‹ã¨ãã«ä½¿ã‚ã‚Œã¾ã™ã€‚ã¾ãŸãƒ‡ãƒ¼ã‚¿ã‚’æš—å·åŒ–ã™ã‚‹ã¨ãã®éµã®ä½œæˆãªã©ã«ã‚‚使ã‚ã‚ŒãŸã‚Šã—ã¾ã™ã€‚ rand関数ã«ã€ãŸã¨ãˆã°ã€Œ10ã€ã‚’指定ã™ã‚Œã°ã€ã€Œ2.34...ã€ã€Œ5.36...ã€ã€Œ9.45...ã€ãªã©ã€0以上ã§ã€10よりå°ã•ã„æ•°ãŒã€ç”Ÿæˆã•ã‚Œã¾ã™ã€‚ サンプル rand関数ã§ç”Ÿæˆã—ãŸä¹±æ•°ã‚’利用ã™ã‚‹ã‚µãƒ³ãƒ—ルã§ã™ã€‚ use strict; use warnings; print "(1)乱数を発生ã•ã›ã‚‹ã€‚( 10以下ã®æ•´æ•° )\n"; for my $i (1 .. 10) { # ran
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
tekmemo.net
{{#tags}}- {{label}}
{{/tags}}