Generalize name generation

src/Names/Aarakocra.elm

@@ -9,20 +9,17 @@ For more name generators, make sure to check out <https://www.fantasynamegenerat
 
 -}
 
+import Names.Tools as Tools
 import Random exposing (Generator)
 import String.Extra
 
 
 female : Generator String
 female =
-    Random.uniform
+    Tools.chooseFrom2
-        (Random.map3 (\a b c -> a ++ b ++ c) nm1 nm2 nm3
+        (Tools.map3 nm1 nm2 nm3)
+        (Tools.map5 nm1 nm2 nm3 nm4 nm5)
         |> Random.map String.Extra.toTitleCase
-        )
-        [ Random.map5 (\a b c d e -> a ++ b ++ c ++ d ++ e) nm1 nm2 nm3 nm4 nm5
-            |> Random.map String.Extra.toTitleCase
-        ]
-        |> Random.andThen identity
 
 
 male : Generator String

src/Names/Aasimar.elm

@@ -9,71 +9,30 @@ For more name generators, make sure to check out <https://www.fantasynamegenerat
 
 -}
 
+import Names.Tools as Tools
 import Random exposing (Generator)
 import String.Extra
 
 
 female : Generator String
 female =
-    Random.uniform
+    Tools.chooseFrom2
-        (Random.map5
+        (Tools.map5 nm7 nm8 nm9 nm10 nm13)
-            (\a b c d e -> a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e)
+        (Tools.map7 nm7 nm8 nm9 nm10 nm11 nm12 nm13)
-            nm7
-            nm8
-            nm9
-            nm10
-            nm13
-        )
-        [ Random.map5
-            (\( a, b ) ( c, d ) e f g ->
-                a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e ++ " " ++ f ++ " " ++ g
-            )
-            (Random.map2 Tuple.pair nm7 nm8)
-            (Random.map2 Tuple.pair nm9 nm10)
-            nm11
-            nm12
-            nm13
-        ]
-        |> Random.andThen identity
         |> Random.map String.Extra.toTitleCase
 
 
 male : Generator String
 male =
-    Random.uniform
+    Tools.chooseFrom2
-        (Random.map5
+        (Tools.map5 nm1 nm2 nm3 nm4 nm6)
-            (\a b c d e -> a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e)
+        (Tools.map7 nm1 nm2 nm3 nm4 nm5 nm4 nm6)
-            nm1
-            nm2
-            nm3
-            nm4
-            nm6
-        )
-        [ Random.map5
-            (\( a, b ) ( c, d ) e f g ->
-                a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e ++ " " ++ f ++ " " ++ g
-            )
-            (Random.map2 Tuple.pair nm1 nm2)
-            (Random.map2 Tuple.pair nm3 nm4)
-            nm5
-            nm4
-            nm6
-        ]
-        |> Random.andThen identity
         |> Random.map String.Extra.toTitleCase
 
 
 lastName : Generator String
 lastName =
-    Random.map5
+    Tools.map7 nm1 nm2 nm3 nm4 nm11 nm12 nm13
-        (\( a, b ) ( c, d ) e f g ->
-            a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e ++ " " ++ f ++ " " ++ g
-        )
-        (Random.map2 Tuple.pair nm1 nm2)
-        (Random.map2 Tuple.pair nm3 nm4)
-        nm11
-        nm12
-        nm13
         |> Random.map String.Extra.toTitleCase
 
 

src/Names/Tools.elm

@@ -0,0 +1,163 @@
+module Names.Tools exposing (..)
+
+{-| The Tools module helps with the generation of names.
+-}
+
+import Random exposing (Generator)
+
+
+chooseFrom2 : Generator a -> Generator a -> Generator a
+chooseFrom2 a b =
+    Random.uniform a [ b ]
+        |> Random.andThen identity
+
+
+chooseFrom3 : Generator a -> Generator a -> Generator a -> Generator a
+chooseFrom3 a b c =
+    Random.uniform a [ b, c ]
+        |> Random.andThen identity
+
+
+chooseFrom4 :
+    Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+chooseFrom4 a b c d =
+    Random.uniform a [ b, c, d ]
+        |> Random.andThen identity
+
+
+chooseFrom5 :
+    Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+chooseFrom5 a b c d e =
+    Random.uniform a [ b, c, d, e ]
+        |> Random.andThen identity
+
+
+chooseFrom6 :
+    Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+chooseFrom6 a b c d e f =
+    Random.uniform a [ b, c, d, e, f ]
+        |> Random.andThen identity
+
+
+chooseFrom7 :
+    Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+chooseFrom7 a b c d e f g =
+    Random.uniform a [ b, c, d, e, f, g ]
+        |> Random.andThen identity
+
+
+chooseFrom8 :
+    Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+    -> Generator a
+chooseFrom8 a b c d e f g h =
+    Random.uniform a [ b, c, d, e, f, g, h ]
+        |> Random.andThen identity
+
+
+map2 : Generator String -> Generator String -> Generator String
+map2 =
+    Random.map2 (++)
+
+
+map3 :
+    Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+map3 =
+    Random.map3 (\a b c -> a ++ b ++ c)
+
+
+map4 :
+    Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+map4 =
+    Random.map4 (\a b c d -> a ++ b ++ c ++ d)
+
+
+map5 :
+    Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+map5 =
+    Random.map5 (\a b c d e -> a ++ b ++ c ++ d ++ e)
+
+
+map6 :
+    Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+map6 nm1 nm2 =
+    Random.map5 (\( a, b ) c d e f -> a ++ b ++ c ++ d ++ e ++ f)
+        (Random.map2 Tuple.pair nm1 nm2)
+
+
+map7 :
+    Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+map7 nm1 nm2 nm3 nm4 =
+    Random.map5 (\( a, b ) ( c, d ) e f g -> a ++ b ++ c ++ d ++ e ++ f ++ g)
+        (Random.map2 Tuple.pair nm1 nm2)
+        (Random.map2 Tuple.pair nm3 nm4)
+
+
+map8 :
+    Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+    -> Generator String
+map8 nm1 nm2 nm3 nm4 nm5 nm6 =
+    Random.map5 (\( a, b ) ( c, d ) ( e, f ) g h -> a ++ b ++ c ++ d ++ e ++ f ++ g ++ h)
+        (Random.map2 Tuple.pair nm1 nm2)
+        (Random.map2 Tuple.pair nm3 nm4)
+        (Random.map2 Tuple.pair nm5 nm6)