[Jprogramming] Need help going from tacit to direct definitionI want to write gg in direct definition as g=: 13 ::

[Linda Alvord]

I want to write gg in direct definition as  g=: 13 ::

 

   f=: 13 :'(>:i.x),"0 / >:i.y'

   A=:3 f 4

   gg=:([: < (<' ') $~ ])"1  

   gg A

----T-----T-------T---------┐
│--┐│--T-┐│--T-T-┐│--T-T-T-┐│
││ │││ │ │││ │ │ │││ │ │ │ ││
│L--│L-+--│L-+-+--│L-+-+-+--│
+---+-----+-------+---------+
│--┐│--T-┐│--T-T-┐│--T-T-T-┐│
││ │││ │ │││ │ │ │││ │ │ │ ││
│+-+│+-+-+│+-+-+-+│+-+-+-+-+│
││ │││ │ │││ │ │ │││ │ │ │ ││
│L--│L-+--│L-+-+--│L-+-+-+--│
+---+-----+-------+---------+
│--┐│--T-┐│--T-T-┐│--T-T-T-┐│
││ │││ │ │││ │ │ │││ │ │ │ ││
│+-+│+-+-+│+-+-+-+│+-+-+-+-+│
││ │││ │ │││ │ │ │││ │ │ │ ││
│+-+│+-+-+│+-+-+-+│+-+-+-+-+│
││ │││ │ │││ │ │ │││ │ │ │ ││
│L--│L-+--│L-+-+--│L-+-+-+--│
L---+-----+-------+----------

 

Linda

 

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