Re: Coffee time quiz

If we combine the suggestion above with a little knowledge of Perl builtins and command-line options, we get

 perl -lne 'print if length == 15 and not /(.).*\1/' /usr/share/dict/w
+ords
[download]

Well, you asked for succinct... <grin>

Update: added auto-chomp (shame, shame).

If God had meant us to fly, he would *never* have given us the railroads.
--Michael Flanders

Comment on Re: Coffee time quiz Download Code

Replies are listed 'Best First'.
Re: Re: Coffee time quiz by sauoq (Abbot) on Oct 22, 2002 at 21:19 UTC
++ChemBoy. Very nice. Golfed: `perl -pe '$_ x=length==16&&!/(.).*\1/'` [download] -sauoq "My two cents aren't worth a dime.";	[reply] [d/l]
Re: Re: Re: Coffee time quiz by locked_user mtve (Deacon) on Oct 29, 2002 at 14:17 UTC
golf! `perl -pe '$_ x=/^.{15}$/-/(.).*\1/'`
Re: Re: Coffee time quiz by thelenm (Vicar) on Oct 22, 2002 at 20:42 UTC
I really like this clever solution. :-) Of course, 15 needs to be 16 because of the newline. Or you could use the -l option instead. -- Mike `-- just,my${.02}`	[reply]
Re: Re: Coffee time quiz by Anonymous Monk on Oct 24, 2002 at 10:42 UTC
A Good one ...... Anandatirtha	[reply]