パスワードを忘れた? アカウント作成
21147 journal

paktolosの日記: 3のつく数と3の倍数のときにあほになって、5の倍数のときに犬になって、8の倍数のときにエロくなるプログラム 1

日記 by paktolos
$ cat nabeatsu.pl
#!/usr/bin/perl
#
#  (C)COPYRIGHT 2008 PAKTOLOS, INC. ALL RIGHTS RESERVED.
#  http://www.paktolos.com/
#
for ( $i=1; $i<=40; $i++ ) {

        $blnAho = 0;
        $blnInu = 0;
        $blnEro = 0;

        if ( $i % 3 == 0 || ( $i > 10 && ($i / 10)%3 == 0 ) ) {
                $blnAho = 1;
        }
        if ( $i % 5 == 0 ) {
                $blnInu = 1;
        }
        if ( $i % 8 == 0 ) {
                $blnEro = 1;
        }

        print $i . "\t";
        if ( $blnAho == 1 ) {
                print "あほ\t";
        }
        if ( $blnInu == 1 ) {
                print "わん\t";
        }
        if ( $blnEro == 1 ) {
                print "えろ\t";
        }
        print "\n";

}
この議論は賞味期限が切れたので、アーカイブ化されています。 新たにコメントを付けることはできません。
typodupeerror

物事のやり方は一つではない -- Perlな人

読み込み中...