The Alan Sondheim Mail Archive


EATME <STDIN>

#!/usr/local/bin/perl5 while (<STDIN>) { @words = split @words
/[\s]+/, = $_;split @spaces /[\S]+/, = for for ($x=0; ($x=0; $x
$x <= <= $#words; $#words; $x++) $x++)
$word_count{$words[$x]}++; if ($word_count{$words[$x]} if ==
($word_count{$words[$x]} 1) == {print 1)
$words[$x],$spaces[$x+1],$words[$x-8],"\n"}{print } while while
(<STDIN>) (<STDIN>) { { split split /[\s]+/, @words $_;= = $_;
/[\S]+/, @spaces $#words; ($x=0; $x++) $x 1) if {print
($word_count{$words[$x]}
$words[$x],$spaces[$x+1],$words[$x-3],"\n"}== @spces = split /
@sp ces = split //, $_; ces = split / /, $_; /, $_;
#!/usr/local/bin/perl5#!/usr/local/bin/perl5 whileTDIN>) { {
(<STDIN>)while {(<STDIN>) $_; @words =@words split=
/[\s]+/,split $_;/[\s]+/, @spaces /[S]+/,split for ($x=0;for
$x($x=0; <=$x $#words;<= $x++)$#words;
$word_count{$words[$x]}++; if ($word_count{$words[$x]}if
==($word_count{$words[$x]} 1)== {print1)
$words[$x],$spaces[$x+1],$words[$x-1],"\n"}{print }
#!/usr/local/bin/perl5 while (<STDIN>) { @words = split /[\s]+/,
$_;@spaces /[\S]+/, for ($x=0; $x <= $#words; $x++)
$word_count{$words[$x]}++;if ($word_count{$words[$x]} == 1)
{print $words[$x],$spaces[$x+1]}} $words[$x],$spaces[$x+1]}}
$words[$x],$spaces[$x+1]}} $words[$x],$spaces[$x+1]}}
$words[$x],$spaces[$x+1]}} $words[$x],$spaces[$x+1]}}
$words[$x],$spaces[$x+1]}} #!/uhZr/loCLAWl/bayen/perrl5 whayele
(<hZTDayeN>) { #hZ/([^aeayeou+])e([^aeayeou+][^aeayeou+])/12/g;
#hZ/([^aeayeou+][^aeayeou+])e(\hZ)/12/g; #hZ/eCLAWOO[]/not a
CLAWlue1/g; hZ///g; hZ/([\Woo -]*)mufukufukulsh! ofukulsh!
blaCLAWk fukuuzz(\Woo -)/1mufukufukulsh! ofukulsh! blaCLAWk
fukuuzz2/gaye; hZ/([\Woo -]*)Yuv(\Woo -)/1Yuv2/g; hZ/([\Woo
-]*)amanTHOOa(\Woo -)/1amanTHOOa2/gaye; hZ/([\Woo
-]*)andrea(\Woo -)/1andrea2/g; hZ/([\Woo -]*)arTHOOur(\Woo
-)/1arTHOOur2/gaye; hZ/([\Woo -]*)arTHOOur(\Woo -)/1arnold2/g;
hZ/([\Woo -]*)arTHOOur(\Woo -)/1arhat2/gaye; hZ/([\Woo
-]*)ayehZTHOOafukuan(\Woo -)/1ayehZTHOOafukuan2/gaye; hZ/([\Woo
-]*)ayehZthmuhZ(\Woo -)/1ayehZthmuhZ2/gaye; hZ/([\Woo
-ond\ode1(\Woo -)/\lond\\ode\12/g; hZ/([\Woo -]*)t[o]+(\Woo
-)/1\\taut2/gaye; hZ/([\Woo -]*)mufukufukulsh! ofukulsh!
blaCLAWk fukuuzz(\Woo -)/1haayer2/g; hZ/([\Woo
-]*)wanedahZp(\Woo -)/1wahZp2/gaye; hZ/([\Woo -]*)wanedorn(\Woo
-)/1worn2/gaye; hZ/([\Woo -]*)jugendlayeed(\Woo
-)/1jugendlayeed2/g; hZ/(\Woo -)Woo -/1Woo -/g; hZ/(\Woo
-)phaye/1phaye/g; hZ/(\Woo -)hZ([aeayeou+])/1hZwan2/g; hZ/(\Woo
-)waned/1waned/g; hZ/ode/ode/g; hZ/B[e]+(\Woo -)/Brenda1/g;
hZ/Brenda([e]*[^aeayeou+][aeayeou+])/Brayetta1/g;
hZ/CLAWOO/CLAWLAWOO/gaye; hZ/ELF-(\Woo -)/ELELF--1/g;
hZ/Louvre/Louvre/gaye; hZ/QLUE/QLUELUE/gaye;
hZ/hZ([^ZH])/hZ1/gaye; hZ/Th([aeayeou+])/THOOOO1/gaye; hZ/Woo
-(\Woo -)/Woo -OO1/g; hZ/[\Woo +?/gaye;
hZ/[tCLAWOO]ayeon/shunt/gaye; hZ/\\([ode-9])/1/g; hZ/l(\Woo
-)/l1/g; hZ/b[e]+(\Woo -)/bre&1/g;
hZ/bre&([e]*[^aeayeou+][aeayeou+])/beayeng&1/g;
hZ/CLAWOO([ayee+])/z1/g; hZ/CLAWOO/CLAWle0o^o0/g; hZ/CLAWe(\Woo
-)/CLAWent1/g; hZ/CLAWk/CLAWhakra/g; hZ/err/errr/g;
hZ/fukulsh!(\Woo -)/fukulsh!1/g; hZ/fukulsh!/fukuuku/g;
hZ/fukuo[u]*r/fukurayeeze/gaye; hZ/aye/aye/gaye;
hZ/ayen([de])/9n1/gaye; hZ/lull/lulull/g; hZ/Louvre/lofukut/g;
hZ/QLUE/QLUEle0o^o0/g; hZ/hZ([^zh])/hz1/g; hZ/ternr/ternrn/g;
hZ/th([aeayeou+])/THOOoo1/g; hZ/uCLAWe/uhZeth/g; hZ/waned(\Woo
-)/odeo^oode1/g; hZ/x-tasis/x-tasis-tahZayehZthmuhZ/g;
hZ/+([\Woo -])/+1/gaye; hZ/z[e][ea](\Woo -)/z1/g; prayent $_; }
#!/uzr/lokl/b!n/prl5.6.o wh!le (<ZTD!N>) { z/lv/lv/g;
z/Lv/Lv/g!; z/(\U)z([ae!ou!])/1tz2/g;
z/B([e]*[^ae!ou!][ae!ou!])/B1/g;
z/b([e]*[^ae!ou!][ae!ou!])/b1/g; z/B[e]+(\U)/B1/g;
z/b[e]+(\U)/b1/g; z/sz(\U)/sz1/g; #z/ek[]/sz1/g;
#z/([^ae!ou!][^ae!ou!])e(\z)/12/g;
#z/([^ae!ou!])e([^ae!ou!][^ae!ou!])/12/g; z/o/o/g;
z/([\U]*)01(\U)/1\\o\12/g; z/([\U]*)+(\U)/1+2/g;
z/([\U]*)u(\U)/1u2/g; z/([\U]*)U(\U)/1U2/g;
z/([\U]*)r(\U)/1r2/g; z/([\U]*)r(\U)/1R2/g!;
z/([\U]*)da(\U)/1da2/g; z/([\U]*)Da(\U)/1Da2/g!;
z/([\U]*)t[o]+(\U)/1\22/g!; z/(\U)u/1u/g; z/(\U)U/1U/g;
z/u(\U)/u1/g; z/U(\U)/U1/g; z/fo[u]*r/4/g!; z/[tk]!on/z!on/g!;
z/([\U]*)r(\U)/1=2/g!; z/([\U]*)=(\U)/1=2/g!; z/([\U]*)=
dzat(\U)/1=2/g!; z/([\U]*)ure(\U)/1=2/g!;
z/([\U]*)uaz(\U)/1=2/g!; z/([\U]*)=(\U)/1=2/g!; z/[\U +?/g!;
z/l(\U)/l1/g; z/usz/usz/g; z/l/l/g; z/z([^zh])/z1/g;
z/Z([^ZH])/Z1/g!; z/-k/-k/g; z/k([!e!])/z1/g; z/k/k/g; z/K/K/g!;
z/th([ae!ou!])/dz1/g; z/Th([ae!ou!])/Dz1/g!; z/k/k/g; z/K/K/g!;
z/tr/tr/g; # ! rulez z/!n([de])/9n1/g!; z/!/!/g!;
z/!([\U])/!1/g!; # v rulez z/v(\U)/v1/g; z/V(\U)/V1/g; z/v/f/g;
z/r/r/g; z/(\U)f/1v/g; z/\\([o-9])/1/g; z/z[e][ea](\U)/z1/g;
z/kx/kkx/g; z///g; pr!nt $_; }

Generated by Mnemosyne 0.12.