[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
Re: [FWP] Love & Hate shenanigans
- To: fwp@technofile.org
- Subject: Re: [FWP] Love & Hate shenanigans
- From: Sven Neuhaus <sn@neopoly.com>
- Date: Wed, 28 Mar 2001 08:35:57 -0800
- Delivered-To: irons-bumppo:net-mpfwp@bumppo.net
>From fwp-l@cfcl.com Wed Mar 28 02:28:34 2001
A little improvement - down to 62 strokes:
perl -n
'chop;$x=$_;($_&$x)=~/$_|$x/&&print"$x $_\n"for keys%a;$a{$x}=1'
It's still dog slow. Don't run it on /usr/dict/words.
-Sven
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe