CUSIP: Difference between revisions
→{{header|langur}}
imported>Yanlyesin |
Langurmonkey (talk | contribs) |
||
| (7 intermediate revisions by 4 users not shown) | |||
Line 55:
<syntaxhighlight lang=11l>F cusip_check(=cusip)
I cusip.len != 9
X.throw ValueError(‘CUSIP must be 9 characters’)
cusip = cusip.uppercase()
Line 1,728:
68389X106 -> incorrect
68389X105 -> correct</pre>
=={{header|EasyLang}}==
func check inp$ .
for i = 1 to 8
c = strcode substr inp$ i 1
if c >= 48 and c <= 57
v = c - 48
elif c >= 65 and c <= 91
v = c - 64 + 9
elif c = 42
v = 36
elif c = 64
v = 37
elif c = 35
v = 38
.
if i mod 2 = 0
v *= 2
.
sum += v div 10 + v mod 10
.
return if (10 - (sum mod 10)) mod 10 = number substr inp$ 9 1
.
for s$ in [ "037833100" "17275R102" "38259P508" "594918104" "68389X106" "68389X105" ]
write s$ & " is "
if check s$ = 1
print "valid"
else
print "invalid"
.
.
</syntaxhighlight>
=={{header|Excel}}==
Line 2,954 ⟶ 2,988:
=={{header|langur}}==
If we don't strictly follow the pseudo-code, we can do this.
<syntaxhighlight lang=langur>val .isCusip = fn(.s) {
▲<syntaxhighlight lang=langur>val .isCusip = f(.s) {
▲ if not isString(.s) or len(.s) != 9 {
return false
}
val .basechars =
val .sum = for[=0] .i of 8 {
Line 2,967 ⟶ 2,999:
if not .v: return false
.v = .v[1]-1
if .i div 2: .v
_for += .v \ 10 + .v rem 10
}
Line 2,974 ⟶ 3,006:
}
val .candidates =
for .c in .candidates {
Line 2,981 ⟶ 3,013:
Following the pseudo-code would look more like the following.
{{trans|Go}}
<syntaxhighlight lang=langur>val .isCusip =
if
return false
}
Line 2,993 ⟶ 3,023:
var .v = 0
case >= '0', <= '9':
.v = .c-'0'
Line 3,009 ⟶ 3,037:
}
if .i div 2: .v
_for += .v \ 10 + .v rem 10
}
Line 3,110 ⟶ 3,138:
{{out}}
<pre>{True, True, True, True, False, True}</pre>
=={{header|MiniScript}}==
<syntaxhighlight lang="miniscript">isCusip = function(s)
if s.len != 9 then return false
sum = 0
for i in range(0, 7)
c = s[i]
v = 0
if c >= "0" and c <= "9" then
v = code(c) - 48
else if c >= "A" and c <= "Z" then
v = code(c) - 55
else if c == "*" then
v = 36
else if c == "@" then
v = 37
else if c == "#" then
v = 38
else
return false
end if
if i%2 == 1 then v *= 2 // check if odd as using 0-based indexing
sum += floor(v/10) + v%10
end for
return code(s[8]) - 48 == (10 - (sum%10)) % 10
end function
candidates = [
"037833100", "17275R102", "38259P508",
"594918104", "68389X106", "68389X105",
]
for candidate in candidates
s = "valid"
if not isCusip(candidate) then s = "invalid"
print candidate + " -> " + s
end for</syntaxhighlight>
{{out}}
<pre>037833100 -> valid
17275R102 -> valid
38259P508 -> valid
594918104 -> valid
68389X106 -> invalid
68389X105 -> valid
</pre>
=={{header|Modula-2}}==
Line 4,596 ⟶ 4,669:
=={{header|Wren}}==
{{trans|Go}}
<syntaxhighlight lang=
if (s.count != 9) return false
var sum = 0
| |||