Message Boards Message Boards

The Donomen naming system

Posted 15 days ago

Attachments:
POSTED BY: J. M.
2 Replies

enter image description here -- you have earned Featured Contributor Badge enter image description here Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

POSTED BY: EDITORIAL BOARD

If we drop the last consonant and replace "z" with "s" and "w" with "v" (because, they are easily "confused" too) then we can convert to Koremutake those Donomens:

ResourceFunction["KoremutakeConvert"][
   StringReplace[
    ToLowerCase@StringTake[#, {1, -2}], {"z" -> "s", "w" -> "v"}]] & /@ {"DIHAVEJIG", "NUGIBUBAD", "MOKOMEMUL", "VIHUBOMEK", "HIZOJODOF", "JIKUTEBAK", "DUGOFUFIW", "FAZIWATOS", 
  "PULERIBOZ", "NIMUSINOM", "SAZAFOHOD", "ZATAGABED", "SAFEGEVAJ", 
  "KEMEFEFOJ", "WINEJEZUL", "WASISOBOR", "SETEROZIP", "ROBABIZIG", 
  "MAFEZOWUF", "NOTAWITOB"}
Out[8]= {17181344, 121963008, 107600052, 180814257, 55758985,
67774336, 21317646, 26389073, 134930947, 118302009, 152176539,
152275201, 151210452, 78399119, 181260236, 177382787, 154395338,
144703818, 100885976, 120826705}

Moreover, "donome" itself is also convertible to Koremutake:

In[10]:= ResourceFunction["KoremutakeConvert"]["Donome"]

Out[10]= 154801
POSTED BY: Anton Antonov
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract