Perl

From Freephile Wiki
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

See story at http://freephile.com/cms/content/three-virtues-good-programmer

@a=(Lbzjoftt, Inqbujfodf, 
Hvcsjt); $b="Lbssz Wbmm";
$b =~ y/b-z/a-z/ ; $c = 
" Tif ". @a . " hsfbu wj" 
."suvft pg b qsphsbnnfs"
. ":\n";$c =~ y/b-y/a-z/;
print "\n\n$c ";for($i=0;
$i<@a; $i++) { $a[$i] =~ 
y/b-y/a-z/; if($a[$i]eq$a
[-1]) {print "and $a[$i]."
;}else{ print "$a[$i], ";
}}print "\n\t\t--$b\n\n";
#!/usr/bin/perl

@a=(Lbzjoftt, Inqbujfodf, Hvcsjt);
$b="Lbssz Wbmm";
$b =~ y/b-z/a-z/ ;
$c = " Tif ". @a . " hsfbu wj" ."suvft pg b qsphsbnnfs". ":\n";
$c =~ y/b-y/a-z/;
print "\n\n$c ";
for($i=0; $i<@a; $i++) {
  $a[$i] =~ y/b-y/a-z/;
  if($a[$i]eq$a[-1]) {
    print "and $a[$i].";
  }else{
    print "$a[$i], ";
  }
}
print "\n\t\t--$b\n\n";
The 3 great virtues of a programmer:
Laziness, Impatience, and Hubris.
--Larry Wall