RosettaCodeData/Task/SEDOLs/J/sedols-3.j

2 lines
50 B
Plaintext

ac2 =: (, 10 | 9 7 9 3 7 1 +/@:* ])&.(sn i. |:)