Just for fun. (under) is the equivalent of (&.:). Set it to the rank of the
right verb to match (&.). But is it any faster?

   under=:2 : 0
vi=.13 : ((v b._1),' y')
(([:vi[:u v) : ([:vi([:v[)u[:v])) f.
)

   f=:+ under ^.
   3 f 4
12

   c=:(# under >)">
   c ;:'This is a test'
+-+-+-+-+
|4|2|1|4|
+-+-+-+-+

  f
+----------------+-+------------------------------+
|+--+-+---------+|:|+--+-+-----------------------+|
||[:|^|+--+-+--+|| ||[:|^|+---------+-+---------+||
||  | ||[:|+|^.||| ||  | ||+--+--+-+|+|+--+--+-+|||
||  | |+--+-+--+|| ||  | |||[:|^.|[|| ||[:|^.|]||||
|+--+-+---------+| ||  | ||+--+--+-+| |+--+--+-+|||
|                | ||  | |+---------+-+---------+||
|                | |+--+-+-----------------------+|
+----------------+-+------------------------------+
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to