Codegolf: Difference between revisions
Jump to navigation
Jump to search
m (→mxf: Perl) |
m (→mxf: Perl) |
||
| 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