#!/usr/local/bin/perl -w

use bignum (p,-1000000);
use String::CRC32;

# print 16/61,"\n";

# $target = 16/61;

# $target = 1/2003;

$target1 = 1/1.1;
$target2 = 2/1.1;
$target = $target1.$target2;

for ($i=0; $i<2000000; $i+=64){
    $subs = substr($target,$i,64);
    $crc = crc32($subs);
    $hash{$crc}++;
    if ($hash{$crc}==2) { 
	$count++; 
	if ($count>2){
	    print "$i) -> Periódico <-\n";
	    last;
	}
    }
    elsif ($hash{$crc}==1) { $count=0; }
}

__END__