#        1         2         3
#2345678901234567890123456789012345678

perl -le'print+(H,T)[rand 2]for a..gr'

perl -le'print 1<rand 2?H:T for a..gr'
[download]

Using your second example, you can take the score down to 37 like this:

perl -le'print+rand>.5?H:T for a..gr'

--Dave

Can someone explain that "a..gr" thing to me please?

I'm baffled.
--


($_='
  jjjjjjuuuuuuuuusssssssssttttttttt annnnnnoootttttthhhhheeeeeerrrrrr
  pppeeeerrrrrrrrrrrrllllllllllllll haaaaccccccckkkkkkkeeeeeeeerrrrrr')
               =~y/[a-z]//s;print;

>Can someone explain that "a..gr" thing to me please?


Same as 1..200, really ;)

Basically you just use letters instead of numbers.

a..z yields the 26 characters of the alphabet,
a..az yields those and another 26 prefixed with a
a..bz yields those and another 26 prefixed with b
and so on. Same system, more "numbers" ...

Incidentally a..gr yields 7*26 + 18 "numbers".

update : as crazyinsomniac pointed out, the range-operator is discussed in more detail in perlman:perlop.

    #23456789_123456789_123456789_123456789 (39)
    perl -le'print+(H,T)[rand 2]for+1..200'
[download]

--
John.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

#        1         2         3         4234567
perl -le'print qw(h t)[rand>.5?0:1]for 1..200'
[download]

broquaint

#23456789_123456789_123456789_123456789_123456789_
perl -e'print chr(rand>.5?84:72)for-1..198'
[download]

perl -e "print+(H,T)[rand(2)]for(1..200)"
[download]

perl -e "for(1..200) {print ['H', 'T']->[rand(2)];}"
[download]

Nope. Since the for() loop is only one line, it'll work without the semicolon. As a matter of fact, I could have easily have done...

perl -e "print ['H','T']->[rand(2)] for(1..200)"
[download]

Theodore Charles III
Network Administrator
Los Angeles Senior High
4650 W. Olympic Blvd.
Los Angeles, CA 90019
323-937-3210 ext. 224
email->secon_kun@hotmail.com

Ha ha, Necos++ you're right of course, I mistyped it when I tried to run it. Coupled with the fact that I've just spent the last 3 hours debugging a co-workers program that had missing semi-colons (I've got missing semi-colons on the brain!!)