RosettaCodeData/Task/SEDOLs/J/sedols-1.j
2023-07-01 13:44:08 -04:00

2 lines
98 B
Text

sn =. '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
ac0 =: (, 10 | 1 3 1 7 3 9 +/@:* -)&.(sn i. |:)