Actually... this isn't any shorter, but it feels cleaner:
   2-~(+1%*)/:~(~.@[,./:~@}:/.)/|:>:0 10#:data,10*i.>./<.data%10

Thanks,

-- 
Raul


On Wed, May 7, 2014 at 4:11 AM, Raul Miller <[email protected]> wrote:
> On Wed, May 7, 2014 at 3:59 AM, Kip Murray <[email protected]> wrote:
>> Can you add in the "empty stems" 10 11 12 14 ?
>
> Like this?
>    2-~(+1%*)/:~(~.@[,./:~@}:/.)/|:(,0,.~1+0 i.@{>./)>:0 10#:data
>
> Thanks,
>
> --
> Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to