There can be only one!

#!/usr/bin/perl -w                    # there can be only one

                                 use strict;
                               $_='$_={one((
                           one($")<<1)^one(
                        $/))}{{one((one($;)
                     <<($^=(one($/)>>1)>>1)
                 +1)+one($/)>>1)}{{{one(((
              one($;)<<$^+1)+one($/)>>1)-$
           ^)}{{{one(((one($;)<<$^+1)+one(
                          $/)>>1)-1)}{one 
                          (one($"))}{{one
                          ((one($;)<<$^)^
                         (one($")>>1)+1)
                         }{one((one($;)<
                         <$^)-$^)}{{one(
                        ((one($;)<<$^)-
                        $^)+1)}}{one(((
                        one($;)<<$^+1)+
                       one($/)>>1)-1)}
                       {one(($~=$=)<<1
                       ^one($")>>1)}{{
                      {one((one($;)<<
                      $^)-one($/)-1)}
                      {one(((one($;)<
                     <$^+1)+one($/)>
                     >1)-$^-1)}{one(
                     one($"))}}{one(
                    one($/)<<$^+1)}
                    {one((one($;)<<
                    $^)-one($/)-1)}
                   {one(((one($;)<
                   <$^+1)+one($/)>
  >1)-$^-1)}}}{{{one(((one($;)<<$^)-$^)-$^)}}}{one(
 one($"))}}{one(($~=$=)<<1^one($")>>1)}}{{one((one
 ($;)<<$^)-(one($")>>1)+1)}{one((one($;)<<$^)-(one
 ($")>>1)+$^+1)}}{{one(($~=$=)<<1^(one($")>>1)+$^+
1)}{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<<
$^+1)+one($/)>>1)-$^-1)}}{one($=^(one($")>>1))';s
;{one;chr;g;y;{ne}}\012\040;.rd.;sd;eval;print;#1
[download]

Comment on There can be only one! Download Code

Replies are listed 'Best First'.
RE: There can be only one! by raflach (Pilgrim) on May 15, 2000 at 23:34 UTC
This is great!!!! and use strict!!!!!! WOW!!! Wish I could see more obfuscated code snippets this cool in form, but with more useful functionality! (Course if I want it why don't I write it right?) Oh well.	[reply]
RE: There can be only one! by ChuckularOne (Prior) on May 15, 2000 at 23:38 UTC
Yow! That's a lot of work for a JAPH! Supercool, nonetheless. Once I get my coding skills up to snuff I've got to try some obfuscation. Your Humble Servant, -Chuck	[reply]
RE: There can be only one! by Anonymous Monk on May 15, 2000 at 21:18 UTC
HAHA! you had to "one" up two cents eh? well, time for someone to get zero. Let's get cracking! maybe we can get every number from 0 to 100!	[reply]
RE: There can be only one! by Anonymous Monk on May 15, 2000 at 21:19 UTC
btw. what do the >> and << mean? they were in two cents also	[reply]
RE: RE: There can be only one! by vroom (His Eminence) on May 15, 2000 at 21:27 UTC
They are bit-shift operators: They return the value of the left argument shifted left or right by the number of bits in the right argument. `2<<4 #returns 32; 32>>3 #returns 4;` [download] vroom \| Tim Vroom \| vroom@cs.hope.edu	[reply] [d/l]
RE: RE: RE: There can be only one! by Anonymous Monk on May 16, 2000 at 04:35 UTC
could you explain this a little more in depth? i don't quite get what you mean by shifting the bytes	[reply]
RE: RE: RE: RE: There can be only one! by vroom (His Eminence) on May 16, 2000 at 04:53 UTC
There can be only one! by c-era (Curate) on May 16, 2000 at 19:07 UTC
RE: RE: RE: RE: There can be only one! by . (Acolyte) on May 18, 2000 at 04:06 UTC
RE: RE: RE: RE: There can be only one! by base_16 (Beadle) on May 23, 2000 at 06:17 UTC
RE: RE: RE: RE: There can be only one! by Anonymous Monk on May 31, 2000 at 22:39 UTC
Re: RE: RE: RE: There can be only one! by Zorn (Initiate) on Oct 27, 2002 at 05:40 UTC
Re: RE: RE: RE: There can be only one! by thunders (Priest) on Sep 26, 2001 at 00:05 UTC
RE: There can be only one! by Bourgeois_Rage (Beadle) on Jun 01, 2000 at 19:53 UTC
Very nice. A bit surprising I must say	[reply]
RE: There can be only one! by Anonymous Monk on May 20, 2000 at 07:52 UTC
Sweet ass. The Kurgan would love it. If he was still together that is.	[reply]


Problems? Is your data what you think it is?
	PerlMonks