Data update

This commit is contained in:
Ingy döt Net 2023-09-16 17:28:03 -07:00
parent 5af6d93694
commit 796d366b97
455 changed files with 7413 additions and 1900 deletions

View file

@ -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