peri =: 57 zmin =: 1 + >. peri % 3 NB. z + (z-1) + (z-2) >: peri z =: zmin + i.( <.1 - zmin - peri % 2) NB. z < peri % 2 +/ (<. 1.5 * z) - >. 0.5 + peri %2 NB. (y+(y-1)>:peri-z)*.(y<z) 61
min =: 1 + >.@(%& 3) NB. z + (z-1) + (z-2) >: peri min 57 20 zz=: min + i.@:<.@:(1 - min - -:) $zz 57 9 zz 57 20 21 22 23 24 25 26 27 28 +/ ((<.@: (1.5 * zz)) - >.@: (0.5 + %&2)) 57 61 -- (B=) ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
