3 $row = "!qwertyuiop!asdfghjkl!zxcvbnm!";
4 @row_array = split(//, $row);
11 s/\bthrough\b/thru/gi;
14 s/\baustralia\b/oz/gi;
16 s/\benough\b/enuff/gi;
17 s/\ba lot\b/a shitload/gi;
26 for ($x = 0; $x < $strlen; $x++) {
28 swap
(\
@lets, $x, $x + 1);
32 if (rand() < 0.10 && $lets[$x] eq " ") {
33 swap
(\
@lets, $x - 1, $x - 2);
38 $i = insert_adjacent
(\
@lets, $x, $lets[$x]);
50 print join("", @lets) . "\n";
54 my($aref, $pos, $let) = @_;
57 $newlet = get_adjacent
($let);
63 splice(@
$aref, $pos + 1, 0, $newlet);
71 return 0 if $let !~ /[a-zA-Z]/;
73 $i = index($row, $let);
74 $before = $row_array[$i - 1];
75 $after = $row_array[$i + 1];
79 if( $before eq "!" || (rand() < rand() && $after ne "!")) {
87 my($aref, $n, $m) = @_;
90 if(defined($$aref[$n]) && defined($$aref[$m])) {
91 if(! (($$aref[$n] =~ /[A-Z ]/ && $$aref[$m] =~ /[A-Z ]/) ||
92 ($$aref[$n] =~ /[a-z ]/ && $$aref[$m] =~ /[a-z ]/) )) {
96 $$aref[$n] = $$aref[$m];
This page took 0.024604 seconds and 4 git commands to generate.