Function Repository Resource:

KoremutakeConvert

Source Notebook

Convert to and from Koremutake memorable random strings

Contributed by: Anton Antonov

ResourceFunction["KoremutakeConvert"][n]

converts the integer n into a Koremutake memorable string.

ResourceFunction["KoremutakeConvert"][s]

converts the given Koremutake string s into an integer.

Details

Koremutake representation is a way to express any large number as a sequence of syllables. The general idea is that pieces of information that sound like words are a lot easier to remember than a sequence of digits.

ResourceFunction["KoremutakeConvert"] can take integers and strings as arguments.

String case is ignored.

Representations of negative integers are prefixed with "minus".

The syllable-to-integer mapping can be obtained by using "SyllableMapping" as an argument.

The integer-to-syllable mapping can be obtained by using "IntegerMapping" as an argument.

ResourceFunction["KoremutakeConvert"] threads over lists.

Examples

Basic Examples (3)

Convert an integer into a Koremutake memorable string:

In[1]:=

Out[1]=

Convert a negative integer:

In[2]:=

Out[2]=

Convert a Koremutake string into an integer:

In[3]:=

Out[3]=

Scope (3)

The function Koremutake works on lists (it has the attribute Listable):

In[4]:=

Out[4]=

Get the syllable-to-integer mapping:

In[5]:=

Out[5]=

Get the integer-to-syllable mapping:

In[6]:=

Out[6]=

Applications (2)

Generate memorable strings for a list of large primes:

In[7]:=

$SeedRandom[44]; res = Association@ Map[# -> ResourceFunction["KoremutakeConvert"][#] &, Prime /@ RandomInteger[{10^5, 10^7}, 5]]$

Out[7]=

Convert the obtained memorable strings into integers:

In[8]:=

Out[8]=

Properties and Relations (4)

Random integers can be converted to memorable strings:

In[9]:=

$SeedRandom[93]; ResourceFunction["KoremutakeConvert"][RandomInteger[{-10^5, 10^5}, 6]]$

Out[9]=

Using the resource function Soundex, you can "generalize" the Koremutake representations into Soundex codes:

In[10]:=

Out[10]=

In[11]:=

Out[11]=

Note that variations of "dribro" and "branaby" are represented with the same Soundex codes:

In[12]:=

Out[12]=

The variations with "too many" consonants are not recognized by KoremutakeConvert:

In[13]:=

Out[13]=

Here a random tabular dataset is generated with the resource function RandomTabularDataset, which has a "Koremutake" column:

In[14]:=

$SeedRandom[564]; ResourceFunction[ "RandomTabularDataset"][{4, {"SomethingRandom", "Koremutake", "SomethinRandom2"}}, "Generators" -> <| "Koremutake" -> Function[{n}, ResourceFunction["KoremutakeConvert"][ RandomInteger[{0, 10^6}, n]]]|>]$