Help for this page

Select Code to Download


  1. or download this
    my $lower = gen( 97 .. 122 );
    my $nums = gen( 48 .. 57 );
    
  2. or download this
    #! perl -slw
    use strict;
    ...
    my $nums = gen( 48 .. 57 );
    print join'', @{ $lower->() }, '-', @{ $nums->() } for 1 .. 100;