SEDOLs: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Sidef}}: Fix link: Perl 6 --> Raku) |
Langurmonkey (talk | contribs) |
||
Line 2,007: | Line 2,007: | ||
=={{header|langur}}== |
=={{header|langur}}== |
||
{{trans|Go}} |
{{trans|Go}} |
||
{{works with|langur|0. |
{{works with|langur|0.8.10}} |
||
<lang langur>val .csd = f(.code) { |
<lang langur>val .csd = f(.code) { |
||
given len(.code) { |
given len(.code) { |
||
Line 2,022: | Line 2,022: | ||
val .weight = [1,3,1,7,3,9] |
val .weight = [1,3,1,7,3,9] |
||
val . |
val .nums = s2n .code |
||
val .sum = for[=0] .i of .nums { |
|||
_for += .nums[.i] x .weight[.i] |
|||
⚫ | |||
pseries len .code, |
|||
split .code, |
|||
⚫ | |||
toString 9 - (.sum - 1) rem 10 |
toString 9 - (.sum - 1) rem 10 |