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
