real    0m1.947s
user    0m0.344s
sys     0m0.028s

#!/usr/bin/env ruby

unless ARGV.size == 2
    puts "Usage: ruby wordsort.rb scram_file wordlist_file"
    exit 0
end

scram = Hash.new

File.open(ARGV[0]).each do |word|
    word.chop!
    scram[word.split(//).sort.join] = word
end

File.open(ARGV[1]).each do |word|
    word.chop!
    #print "#{word} " if scram.has_key? word.split(//).sort.join
end

$ time ruby wordsort-hash.rb shuffle.txt 172K-words.txt                       

real    0m0.356s
user    0m0.304s
sys     0m0.004s

$ time ./a.out                                                                 

real    0m0.353s
user    0m0.324s
sys     0m0.024s

#!/usr/bin/env perl

use warnings;
use strict;

if ($#ARGV+1 < 2) {
    print "Usage: perl wordsort.pl scram_file wordlist_filen";
    exit(0);
}

my %scram = ();

open(FILE, $ARGV[0]) || die "could not open file $ARGV[0]";
foreach (<FILE>) {
    chomp($_);
    my $sorted = join( "", sort { lc($a) cmp lc($b) } split(//,$_) ); # alphabetical sort
    $scram{$sorted} = $_;
}
close(FILE);

open(FILE2, $ARGV[1]) || die "could not open file $ARGV[1]";
foreach (<FILE2>) {
    chomp($_);
    print "matched: $_  " if $scram{join( "", sort { lc($a) cmp lc($b) } split(//,$_) )};
}
close(FILE2);
print "n";

#!/usr/bin/env ruby

if ARGV.size < 2
    puts "Useage: ruby shape.rb [shape] [char] {size}"
    exit 0
end

SHAPE = ARGV.shift
CHAR = ARGV.shift
if SHAPE !~ /triangle|diamond|square/
    puts "unknown shape....exiting"
    exit 0
end

if ARGV[0]
    Size = ARGV.shift.to_i
else
    Size = 5
end


def pad(pos, shape)
    case shape
    when 'triangle' : " "*CHAR.size*(Size+1 - pos)
    when 'diamond' : " "*CHAR.size*(Size/2+1 - pos)
    end
end


case SHAPE
when 'square'
    (1..Size).each { puts CHAR*Size }
when 'triangle'
    (1..Size).each { |n| puts pad(n, 'triangle') + ("#{CHAR}"+" "*CHAR.size)*n }
when 'diamond'
    (1..Size/2+1).each { |n| puts pad(n, 'diamond') + ("#{CHAR}"+" "*CHAR.size)*n }
    (Size/2).downto(1) { |n| puts pad(n, 'diamond') + ("#{CHAR}"+" "*CHAR.size)*n }
end