#! perl -slw
use strict;

sub rand32768{ int( rand 32768 ) }

$|++;
our $M //= 10;

srand( 1 );

my @first = map rand32768(), 1 .. $M;
print "@first";

my $n = $M;

OUTER: while( 1 ) {
    ++$n until rand32768 == $first[ 0 ];
    for my $i ( 1 .. $M - 1 ) {
        ++$n;
        printf "\ri:$i n:$n";
        redo OUTER unless rand32768() == $first[ $i ];
    }
    last;
}

print "\nFirst sequence of $M values repeated itself after $n calls to rand";