Overview
| Comment: | add ransul |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
9a711d8a062bd1b4f356be0d374b2089 |
| User & Date: | lexi on 2018-11-11 10:19:56 |
| Other Links: | manifest | tags |
Context
|
2018-11-11
| ||
| 10:26 | add ransul check-in: 77c9e366f8 user: lexi tags: trunk | |
| 10:19 | add ransul check-in: 9a711d8a06 user: lexi tags: trunk | |
|
2018-09-24
| ||
| 23:18 | initial commit check-in: 1521429541 user: lexi tags: trunk | |
Changes
Added ransul.ml version [7dd9d28150].
1 +let pick (r : 'a array) : 'a = r.(Random.int(Array.length r)) 2 +let chance i = (Random.int i) = 0 3 + 4 +type root = { 5 + ra : string; 6 + en : string; 7 +} 8 + 9 +let roots = [| 10 + { ra = "lis"; en = "flower"; }; 11 + { ra = "uan"; en = "joy"; }; 12 + { ra = "saf"; en = "just"; }; 13 + { ra = "vas"; en = "gem"; }; 14 + { ra = "mir"; en = "love"; }; 15 + { ra = "uen"; en = "small"; }; 16 + { ra = "shir"; en = "need"; }; 17 + { ra = "ser"; en = "true"; }; 18 + { ra = "liv"; en = "trust"; }; 19 + { ra = "cir"; en = "strong"; }; 20 + { ra = "ros"; en = "galaxy"; }; 21 + { ra = "sur"; en = "socialism"; }; 22 + { ra = "ran"; en = "People"; }; 23 + { ra = "lin"; en = "health"; }; 24 + { ra = "nish"; en = "stone"; }; 25 + { ra = "shen"; en = "tender"; }; 26 + { ra = "cas"; en = "hope"; }; 27 + { ra = "pash"; en = "gentle"; }; 28 + { ra = "ren"; en = "generous"; }; 29 + { ra = "car"; en = "cause"; }; 30 + { ra = "han"; en = "sure"; }; 31 + { ra = "shad"; en = "wisdom"; }; 32 + { ra = "vir"; en = "spirit"; }; 33 + { ra = "has"; en = "peace"; }; 34 + { ra = "uin"; en = "heart"; }; 35 + { ra = "shal"; en = "sun"; }; 36 + { ra = "lac"; en = "air"; }; 37 + { ra = "cit"; en = "strong"; }; 38 + { ra = "cov"; en = "meaning"; }; 39 + { ra = "ien"; en = "event"; }; 40 + { ra = "sav"; en = "unity"; }; 41 + { ra = "vin"; en = "obedience"; }; 42 + { ra = "pel"; en = "comfort"; }; 43 + { ra = "vit"; en = "effort"; }; 44 + { ra = "tas"; en = "liaison"; }; 45 + { ra = "sosh"; en = "passion"; }; 46 + { ra = "ten"; en = "river"; }; 47 + { ra = "sal"; en = "sea"; }; 48 + { ra = "sel"; en = "vulnerability"; }; 49 + { ra = "til"; en = "victory"; }; 50 + { ra = "sad"; en = "bastion"; }; 51 + { ra = "tov"; en = "sacrifice"; }; 52 + { ra = "gal"; en = "belonging"; }; 53 + { ra = "ved"; en = "vigilance"; }; 54 + { ra = "cam"; en = "harvest"; }; 55 + { ra = "pan"; en = "sowing"; }; 56 + { ra = "hil"; en = "root"; }; 57 + { ra = "nus"; en = "persistence"; }; 58 + { ra = "cud"; en = "return"; }; 59 + { ra = "nom"; en = "similar"; }; 60 + { ra = "pen"; en = "blood "; }; 61 + { ra = "sish"; en = "patience"; }; 62 + { ra = "mon"; en = "gentle"; }; 63 + { ra = "tac"; en = "hard"; }; 64 + { ra = "rig"; en = "aid"; }; 65 + { ra = "nir"; en = "air"; }; 66 + { ra = "lan"; en = "leadership"; }; 67 + { ra = "cad"; en = "fortune"; }; 68 + { ra = "div"; en = "many"; }; 69 + { ra = "cos"; en = "line"; }; 70 + { ra = "dor"; en = "will"; }; 71 + { ra = "iun"; en = "bearing"; }; 72 + { ra = "uol"; en = "sky"; }; 73 + { ra = "sof"; en = "bright"; }; 74 + { ra = "tal"; en = "part"; }; 75 + { ra = "teg"; en = "mount"; }; 76 + { ra = "var"; en = "shadow "; }; 77 + { ra = "sil"; en = "light"; }; 78 + { ra = "iur"; en = "life"; }; 79 + { ra = "mad"; en = "source"; }; 80 + { ra = "far"; en = "voyage"; }; 81 + { ra = "tel"; en = "world"; }; 82 + { ra = "shet"; en = "moon"; }; 83 + { ra = "med"; en = "space"; }; 84 + { ra = "ios"; en = "water"; }; 85 + { ra = "tur"; en = "energy"; }; 86 + { ra = "ris"; en = "justice"; }; 87 + { ra = "vis"; en = "love"; }; 88 + { ra = "can"; en = "touch"; }; 89 + { ra = "len"; en = "patriot"; }; 90 + { ra = "van"; en = "forest"; }; 91 + { ra = "cef"; en = "duty"; }; 92 + { ra = "nil"; en = "peace"; }; 93 + { ra = "tir"; en = "force"; }; 94 + { ra = "tef"; en = "discipline"; }; 95 + { ra = "tar"; en = "humility"; }; 96 + { ra = "shar"; en = "girl"; }; 97 + { ra = "sar"; en = "black"; }; 98 + { ra = "uer"; en = "rose"; }; 99 + { ra = "seh"; en = "cyan"; }; 100 + { ra = "iash"; en = "blue-green"; }; 101 + { ra = "pir"; en = "silver"; }; 102 + { ra = "mat"; en = "gold"; }; 103 + { ra = "iem"; en = "glow"; }; 104 + { ra = "ian"; en = "giving"; }; 105 +|] 106 + 107 +let name () = 108 + let fst = pick roots in 109 + let lst = pick roots in 110 + (String.capitalize_ascii fst.ra) ^ (lst.ra) ^ ": " ^ 111 + fst.en ^ "-" ^ lst.en;; 112 + 113 +let () = Random.self_init () ; print_string (name())