Anonymous user
SEDOLs: Difference between revisions
→{{header|BASIC}}: Added vowel check
(→{{header|Java}}: Added vowel constraint, changed "bad" return values to -1) |
(→{{header|BASIC}}: Added vowel check) |
||
Line 93:
EXIT FUNCTION
END IF
str = UCASE$(str)
DIM mult(6) AS INTEGER
mult(1) = 1: mult(2) = 3: mult(3) = 1
Line 99 ⟶ 100:
FOR i = 1 TO 6
s$ = MID$(str, i, 1)
IF s$ = "A" OR s$ = "E" OR s$ = "I" OR s$ = "O" OR s$ = "U" THEN
PRINT "No vowels"
EXIT FUNCTION
END IF
IF ASC(s$) >= 48 AND ASC(s$) <= 57 THEN
total = total + VAL(s$) * mult(i)
| |||