php-src/test.pl

35 lines
434 B
Perl
Raw Normal View History

1999-04-08 05:05:13 +08:00
<?
$i = 0;
$j = 1;
for ($k=0; $k<1000000; $k = $k+1) {
while ($i<10000000) {
if (($i%"4")<1) {
$i = $i+"1";
if ($j%"2") {
$i = $i * "2";
}
} elseif (($i%"4")<2) {
$i = $i+"2";
if ($j%"2") {
$i = $i * "2";
}
} elseif (($i%"4")<3) {
$i = $i+3;
if ($j%"2") {
$i = $i * "2";
}
} else {
$i = $i+"4";
if ($j%"2") {
$i = $i * "2";
}
}
$j = $j+1;
}
}
print $i;
print "\n";