Data update
This commit is contained in:
parent
5af6d93694
commit
796d366b97
455 changed files with 7413 additions and 1900 deletions
|
|
@ -11,18 +11,18 @@ proc findInStrArray array$[] item$ . index .
|
|||
for i = 1 to len array$[]
|
||||
if array$[i] = item$
|
||||
index = i
|
||||
break 2
|
||||
return
|
||||
.
|
||||
.
|
||||
index = 0
|
||||
.
|
||||
# This version actually handles consonant clusters
|
||||
name$ = input
|
||||
call toLowercase name$ lowerName$
|
||||
toLowercase name$ lowerName$
|
||||
vowels$[] = [ "a" "e" "i" "o" "u" ]
|
||||
for i = 1 to len lowerName$
|
||||
letter$ = substr lowerName$ i 1
|
||||
call findInStrArray vowels$[] letter$ index
|
||||
findInStrArray vowels$[] letter$ index
|
||||
if index <> 0
|
||||
truncName1$ = substr lowerName$ i len lowerName$
|
||||
break 1
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue