Assuming a is a numeric matrix:
a=. ":a
(a='0')}a,:' '
1
2 3 4 5 6 7 8
9 1 11 12 13 14 15
16 17 18 19 2 21 22
23 24 25 26 27 28 29
3 31
On Wed, Sep 27, 2017 at 1:44 PM, chris burke <[email protected]> wrote:
> a=. (a<32) * a=. 0 >. _5 + i.6 7
>
>
> 'b<>3.0' (8!:2) a
>
> 1
>
> 2 3 4 5 6 7 8
>
> 9 10 11 12 13 14 15
>
> 16 17 18 19 20 21 22
>
> 23 24 25 26 27 28 29
>
> 30 31
>
> On Wed, Sep 27, 2017 at 10:13 AM, 'Mike Day' via Programming <
> [email protected]> wrote:
>
> > Assuming a is an integer array, not character,
> > how about:
> >
> > ($$rplc & (' 0';' ')) @: ": a
> > 1
> > 2 3 4 5 6 7 8
> > 9 10 11 12 13 14 15
> > 16 17 18 19 20 21 22
> > 23 24 25 26 27 28 29
> > 30 31
> >
> > ?
> >
> > (Leading zeros should only appear for zero itself).
> >
> > Though isn't there a print/format function somewhere in J?
> >
> > Mike
> >
> >
> >
> > On 27/09/2017 17:34, Brian Schott wrote:
> >
> >> a =: 0 : 0
> >> 0 0 0 0 0 0 1
> >> 2 3 4 5 6 7 8
> >> 9 10 11 12 13 14 15
> >> 16 17 18 19 20 21 22
> >> 23 24 25 26 27 28 29
> >> 30 31 0 0 0 0 0
> >> )
> >> $b =: ".;._2 a
> >> 6 7
> >>
> >> ,each ;/(3&":`(' '"_))@.(0=])"0"1 b
> >>>
> >> 1
> >> 2 3 4 5 6 7 8
> >> 9 10 11 12 13 14 15
> >> 16 17 18 19 20 21 22
> >> 23 24 25 26 27 28 29
> >> 30 31
> >> ----------------------------------------------------------------------
> >> For information about J forums see http://www.jsoftware.com/forums.htm
> >>
> >
> >
> > ---
> > This email has been checked for viruses by Avast antivirus software.
> > https://www.avast.com/antivirus
> >
> >
> > ----------------------------------------------------------------------
> > For information about J forums see http://www.jsoftware.com/forums.htm
> >
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
--
Devon McCormick, CFA
Quantitative Consultant
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
