Help for this page

Select Code to Download


  1. or download this
    use Algorithm::Combinatorics qw[ variations_with_repetition ];;
$i = variations_with_repetition( [ 'a'..'z' ], 3 );;
...
aac
aad
...
  2. or download this
    $" = ''; $_ = join( '', @$_ ), m[[aeiouy]] and print while $_ = $i->ne
+xt;;