On 11/12/2012 12:13 AM, Brian Schott wrote:
Is there a better way than the verb `am` to do the following?
am =:_1& (I.@:-.@]})
am"1] 2 6 ?.@$ 2
_1 _1 _1 _1 1 _1
_1 _1 _1 1 1 _1
===============================================
Here are three other simple ways- my "random" array appears to be
different from yours(!?):
((_1 + +:) ; ({&_1 1) ; (_1&^@>:); am"1 )2 6 ?.@$ 2
+----------------+----------------+----------------+----------------+
|_1 1 1 _1 _1 1|_1 1 1 _1 _1 1|_1 1 1 _1 _1 1|_1 1 1 _1 _1 1|
|_1 1 _1 _1 _1 _1|_1 1 _1 _1 _1 _1|_1 1 _1 _1 _1 _1|_1 1 _1 _1 _1 _1|
+----------------+----------------+----------------+----------------+
Mike
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
