Using Roger/Raul's tip this might be what you want:

   ((([EMAIL PROTECTED]:) * 0.5&=) + 0.5&<) 0.5
0
   ((([EMAIL PROTECTED]:) * 0.5&=) + 0.5&<) 0.5
1
   ((([EMAIL PROTECTED]:) * 0.5&=) + 0.5&<) 0.4
0
   ((([EMAIL PROTECTED]:) * 0.5&=) + 0.5&<) 0.6
1

However it is incorrect for a non-scalar argument:
   ((([EMAIL PROTECTED]:) * 0.5&=) + 0.5&<) 0.5 0.5 0.5 0.5 0.5 0.4 0.6
0 0 0 0 0 0 1 NB. First 5 are all the same ...
   ((([EMAIL PROTECTED]:) * 0.5&=) + 0.5&<) 0.5 0.5 0.5 0.5 0.5 0.4 0.6
1 1 1 1 1 0 1

and might be better done as (for any non-scalar argument):
   (((?@($ $ 2:)) * 0.5&=) + 0.5&<) 0.5 0.5 0.5 0.5 0.5 0.4 0.6
1 0 1 1 1 0 1

Hope this helps.../Rob

On 9/8/07 4:59 AM, "Roelof Brouwer" <[EMAIL PROTECTED]> wrote:

> The following works  but seems like extra trouble
> 
>  
> 
> helper=:2 & (13 : '((?x)*y=0.5)+.0.5<y')
> 
>  
> 
> cheers
> 
>  
> 
> Roelof  
> 
>  
> 
> Contact information
> 
>  
> 
> Dr. Roelof K. Brouwer PEng
> 
> Professor
> 
> Department of Computing Science
> 
> School of Advanced Technologies and Mathematics
> 
> Thompson Rivers University
> 
> 900 McGill Road, PO Box 3010
> 
> Kamloops, BC, Canada,V2C 5N3
> 
>  
> 
> skype RoelofBrouwer
> 
> telephone numbers
> 
> 1-250 828 5219 work
> 
> 1-250-374-5874 home
> 
> 1-250-377-6133 fax
> 
> home page  <http://www.tru.ca/advtech/compsci/faculty/rbrouwer>
> www.tru.ca/advtech/compsci/faculty/rbrouwer
> 
> email  <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
> 
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm


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

Reply via email to