Also:
f=: 13 :'x #@# y'
a f b
1 3 1 1
g=: 13 :'#x#y'
a g b
4
h=: 13 :'x([:##)"({.# b. 0)y'
a h b
4
i=: 13 :'x #@:# y'
a i b
4
f
#@#
g
[: # #
h
([: # #)"_
i
#@:#
Linda
-----Original Message-----
From: [email protected] [mailto:programming-
[email protected]] On Behalf Of Linda Alvord
Sent: Wednesday, January 02, 2013 3:14 AM
To: [email protected]
Subject: [Jprogramming] atop continues to puzzle me
Plain text may be better:
a=:?>:i.6
]a=:=a
]b=:?>:i.6
a #@# b
NB. x u@v y ↔ u x v y
#a#b
NB. ([: f g)"({. g b. 0) <=> f@g
a(([:##)"({.# b. 0))b
a #@:# b
Linda
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
