[Jprogramming] atop continues to puzzle me

[Linda Alvord]

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: programming-bounces at forums.jsoftware.com [mailto:programming-
bounces at forums.jsoftware.com] On Behalf Of Linda Alvord
Sent: Wednesday, January 02, 2013 3:14 AM
To: programming at jsoftware.com
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 at v y ↔ u x v y 
#a#b
NB.  ([: f g)"({. g b. 0) <=> f at g
a(([:##)"({.# b. 0))b
a #@:# b

Linda

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm