Newsgroups: comp.lang.apl
Path: watmath!watserv2.uwaterloo.ca!torn!cs.utexas.edu!zaphod.mps.ohio-state.edu!darwin.sura.net!gatech!gsusgi1.gsu.edu!gsusgi1.gsu.edu!qmdbms
From: qmdbms@gsusgi2.gsu.edu (Brian Schott)
Subject: Re: a useful (?) example of J
Message-ID: <qmdbms.720129279@gsusgi1.gsu.edu>
Organization: Georgia State University
References: <qmdbms.719175826@gsusgi1.gsu.edu> <1992Oct24.191654.1987@yrloc.ipsa.reuter.COM>
Date: Mon, 26 Oct 1992 19:54:39 GMT
Lines: 29

hui@yrloc.ipsa.reuter.COM (Roger Hui) writes:
> 
>If I understand the question, the problem can be solved more simply by
>$.=.(0<:in)#$. .  Thus:
> 
>   t=.i.0 0
>   t=.t, 'in =. ". read kb'
>   t=.t, '$.=.(0<:in)#$.'
>   t=.t, 'y.+in'
>   f0 =. x : ''
> 
>In fact, to compute exactly the function presented in the msg,
>there is no need to use $. at all.  For example:
> 
>   f1 =. 'y.+(0<:in)#in=.".read 1' : ''
>   f2 =. + (0&<: # ])@".@read@1:

Your ideas are excellent, as usual.  Thank you, Roger.
I think I discovered why I had such a hard time originally with this
problem.  The exit was within a recursive explicit function.  So when
I exited, it did not appear that I was exiting because the recursive
operation had to unwind itself.  

(B=)
-- 
Brian Schott/Decision Sciences Dept.             qmdbms@gsusgi2.gsu.edu
College of Business Administration                         404-651-4070
Georgia State University                  interests: approx. reasoning,
Atlanta, Georgia USA 30303-3083     (B=)       decision support systems
