mean=: 3 : 0
NB. calculate the mean
n=. #y
s=. +/y
s%n
)
t=: 5!:5 <'mean'
$t
53
10{.t
3 : 0
NB.
_10{.t
+/y
s%n
)
0!:0 'mean123=:',t
mean123
3 : 0
NB. calculate the mean
n=. #y
s=. +/y
s%n
)
(5!:5 <'mean') -: 5!:5 <'mean123'
1
----- Original Message -----
From: Randy MacDonald <[EMAIL PROTECTED]>
Date: Sunday, August 19, 2007 19:18
Subject: [Jprogramming] J equivalent to APL's []VR
To: Programming forum <[email protected]>
> Is there a way to extract the explicit definition of a verb as a
> noun,
> so the following is a no-op:
>
> verb_1 =: verb : (qVR 'verb_1')
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
