Help for this page

Select Code to Download


  1. or download this
    print "$_\n" for GenUniStrings(9, 25);
  2. or download this
    my ($numOnes, $strLen) = (9, 25);

...
00000010
00000001
00000000
  3. or download this
    use strict;
use warnings;
...
} @input_data;

print "$_\n" for @strings;
  4. or download this
    use strict;
use warnings;
...
        MCE::relay { print "$_\n" for @strings; };
    }
)->run;
  5. or download this
    $ time perl serial.pl >/dev/null

...
user  0m7.067s
sys   0m0.507s