Early on I wrote a program to learn about argument passing with trains.
ex (f g) why NB. hook ( X f ( g Y ) ) ex (f~ g)~ why NB. left hook ( ( g X ) f Y ) 'ex why'=: 'XY' paren=: 1 :0 '( ' , m , ' ' , y , ' )' : '( ' , x , ' ' , m , ' ' , y , ' )' ) f=: 3 :0 'f' paren y : x 'f' paren y ) g=: 3 :0 'g' paren y : x 'g' paren y ) h=: 3 :0 'h' paren y : x 'h' paren y ) i=: 3 :0 'i' paren y : x 'i' paren y ) ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm