cross=: ((>: * (+. |.)@:=)@:i.@:# { ({.~ (_1-#)))
cross ;/'abcde'
+-+-+-+-+-+
|a| | | |a|
+-+-+-+-+-+
| |b| |b| |
+-+-+-+-+-+
| | |c| | |
+-+-+-+-+-+
| |d| |d| |
+-+-+-+-+-+
|e| | | |e|
+-+-+-+-+-+
cross 5 43 2
5 0 5
0 43 0
2 0 2
------------------------------------------------
Date: Sun, 9 Dec 2012 20:42:13 -0600
From: km <[email protected]>
To: "[email protected]" <[email protected]>
Subject: [Jprogramming] Just for fun, verb cross
Message-ID: <[email protected]>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
