Compare commits
No commits in common. "df918b84985944dfe843bb4a909b9ff4b2d24e68" and "0dbc38aebc8a0c9a10eb67a0365d3cd913461048" have entirely different histories.
df918b8498
...
0dbc38aebc
|
|
@ -9,17 +9,20 @@ 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 =
|
||||
Tools.chooseFrom2
|
||||
(Tools.map3 nm1 nm2 nm3)
|
||||
(Tools.map5 nm1 nm2 nm3 nm4 nm5)
|
||||
|> Random.map String.Extra.toTitleCase
|
||||
Random.uniform
|
||||
(Random.map3 (\a b c -> a ++ b ++ c) nm1 nm2 nm3
|
||||
|> 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
|
||||
|
|
|
|||
|
|
@ -9,30 +9,71 @@ 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 =
|
||||
Tools.chooseFrom2
|
||||
(Tools.map5 nm7 nm8 nm9 nm10 nm13)
|
||||
(Tools.map7 nm7 nm8 nm9 nm10 nm11 nm12 nm13)
|
||||
Random.uniform
|
||||
(Random.map5
|
||||
(\a b c d e -> a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e)
|
||||
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 =
|
||||
Tools.chooseFrom2
|
||||
(Tools.map5 nm1 nm2 nm3 nm4 nm6)
|
||||
(Tools.map7 nm1 nm2 nm3 nm4 nm5 nm4 nm6)
|
||||
Random.uniform
|
||||
(Random.map5
|
||||
(\a b c d e -> a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e)
|
||||
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 =
|
||||
Tools.map7 nm1 nm2 nm3 nm4 nm11 nm12 nm13
|
||||
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)
|
||||
nm11
|
||||
nm12
|
||||
nm13
|
||||
|> Random.map String.Extra.toTitleCase
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,91 +0,0 @@
|
|||
module Names.Bugbear exposing (..)
|
||||
|
||||
{-| This module exposes a generator for Bugbear names.
|
||||
|
||||
For more name generators, make sure to check out <https://www.fantasynamegenerators.com/>
|
||||
|
||||
|
||||
# Copyright (C) 2012 - 2020 FantasyNameGenerators.com.
|
||||
|
||||
-}
|
||||
|
||||
import Names.Tools as Tools
|
||||
import Random exposing (Generator)
|
||||
import String.Extra
|
||||
|
||||
|
||||
female : Generator String
|
||||
female =
|
||||
Tools.chooseFrom2
|
||||
(Tools.map5 nm1 nm2 nm3 nm4 nm5)
|
||||
(Tools.map3 nm1 nm2 nm5)
|
||||
|> Random.map String.Extra.toTitleCase
|
||||
|
||||
|
||||
male : Generator String
|
||||
male =
|
||||
female
|
||||
|
||||
|
||||
lastName : Generator String
|
||||
lastName =
|
||||
female
|
||||
|
||||
|
||||
nm1 : Generator String
|
||||
nm1 =
|
||||
Random.uniform "b"
|
||||
[ "br"
|
||||
, "chr"
|
||||
, "d"
|
||||
, "g"
|
||||
, "gh"
|
||||
, "hr"
|
||||
, "kh"
|
||||
, "n"
|
||||
, "r"
|
||||
, "st"
|
||||
, "t"
|
||||
, "th"
|
||||
, "v"
|
||||
, "z"
|
||||
, "zh"
|
||||
]
|
||||
|
||||
|
||||
nm2 : Generator String
|
||||
nm2 =
|
||||
Random.uniform "a" [ "e", "i", "o", "u" ]
|
||||
|
||||
|
||||
nm3 : Generator String
|
||||
nm3 =
|
||||
Random.uniform "d"
|
||||
[ "dd"
|
||||
, "dr"
|
||||
, "g"
|
||||
, "gh"
|
||||
, "gg"
|
||||
, "gr"
|
||||
, "rr"
|
||||
, "rd"
|
||||
, "rg"
|
||||
, "rn"
|
||||
, "t"
|
||||
, "tt"
|
||||
, "tr"
|
||||
, "v"
|
||||
, "vr"
|
||||
, "z"
|
||||
, "zz"
|
||||
]
|
||||
|
||||
|
||||
nm4 : Generator String
|
||||
nm4 =
|
||||
Random.uniform "a" [ "i", "o", "u" ]
|
||||
|
||||
|
||||
nm5 : Generator String
|
||||
nm5 =
|
||||
Random.uniform "k" [ "lk", "mkk", "n", "nn", "nk", "r", "rk", "rr", "th" ]
|
||||
|
|
@ -1,163 +0,0 @@
|
|||
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)
|
||||
Loading…
Reference in New Issue