foo=: 1 : '".": 2(1!:2)~ u y, 0$(2 (1!:2)~ ".y),0$ 2(1!:2)~y'
numb4ad foo '1ad0' 1ad0 1 j./(10#.'01'i.'1')*1 2 o.180%~o.10#.'0'i.'0' 0j1 numb4ad foo '1ad90' 1ad90 0j1 j./(10#.'01'i.'1')*1 2 o.180%~o.10#.'0'i.'0' 0j1 numb4ad foo '1ad180' 1ad180 _1 j./(10#.'01'i.'1')*1 2 o.180%~o.10#.'0'i.'0' 0j1 numb4ad foo '1ad270' 1ad270 0j_1 j./(10#.'01'i.'1')*1 2 o.180%~o.10#.'0'i.'0' 0j1 numb4ad foo '1ad360' 1ad360 1 j./(10#.'01'i.'1')*1 2 o.180%~o.10#.'0'i.'0' 0j1 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
