Let's try monkeysort

monkeysort.py

from random import shuffle


s = list('typewriter')
tried = 0

while(True):
    tried += 1
    shuffle(s)

    if ''.join(s) == 'eeiprrttwy':
        break

print tried, s

$ time python monkeysort.py
206832 ['e', 'e', 'i', 'p', 'r', 'r', 't', 't', 'w', 'y']

real 0m1.416s
user 0m1.289s
sys 0m0.044s

P R O F I T

use List::Util 'shuffle';
@s = split //, 'typewriter';
$tried = 0;
while (1) {
    @s = shuffle(@s);
    last if join( '', @s ) eq 'eeiprrttwy';
    $tried++;
}

print "$tried [@s]\n";

___DATA__
$ time perl a.pl 
653881 [e e i p r r t t w y]
1.235 secs

노잼.. i cri..