Your message is rather cryptic, and it's not clear what ac is meant to
achieve.
Bob's reply might be all you want.
Anyway, I tried ac 'PQRS' , getting
ac 'PQRS'
|length error: ac
| ac'PQRS'
Seeing that #'PQRS' is 4, I looked at po and cm:
po 4#2
0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1
0 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1
0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1
0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1
cm 4#2
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
NB. and noting:
$cm 4#2
1 16
So I've amended ac slightly to do po + cm without a length error:
ac=: 13 :'((po (+"1 ,) cm) ($y)#2){,'' '',.y' NB. don't know what
it should do!!!
ac'PQRS' NB. should look ok with a fixed font - lap or desktop
rather than phone!!!
PPPPPPPP
PPPP PPPP
PP PP PP PP
P P P P P P P P
Is this anything like what you require???
Cheers,
Mike
On 07/06/2019 19:34, Linda Alvord wrote:
po=: 13 :'|:y#:i.*/y'
cm=: 13 :'(*/y)(#"0) 0,}:+/y'
ac=: 13 :'((po + cm) ($y)#2){,'' '',.y'
ac 'PQRS'
po
;:': |: ] #: [: i. */'
┌─┬──┬─┬──┬──┬──┬─┬─┐
│:│|:│]│#:│[:│i.│*│/│
└─┴──┴─┴──┴──┴──┴─┴─┘
ac
;:'([: (po + cm) 2 #~ $) { [: , ' ' ,. ]'
This should not be a syntax error.
ac works in debug.
Linda
Sent from my Verizon, Samsung Galaxy smartphone
----------------------------------------------------------------------
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
