SEDOLs: Difference between revisions

Content added Content deleted
m (→‎{{header|Sidef}}: Fix link: Perl 6 --> Raku)
Line 2,007: Line 2,007:
=={{header|langur}}==
=={{header|langur}}==
{{trans|Go}}
{{trans|Go}}
{{works with|langur|0.6.11}}
{{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 .sum = foldfrom(
val .nums = s2n .code
f(.sum, .i, .c) .sum + toNumber(.c, 36) x .weight[.i],
val .sum = for[=0] .i of .nums {
0,
_for += .nums[.i] x .weight[.i]
}
pseries len .code,
split .code,
)


toString 9 - (.sum - 1) rem 10
toString 9 - (.sum - 1) rem 10