Re: Secret operators

2005-02-03 Thread Philippe 'BooK' Bruhat 
Le mercredi 02 février 2005 à 21:36, Sébastien Aperghis-Tramoni écrivait:
 Philippe 'BooK' Bruhat wrote:
 
 So we have :
 
 symbolnicknameRole
 --
 =   spaceship   documented operator
 
 0+venus   numification
 }{eskimo greeting END{} in one-liners
 =()=  goatse
 ~-inchworm on a stick high-precedence numification
 ~~inchwormscalar
 @{[]}   join $, ...
 -+-   spacestationhigh-precedence numification
 
 Not bad for a start.
 
 Hey Philippe, why don't you give the name we found for @{[]} ?
 

Because *you* found it, and want to have *my* name associated with it.

-- 
 Philippe BooK Bruhat

 All life affects us... even that which is far from our gaze.
(Moral from Groo The Wanderer #59 (Epic))

Re: Secret operators

2005-02-03 Thread Randal L. Schwartz 
 Eugene == Eugene van der Pijll [EMAIL PROTECTED] writes:

 @{[]}  aka ???The Schwartz   early 1990s

Eugene The Larry, May 1 1994
Eugene  http://groups-beta.google.com/group/comp.lang.perl/msg/1d82c7c3f3e94266

The array version was actually discussed in private email between me
and Larry, if I recall correctly, shortly before that public post,
because I had come up with it for some courseware of mine.

But, this *is* 10 years ago, and I could be mismembering.

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
merlyn@stonehenge.com URL:http://www.stonehenge.com/merlyn/
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

Re: Secret operators

2005-02-03 Thread Yitzchak Scott-Thoennes 
On Wed, Feb 02, 2005 at 04:20:05PM +0200, Vladi Belperchinov-Shabanski wrote:
 On Wed, 2 Feb 2005 12:33:35 +1100 (EST)
 Andrew Savige [EMAIL PROTECTED] wrote:
 
  Jos_ Castro wrote:
   Apart from the secret eskimo greeting and the goatse operator,
   can anyone tell me about other secret operators?
  
  Let's not forget the Ton Hospel high-precedence decrement
  operator ~- invented during a golf tournament (anyone remember
  which one?).
  
  IIRC, Ton's ~- invention allows you to eliminate the parens in:
  
  $y = ($x-1)*4;
  
  by using instead:
  
  $y = ~-$x*4;
  
  saving a whopping two strokes. This trick should work on any
  twos complement machine -- and I'm not aware of any perl running
  on any non twos complement machine.
 
 will not work if $x  0

Except under use integer.  A little known fact is that perl's bitops
cast operands to unsigned integers without use integer and to signed
integers with use integer.