On 6/7/07, Henry Rich <[EMAIL PROTECTED]> wrote:
after =: 2 : '(0{v`'''')`:[EMAIL PROTECTED] u (_1{v`'''')`:[EMAIL PROTECTED]'
+ after (-`-:)
+-------+-+--------+
|+-+-+-+|+|+--+-+-+|
||-|@|[|| ||-:|@|]||
|+-+-+-+| |+--+-+-+|
+-------+-+--------+
[EMAIL PROTECTED] + -:@]
Or,
aft=:2 :'1 :(''[EMAIL PROTECTED] ('',(5!:5<''u''),'') ('',(5!:5<''v''),'')@]'')'
+ *aft -
[EMAIL PROTECTED] * [EMAIL PROTECTED]
Though, beware that 5!:5 won't work with f. of explicit verbs, in J6.01.
To work around that problem (if it matters), you would need to use
something like
af=:2 :0
U=.5!:1<'u'
V=.5!:1<'v'
1 :('[EMAIL PROTECTED] (',(5!:5<'U'),')`:6 (',(5!:5<'V'),')`:[EMAIL
PROTECTED]')
)
(same usage pattern)
--
Rau
l
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
