I was wondering...

How persistant are superpositions?  How pervasive are they?

I mean, will the following work?


$letters = any('a'..'z');
$digits  = any('0'..'9');

$ndaTable = {
    start     => { $letters => 'OneLetter',
                   $digits  => 'OneDigit' }
    OneLetter => { $letters => 'TwoLetter',
                   $digits  => 'OneLetter'},
    TwoLetter => { $letters => 'TriLetter,
                   $digits  => 'TwoLetter'},
    TriLetter => { $digits  => 'TriLetter'),
    OneDigit  => { $letters => 'OneDigit',
                   $digits  => 'TwoDigit'},
    TwoDigit  => { $letters => 'TwoDigit'}
}


for split(//,$instring) -> $input {
  $state = $ndaTable{$state}{$input};
  last unless $state;
}

print "Input string $instring has more than 3 letters and 2 digits\m"
	unless $state;






Reply via email to