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
