Roger Hui wrote:
> ({.&> ({.,': ',}.\:b i.}.)/.&(r&,)"1 {:&>) d
This seems shorter:
({.,': ',}.\:b i.}.)/.&(r&,)"1/ >&.|: d
> ,/,./"3 (3 3$,0,.1+i.4){' ',e
I'd leave off that final ,/
The ,/ gets rid of some blank lines in the display, but those
blank lines are present in the "specification".
These trivial changes brings it down to 104 characters:
,./"3(3 3$,0,.1+i.4){' ',({.,': ',
}.\:b i.}.)/.&(r&,)"1/>&.|:_13]\(?~52){
,{'r b'=.;:'SHDC 23456789TJQKA'
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
