Skip to content

Instantly share code, notes, and snippets.

@jazzyjackson

jazzyjackson/Gemetria.mathematica

Created April 11, 2020 09:30
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jazzyjackson/55e7050a9a865fadfe760c955a88bd34 to your computer and use it in GitHub Desktop.
Save jazzyjackson/55e7050a9a865fadfe760c955a88bd34 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Gemetria.mathematica
GemetriaTable = AssociationThread[
Alphabet["Hebrew"],
Join[
Range[1, 9, 1],
Range[10, 90, 10],
Range[100, 400, 100]
]
]
Unfinalize = { "ם" -> "מ", "ן" -> "נ", "ץ" -> "צ", "ף" -> "פ", "ך" -> "כ" , "." -> ""}
Characterize[word_] :=
Characters[
StringReplace[word, Unfinalize] // RemoveDiacritics // StringTrim
]
Gemetria[word_] := {word, Total[Map[GemetriaTable[#] &, Characterize[word]]]}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment