[Jprogramming] Just for fun, verb cross

[David Ward Lambert]

   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 <km at math.uh.edu>
To: "programming at jsoftware.com" <programming at jsoftware.com>
Subject: [Jprogramming] Just for fun, verb cross
Message-ID: <FA668D0A-05D2-44AA-B4FD-E224D74C9320 at math.uh.edu>