Wolfram Research

Function Repository Resource:

CistercianNumberEncode

Source Notebook

Encode a number according to the system devised by Cistercian monks

Contributed by: Sander Huisman

ResourceFunction["CistercianNumberEncode"][n]

encodes the number n to the Cisterian number system.

Details and Options

Only works for integer numbers from 0 to 9999.
The output of ResourceFunction["CistercianNumberEncode"] is a Graphics object.

Examples

Basic Examples (1) 

Encode the number 1987 to the Cistercian number system:

In[1]:=
ResourceFunction["CistercianNumberEncode"][1987]
Out[1]=

Scope (4) 

Show the digits 0–9:

In[2]:=
ResourceFunction["CistercianNumberEncode"] /@ Range[0, 9]
Out[2]=

Show the digits 0–90 in steps of 10:

In[3]:=
ResourceFunction["CistercianNumberEncode"] /@ Range[0, 90, 10]
Out[3]=

Show the digits 0–900 in steps of 100:

In[4]:=
ResourceFunction["CistercianNumberEncode"] /@ Range[0, 900, 100]
Out[4]=

Show the digits 0–9000 in steps of 1000:

In[5]:=
ResourceFunction["CistercianNumberEncode"] /@ Range[0, 9000, 1000]
Out[5]=

Possible Issues (3) 

Negative numbers can not be encoded:

In[6]:=
ResourceFunction["CistercianNumberEncode"][-10]

Numbers larger than 9999 can not be encoded:

In[7]:=
ResourceFunction["CistercianNumberEncode"][12345]

Only whole numbers can be encoded:

In[8]:=
ResourceFunction["CistercianNumberEncode"][13.37]
Out[8]=

Neat Examples (2) 

Encode the current year:

In[9]:=
Column[{#, ResourceFunction["CistercianNumberEncode"][#]}, Center] &[
 First[DateList[]]]
Out[9]=

Show a random collection of numbers:

In[10]:=
Table[ResourceFunction["CistercianNumberEncode"][
   RandomInteger[{0, 9999}]], {5}, {10}] // Grid
Out[10]=

Resource History

Source Metadata

Related Resources

License Information