Anonymous user
CUSIP: Difference between revisions
m
Cusip function was incorrect in several Languages. '0' -> 0, '9' -> 9, 'A' => 10, 'Z' -> 35, '*' -> 36 etc. The integer value for A-Z was off by 10.
Alextretyak (talk | contribs) (Added 11l) |
m (Cusip function was incorrect in several Languages. '0' -> 0, '9' -> 9, 'A' => 10, 'Z' -> 35, '*' -> 36 etc. The integer value for A-Z was off by 10.) |
||
Line 893:
}
else if (c >= 'A' && c <= 'Z') {
v = c -
}
else if (c == '*') {
Line 1,032:
(cond
(and (>= int-char (int \0)) (<= int-char (int \9))) (- int-char 48)
(and (>= int-char (int \A)) (<= int-char (int \Z))) (- int-char
(= c \*) 36
(= c \@) 37
Line 1,245:
match c {
'0'..'9' => c.order() - 48,
'A'..'Z' => c.order() -
'*' => 36,
'@' => 37,
Line 1,588:
v = int(c) - 48
case c >= 'A' && c <= 'Z':
v = int(c) -
case c == '*':
v = 36
Line 1,649:
v = c - 48
} else if (c >= ('A' as char) && c <= ('Z' as char)) {
v = c -
} else if (c == '*' as char) {
v = 36
Line 1,878:
v = c - 48;
} else if (c >= 'A' && c <= 'Z') {
v = c -
} else if (c == '*') {
v = 36;
Line 2,410:
var v = when (c) {
in '0'..'9' -> c.toInt() - 48
in 'A'..'Z' -> c.toInt() -
'*' -> 36
'@' -> 37
Line 2,534:
v = tonumber(c)
elseif c:match("%a") then
p = string.byte(c) -
v = p + 9
elseif c == "*" then
Line 2,806:
v := c - 48;
} else if (c >= 'A' & c <= 'Z') {
v := c -
} else if (c = '*') {
v := 36;
Line 3,535:
ok
if x >= ascii("A") and x <= ascii("Z")
v = x -
flag = 1
ok
Line 3,715:
var v = 0
if (c >= '0' && c <= '9') v = c - 48
else if (c >= 'A' && c <= 'Z') v = c -
else if (c == '*') v = 36
else if (c == '@') v = 37
Line 4,007:
v = Asc(c) - 48
ElseIf "A" <= c AndAlso c <= "Z" Then
v = Asc(c) -
ElseIf c = "*" Then
v = 36
Line 4,059:
v = c - 48
} else if (c >= 65 && c <= 90) { // 'A' to 'Z'
v = c -
} else if (s[i] == "*") {
v = 36
| |||