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";
}
#!/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";
}
とおりすがりものもです (スコア:0)