Fej Iras sorozatok

<?php
$limit=1000; //ezt allitsd, hogy meddig menjen

$longest=$this_sequence_length=0;
$previous='';

for($i=0;$i<$limit;$i++){
  $j=rand(0,1) // 0 es 1 kozt valamelyik egesz szam
  if ($j==$previous) $this_sequence_length++;
                else $this_sequence_length=1;
  if ($longest<$this_sequence_length)
      $longest=$this_sequence_length;
  $previous=$j;
  print $j;
}

print "\n";
print "Longest sequence: ".$longest;

?>