test.pl   [plain text]

<?

$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";