dnamonk has asked for the wisdom of the Perl Monks concerning the following question:
Dear Monks, I was thinking to create a random string generator and then count the occurrence of characters and checking the differences in each word.
Here is my code so far:
#!/bin/bash/perl @tests; for($i=0; $i-4; $i++){ my @char = ('M','A','N','O'); my $len = 6; my $string1; my $string2; while($len--){ $string1 .= $char[rand @char]; $string2 .= $char[rand @ +char];}; print "$string1\t$string2\n"; $string = $string1.' '.$string2; push(@tests, $string); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: 10 x 10 table of values
by talexb (Chancellor) on Nov 29, 2021 at 04:50 UTC | |
Re: 10 x 10 table of values
by AnomalousMonk (Archbishop) on Nov 29, 2021 at 05:32 UTC | |
by dnamonk (Acolyte) on Nov 29, 2021 at 05:47 UTC | |
by AnomalousMonk (Archbishop) on Nov 29, 2021 at 22:27 UTC | |
Re: 10 x 10 table of values
by talexb (Chancellor) on Nov 29, 2021 at 17:44 UTC | |
by dnamonk (Acolyte) on Nov 29, 2021 at 17:45 UTC | |
by AnomalousMonk (Archbishop) on Nov 29, 2021 at 22:19 UTC | |
Re: 10 x 10 table of values
by tybalt89 (Monsignor) on Nov 29, 2021 at 18:19 UTC | |
by dnamonk (Acolyte) on Nov 29, 2021 at 20:44 UTC | |
by tybalt89 (Monsignor) on Nov 29, 2021 at 22:27 UTC | |
by dnamonk (Acolyte) on Nov 30, 2021 at 00:07 UTC | |
Re: 10 x 10 table of values
by davido (Cardinal) on Nov 29, 2021 at 17:22 UTC | |
by dnamonk (Acolyte) on Nov 29, 2021 at 17:43 UTC | |
by davido (Cardinal) on Nov 29, 2021 at 18:29 UTC | |
by dnamonk (Acolyte) on Nov 29, 2021 at 20:42 UTC |
Back to
Seekers of Perl Wisdom