name generator tuning

gamelib/wordlib.wl

@@ -150,11 +150,16 @@
         $[1, "cvvc"],
         $[1, "cvccvcvc"],
     ],
+    C = $[ # japanese first name
+        $[3, "jj"],
+        $[2, "jjj"],
+    ],
     c = $[ # japanese
-        $[1, "jj"],
+        $[2, "jj"],
+        $[3, "jjj"],
         $[1, "jjjjj"],
-        $[1, "jjjj"],
-        $[1, "jjjc"],
+        $[3, "jjjj"],
+        $[2, "jjjc"],
     ],
     d = $[ # japanese assorted
         $[1, "jjjvcvc"],

tst.wl

@@ -9,11 +9,24 @@
 !r = std:rand:split_mix64_new[];
 !rand_gen = { std:rand:split_mix64_next_open01 r };
 
-range 1 100 1 {||
-    !name_pattern = w:gen "f s" wl:name_set rand_gen;
-    w:gen name_pattern wl:particle_set rand_gen | ucfirst_on_words | std:displayln;
+
+!do_ten = {
+    !(pattern) = @;
+    std:displayln "*** PATTERN:" pattern " ***";
+    range 1 10 1 {||
+        !name_pattern = w:gen pattern wl:name_set rand_gen;
+        w:gen name_pattern wl:particle_set rand_gen | ucfirst_on_words | std:displayln;
+    };
+    std:displayln "";
 };
 
+do_ten "a b";
+do_ten "a g";
+do_ten "a s";
+do_ten "f c";
+do_ten "a c";
+do_ten "C c";
+
 #!occ = ${};
 #range 1 1000 1 {||
 #    !res = w:gen "vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv" w:set1 rand_gen;