Greek Numerals

Author

Eric W. Weisstein
January 19, 2022

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Numbers/GreekNumerals.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/GreekNumerals.html.

©2022 Wolfram Research, Inc. except for portions noted otherwise

Table

GreekNumeral[n_]:=With[{greek=IntegerString[n,"GreekLower"]/.s_String:>StringReplace[s,"´"->""]},
{
n,
greek,StringTrim@StringReplace[StringReplace[ToString[greek,CharacterEncoding->"ASCII"],Shortest["\\["~~c__~~"]"]:>ToLowerCase[c]<>" "],{"curly"->"","\\:0375"->"hasta "}]
}]

TextGrid[Flatten/@Transpose[{
Table[GreekNumeral[n],{n,10}],
Table[GreekNumeral[n],{n,10,100,10}],
Table[GreekNumeral[n],{n,100,1000,100}]
}],Dividers->{{{Thick,True,True}},{Thick,{True},Thick}},Alignment->{{{Decimal,Left,Left}}}]

GreekNumeral[123]

TextGrid[Table[GreekNumeral[n],{n,{1000,2000,3000,10000,20000,30000}}],Dividers->All,Alignment->{{Decimal,Left,Left}}]