3 $row = "!qwertyuiop!asdfghjkl!zxcvbnm!";
4 @row_array = split(//, $row);
11 s/\bthrough\b/thru/gi;
14 s/\baustralia\b/oz/gi;
17 s/\benough\b/enuff/gi;
18 s/\ba lot\b/a shitload/gi;
27 for ($x = 0; $x < $strlen; $x++) {
29 swap
(\
@lets, $x, $x + 1);
33 if (rand() < 0.10 && $lets[$x] eq " ") {
34 swap
(\
@lets, $x - 1, $x - 2);
39 $i = insert_adjacent
(\
@lets, $x, $lets[$x]);
51 print join("", @lets) . "\n";
55 my($aref, $pos, $let) = @_;
58 $newlet = get_adjacent
($let);
64 splice(@
$aref, $pos + 1, 0, $newlet);
72 return 0 if $let !~ /[a-zA-Z]/;
74 $i = index($row, $let);
75 $before = $row_array[$i - 1];
76 $after = $row_array[$i + 1];
80 if( $before eq "!" || (rand() < rand() && $after ne "!")) {
88 my($aref, $n, $m) = @_;
91 if(defined($$aref[$n]) && defined($$aref[$m])) {
92 if(! (($$aref[$n] =~ /[A-Z ]/ && $$aref[$m] =~ /[A-Z ]/) ||
93 ($$aref[$n] =~ /[a-z ]/ && $$aref[$m] =~ /[a-z ]/) )) {
97 $$aref[$n] = $$aref[$m];
This page took 0.024853 seconds and 4 git commands to generate.