RosettaCodeData/Task/CUSIP/J/cusip-1.j

mirror of https://github.com/acmeism/RosettaCodeData.git
   ccd =. 10 | 10 - 10 | [: +/ [: , 10 (#.^:_1) (8 $ 1 2) * '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ*@#' i. ]
   ccd '68389X10'
5
	`ccd =. 10 \| 10 - 10 \| [: +/ [: , 10 (#.^:_1) (8 $ 1 2) * '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ*@#' i. ]`
	`ccd '68389X10'`
	`5`