Here is what the cr expression from Kip Murray's posting today looks like
after being prettied.
cr=: ({. + 0.5 * [: (- |) {:) ,: [: | {:
source=: ({. + 0.5 * [: (- |) {:) ,: [: | {:
target=: ( ({. + 0.5 * [: (- |) {:) (,:) ([: | {:) ) NB. fork
T0=. ({. + 0.5 * [: (- |) {:)
T1=. (,:)
T2=. ([: | {:)
source=: ({. + 0.5 * [: (- |) {:)
target=: ( ({.) (+) (0.5 * [: (- |) {:) ) NB. fork
T3=. ({.)
T4=. (+)
T5=. (0.5 * [: (- |) {:)
source=: (0.5 * [: (- |) {:)
target=: ( (0.5) (*) ([: (- |) {:) ) NB. fork
T6=. (0.5)
T7=. (*)
T8=. ([: (- |) {:)
source=: ([: (- |) {:)
target=: ( ([:) (- |) ({:) ) NB. fork
T9=. ([:)
T10=. (- |)
T11=. ({:)
source=: (- |)
target=: ( (-) (|) ) NB. hook
T12=. (-)
T13=. (|)
Capping the T10 hook is rather neat
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
