Codegolf: Difference between revisions

From NoName e.V.
Jump to navigation Jump to search
Line 3: Line 3:


==== mxf: Perl ====
==== mxf: Perl ====
  perl -nle'$w{+lc}++}for(keys%w){$r=$_;y/a-z/n-za-m/;$w{$_}&&print"$r -> $_' /usr/share/dict/web2
  perl -nle'$w{+lc}++}for(keys%w){$r=$_;y/a-z/n-za-m/;$w{$_}&&print"$r -> $_"' /usr/share/dict/web2


65+2 Zeichen
65+2 Zeichen

Revision as of 08:52, 18 September 2007

Challenge #1

<SdK> gibts wörter, die nach rot13 n anderes existierendes wort ergeben?

mxf: Perl

perl -nle'$w{+lc}++}for(keys%w){$r=$_;y/a-z/n-za-m/;$w{$_}&&print"$r -> $_"' /usr/share/dict/web2

65+2 Zeichen

PhilFry: Ruby

ruby -e'words={};IO.readlines(ARGV[0]).each{|w|words[w.downcase.chomp]=true};words.each_key{|w|r=w.tr("a-z","n-za-m");puts w+"->"+r if words[r]}' /usr/share/dict/web2 

136 Zeichen [Ausgabe]

real    0m9.114s
user    0m5.692s
sys     0m0.421s