Edushka cited:

>   #@:$ 0&(|:}:)  ]
>   ([EMAIL PROTECTED] $ _1:) }. ]

I'm sorry I missed that thread; these are beautiful expressions.  I am jealous 
I never came up with them when I had the need.

Drawing on Edushka's solution,

>  {~<@:((<@i.)"0@:<:@:$)

I submit:

           {~ (<<_1) <@#~ [EMAIL PROTECTED]
and
           ];.0~ _1 + $
and
           ];._3~ 0 ,: _1 + $
           
without testing or timing.  I'm apologize if they're redundant with solutions 
previously presented.

I also submit a new identity function:
   
           ];.3 $
           
which is perhaps useful in a JMF context, cf:

    http://www.jsoftware.com/pipermail/general/2005-March/020816.html

-Dan

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to