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
