@@ -0,0 +1,121 @@
1+namespace Skrepka
2+
3+module Phonemic =
4+
5+ // Urbit @p syllable tables (256 prefixes, 256 suffixes)
6+ // Each byte pair encodes as prefix[hi] + suffix[lo]
7+
8+ let private prefixes =
9+ [| "doz"; "mar"; "bin"; "wan"; "sam"; "lit"; "sig"; "hid"
10+ "fid"; "lis"; "sog"; "dir"; "wac"; "sab"; "wis"; "sib"
11+ "rig"; "sol"; "dop"; "mod"; "fog"; "lid"; "hop"; "dar"
12+ "dor"; "lor"; "hod"; "fol"; "rin"; "tog"; "sil"; "mir"
13+ "hol"; "pas"; "lac"; "rov"; "liv"; "dal"; "sat"; "lib"
14+ "tab"; "han"; "tic"; "pid"; "tor"; "bol"; "fos"; "dot"
15+ "los"; "dil"; "for"; "pil"; "ram"; "tir"; "win"; "tad"
16+ "bic"; "dif"; "roc"; "wid"; "bis"; "das"; "mid"; "lop"
17+ "ril"; "nar"; "dap"; "mol"; "san"; "loc"; "nov"; "sit"
18+ "nid"; "tip"; "sic"; "rop"; "wit"; "nat"; "pan"; "min"
19+ "rit"; "pod"; "mot"; "tam"; "tol"; "sav"; "pos"; "nap"
20+ "nop"; "som"; "fin"; "fon"; "ban"; "mor"; "wor"; "sip"
21+ "ron"; "nor"; "bot"; "wic"; "soc"; "wat"; "dol"; "mag"
22+ "pic"; "dav"; "bid"; "bal"; "tim"; "tas"; "mal"; "lig"
23+ "siv"; "tag"; "pad"; "sal"; "div"; "dac"; "tan"; "sid"
24+ "fab"; "tar"; "mon"; "ran"; "nis"; "wol"; "mis"; "pal"
25+ "las"; "dis"; "map"; "rab"; "tob"; "rol"; "lat"; "lon"
26+ "nod"; "nav"; "fig"; "nom"; "nib"; "pag"; "sop"; "ral"
27+ "bil"; "had"; "doc"; "rid"; "moc"; "pac"; "rav"; "rip"
28+ "fal"; "tod"; "til"; "tin"; "hap"; "mic"; "fan"; "pat"
29+ "tac"; "lab"; "mog"; "sim"; "son"; "pin"; "lom"; "ric"
30+ "tap"; "fir"; "has"; "bos"; "bat"; "poc"; "hac"; "tid"
31+ "hav"; "sap"; "lin"; "dib"; "hos"; "dab"; "bit"; "bar"
32+ "rac"; "par"; "lod"; "dos"; "bor"; "toc"; "hil"; "mac"
33+ "tom"; "dig"; "fil"; "fas"; "mit"; "hob"; "har"; "mig"
34+ "hin"; "rad"; "mas"; "hal"; "rag"; "lag"; "fad"; "top"
35+ "mop"; "hab"; "nil"; "nos"; "mil"; "fop"; "fam"; "dat"
36+ "nol"; "din"; "hat"; "nac"; "ris"; "fot"; "rib"; "hoc"
37+ "nim"; "lar"; "fit"; "wal"; "rap"; "sar"; "nal"; "mos"
38+ "lan"; "don"; "dan"; "lad"; "dov"; "riv"; "bac"; "pol"
39+ "lap"; "tal"; "pit"; "nam"; "bon"; "ros"; "ton"; "fod"
40+ "pon"; "sov"; "noc"; "sor"; "lav"; "mat"; "mip"; "fip" |]
41+
42+ let private suffixes =
43+ [| "zod"; "nec"; "bud"; "wes"; "sev"; "per"; "sut"; "let"
44+ "ful"; "pen"; "syt"; "dur"; "wep"; "ser"; "wyl"; "sun"
45+ "ryp"; "syx"; "dyr"; "nup"; "heb"; "peg"; "lup"; "dep"
46+ "dys"; "put"; "lug"; "hec"; "ryt"; "tyv"; "syd"; "nex"
47+ "lun"; "mep"; "lut"; "sep"; "pes"; "del"; "sul"; "ped"
48+ "tem"; "led"; "tul"; "met"; "wen"; "byn"; "hex"; "feb"
49+ "pyl"; "dul"; "het"; "mev"; "rut"; "tyl"; "wyd"; "tep"
50+ "bes"; "dex"; "sef"; "wyc"; "bur"; "der"; "nep"; "pur"
51+ "rys"; "reb"; "den"; "nut"; "sub"; "pet"; "rul"; "syn"
52+ "reg"; "tyd"; "sup"; "sem"; "wyn"; "rec"; "meg"; "net"
53+ "sec"; "mul"; "nym"; "tev"; "web"; "sum"; "mut"; "nyx"
54+ "rex"; "teb"; "fus"; "hep"; "ben"; "mus"; "wyx"; "sym"
55+ "sel"; "ruc"; "dec"; "wex"; "syr"; "wet"; "dyl"; "myn"
56+ "mes"; "det"; "bet"; "bel"; "tux"; "tug"; "myr"; "pel"
57+ "syp"; "ter"; "meb"; "set"; "dut"; "deg"; "tex"; "sur"
58+ "fel"; "tud"; "nux"; "rux"; "ren"; "wyt"; "nub"; "med"
59+ "lyt"; "dus"; "neb"; "rum"; "tyn"; "seg"; "lyx"; "pun"
60+ "res"; "red"; "fun"; "rev"; "ref"; "mec"; "ted"; "rus"
61+ "bex"; "leb"; "dux"; "ryn"; "num"; "pyx"; "ryg"; "ryx"
62+ "fep"; "tyr"; "tus"; "tyc"; "leg"; "nem"; "fer"; "mer"
63+ "ten"; "lus"; "nus"; "syl"; "tec"; "mex"; "pub"; "rym"
64+ "tuc"; "fyl"; "lep"; "deb"; "ber"; "mug"; "hut"; "tun"
65+ "byl"; "sud"; "pem"; "dev"; "lur"; "def"; "bus"; "bep"
66+ "run"; "mel"; "pex"; "dyt"; "byt"; "typ"; "lev"; "myl"
67+ "wed"; "duc"; "fur"; "fex"; "nul"; "luc"; "len"; "ner"
68+ "lex"; "rup"; "ned"; "lec"; "ryd"; "lyd"; "fen"; "wel"
69+ "nyd"; "hus"; "rel"; "rud"; "nes"; "hes"; "fet"; "des"
70+ "ret"; "dun"; "ler"; "nyr"; "seb"; "hul"; "ryl"; "lud"
71+ "rem"; "lys"; "fyn"; "wer"; "ryc"; "sug"; "nys"; "nyl"
72+ "lyn"; "dyn"; "dem"; "lux"; "fed"; "sed"; "bec"; "mun"
73+ "lyr"; "tes"; "mud"; "nyt"; "byr"; "sen"; "weg"; "fyr"
74+ "mur"; "tel"; "rep"; "teg"; "pec"; "nel"; "nev"; "fes" |]
75+
76+ let private prefixMap =
77+ prefixes |> Array.mapi (fun i s -> s, byte i) |> Map.ofArray
78+
79+ let private suffixMap =
80+ suffixes |> Array.mapi (fun i s -> s, byte i) |> Map.ofArray
81+
82+ let toOb (bytes: byte[]) : string =
83+ let sb = System.Text.StringBuilder()
84+
85+ for i in 0..2 .. bytes.Length - 1 do
86+ let pair = i / 2
87+
88+ if pair > 0 then
89+ sb.Append('-') |> ignore
90+
91+ sb.Append(prefixes.[int bytes.[i]]).Append(suffixes.[int bytes.[i + 1]])
92+ |> ignore
93+
94+ sb.ToString()
95+
96+ let fromOb (s: string) : byte[] option =
97+ let s = s.Trim('-')
98+
99+ if s = "" then
100+ None
101+ else
102+ let pairs = s.Split('-') |> Array.filter (fun p -> p <> "")
103+
104+ let results =
105+ pairs
106+ |> Array.map (fun sp ->
107+ if sp.Length = 6 then
108+ match Map.tryFind sp.[0..2] prefixMap, Map.tryFind sp.[3..5] suffixMap with
109+ | Some hi, Some lo -> Some(hi, lo)
110+ | _ -> None
111+ else
112+ None)
113+
114+ if results |> Array.forall Option.isSome then
115+ results
116+ |> Array.collect (fun r ->
117+ let hi, lo = r.Value
118+ [| hi; lo |])
119+ |> Some
120+ else
121+ None