module HangmanAscii.Database
( conCat
, getWords
) where
import Data.List
conCat :: String
conCat = intercalate ", " categoryNames
categoryNames :: [String]
categoryNames =
[ "fruites"
, "animals"
, "colours"
, "places"
, "time"
, "weather"
, "misc"
, "foobar"
]
categories :: [[String]]
categories =
[ fruites
, animals
, colours
, places
, time
, weather
, misc
, foobar
]
getWords :: String -> [String]
getWords "all" = mconcat categories
getWords "fruites" = fruites
getWords "animals" = animals
getWords "colours" = colours
getWords "places" = places
getWords "time" = time
getWords "weather" = weather
getWords "misc" = misc
getWords "foobar" = foobar
getWords _ = getWords "all"
foobar :: [String]
foobar =
[ "foo"
, "bar"
]
fruites :: [String]
fruites =
[ "apple"
, "apricot"
, "avocado"
, "banana"
, "bilberry"
, "blackberry"
, "blackcurrant"
, "blueberry"
, "boysenberry"
, "currant"
, "cherry"
, "cherimoya"
, "cloudberry"
, "coconut"
, "cranberry"
, "cucumber"
, "damson"
, "date"
, "dragonfruit"
, "durian"
, "elderberry"
, "feijoa"
, "fig"
, "gooseberry"
, "grape"
, "raisin"
, "grapefruit"
, "guava"
, "honeyberry"
, "huckleberry"
, "jabuticaba"
, "jackfruit"
, "jambul"
, "jujube"
, "kiwano"
, "kiwifruit"
, "kumquat"
, "lemon"
, "lime"
, "loquat"
, "longan"
, "lychee"
, "mango"
, "mangosteen"
, "marionberry"
, "melon"
, "cantaloupe"
, "honeydew"
, "watermelon"
, "mulberry"
, "nectarine"
, "nance"
, "olive"
, "orange"
, "clementine"
, "mandarine"
, "tangerine"
, "papaya"
, "passionfruit"
, "peach"
, "pear"
, "persimmon"
, "physalis"
, "plantain"
, "plum"
, "prune"
, "pineapple"
, "plumcot"
, "pomegranate"
, "pomelo"
, "quince"
, "raspberry"
, "salmonberry"
, "rambutan"
, "redcurrant"
, "salak"
, "satsuma"
, "soursop"
, "strawberry"
, "tamarillo"
, "tamarind"
, "yuzu"
]
animals :: [String]
animals =
[ "aardvark"
, "aardwolf"
, "albatross"
, "alligator"
, "alpaca"
, "amphibian"
, "anaconda"
, "angelfish"
, "anglerfish"
, "ant"
, "anteater"
, "antelope"
, "antlion"
, "ape"
, "aphid"
, "armadillo"
, "asp"
, "baboon"
, "badger"
, "bandicoot"
, "barnacle"
, "barracuda"
, "basilisk"
, "bass"
, "bat"
, "bear"
, "beaver"
, "bedbug"
, "bee"
, "beetle"
, "bird"
, "bison"
, "blackbird"
, "boa"
, "boar"
, "bobcat"
, "bobolink"
, "bonobo"
, "booby"
, "bovid"
, "bug"
, "butterfly"
, "buzzard"
, "camel"
, "canid"
, "canidae"
, "capybara"
, "cardinal"
, "caribou"
, "carp"
, "cat"
, "caterpillar"
, "catfish"
, "catshark"
, "cattle"
, "centipede"
, "cephalopod"
, "chameleon"
, "cheetah"
, "chickadee"
, "chicken"
, "chimpanzee"
, "chinchilla"
, "chipmunk"
, "cicada"
, "clam"
, "clownfish"
, "cobra"
, "cockroach"
, "cod"
, "condor"
, "constrictor"
, "coral"
, "cougar"
, "cow"
, "coyote"
, "crab"
, "crane"
, "crawdad"
, "crayfish"
, "cricket"
, "crocodile"
, "crow"
, "cuckoo"
, "damselfly"
, "deer"
, "dingo"
, "dinosaur"
, "dog"
, "dolphin"
, "donkey"
, "dormouse"
, "dove"
, "dragon"
, "dragonfly"
, "duck"
, "eagle"
, "earthworm"
, "earwig"
, "echidna"
, "eel"
, "egret"
, "elephant"
, "elk"
, "emu"
, "ermine"
, "falcon"
, "felidae"
, "ferret"
, "finch"
, "firefly"
, "fish"
, "flamingo"
, "flea"
, "fly"
, "flyingfish"
, "fowl"
, "fox"
, "frog"
, "galliform"
, "gamefowl"
, "gayal"
, "gazelle"
, "gecko"
, "gerbil"
, "gibbon"
, "giraffe"
, "goat"
, "goldfish"
, "goose"
, "gopher"
, "gorilla"
, "grasshopper"
, "grouse"
, "guan"
, "guanaco"
, "guineafowl"
, "gull"
, "guppy"
, "haddock"
, "halibut"
, "hamster"
, "hare"
, "harrier"
, "hawk"
, "hedgehog"
, "heron"
, "herring"
, "hippopotamus"
, "hookworm"
, "hornet"
, "horse"
, "hoverfly"
, "hummingbird"
, "hyena"
, "iguana"
, "impala"
, "jackal"
, "jaguar"
, "jay"
, "jellyfish"
, "junglefowl"
, "kangaroo"
, "kingfisher"
, "kite"
, "kiwi"
, "koala"
, "koi"
, "krill"
, "ladybug"
, "lamprey"
, "landfowl"
, "lark"
, "leech"
, "lemming"
, "lemur"
, "leopard"
, "leopon"
, "limpet"
, "lion"
, "list"
, "lizard"
, "llama"
, "lobster"
, "locust"
, "loon"
, "louse"
, "lungfish"
, "lynx"
, "macaw"
, "mackerel"
, "magpie"
, "manatee"
, "mandrill"
, "marlin"
, "marmoset"
, "marmot"
, "marsupial"
, "marten"
, "mastodon"
, "meadowlark"
, "meerkat"
, "mink"
, "minnow"
, "mite"
, "mockingbird"
, "mole"
, "mollusk"
, "mongoose"
, "monkey"
, "moose"
, "mosquito"
, "moth"
, "mouse"
, "mule"
, "muskox"
, "narwhal"
, "newt"
, "nightingale"
, "ocelot"
, "octopus"
, "opossum"
, "orangutan"
, "orca"
, "ostrich"
, "otter"
, "owl"
, "ox"
, "panda"
, "panther"
, "parakeet"
, "parrot"
, "parrotfish"
, "partridge"
, "peacock"
, "peafowl"
, "pelican"
, "penguin"
, "perch"
, "pheasant"
, "pig"
, "pigeon"
, "pike"
, "pinniped"
, "piranha"
, "planarian"
, "platypus"
, "pony"
, "porcupine"
, "porpoise"
, "possum"
, "prawn"
, "primate"
, "ptarmigan"
, "puffin"
, "puma"
, "python"
, "quail"
, "quelea"
, "quokka"
, "rabbit"
, "raccoon"
, "rat"
, "rattlesnake"
, "raven"
, "reindeer"
, "reptile"
, "rhinoceros"
, "roadrunner"
, "rodent"
, "rook"
, "rooster"
, "roundworm"
, "sailfish"
, "salamander"
, "salmon"
, "sawfish"
, "scallop"
, "scorpion"
, "seahorse"
, "shark"
, "sheep"
, "shrew"
, "shrimp"
, "silkworm"
, "silverfish"
, "skink"
, "skunk"
, "sloth"
, "slug"
, "smelt"
, "snail"
, "snake"
, "snipe"
, "sole"
, "sparrow"
, "spider"
, "spoonbill"
, "squid"
, "squirrel"
, "starfish"
, "stingray"
, "stoat"
, "stork"
, "sturgeon"
, "swallow"
, "swan"
, "swift"
, "swordfish"
, "swordtail"
, "tahr"
, "takin"
, "tapir"
, "tarantula"
, "tarsier"
, "termite"
, "tern"
, "thrush"
, "tick"
, "tiger"
, "tiglon"
, "toad"
, "tortoise"
, "toucan"
, "trout"
, "tuna"
, "turkey"
, "turtle"
, "tyrannosaurus"
, "urial"
, "vicuna"
, "viper"
, "vole"
, "vulture"
, "wallaby"
, "walrus"
, "warbler"
, "wasp"
, "weasel"
, "whale"
, "whippet"
, "whitefish"
, "wildcat"
, "wildebeest"
, "wildfowl"
, "wolf"
, "wolverine"
, "wombat"
, "woodpecker"
, "worm"
, "wren"
, "xerinae"
, "yak"
, "zebra"
]
colours :: [String]
colours =
[ "black"
, "blue"
, "brown"
, "gold"
, "golden"
, "green"
, "grey"
, "orange"
, "pink"
, "purple"
, "red"
, "silver"
, "yellow"
, "white"
]
places :: [String]
places =
[ "apartment"
, "building"
, "bank"
, "bookstore"
, "building"
, "cafe"
, "cafeteria"
, "castle"
, "cinema"
, "clinic"
, "club"
, "college"
, "cottage"
, "department"
, "store"
, "disco"
, "elevator"
, "exit"
, "factory"
, "flat"
, "gallery"
, "garage"
, "hospital"
, "hotel"
, "house"
, "library"
, "lift"
, "museum"
, "office"
, "palace"
, "prison"
, "ruin"
, "school"
, "shop"
, "sports"
, "stadium"
, "supermarket"
, "swimming"
, "tourist"
, "information"
, "centre"
, "tower"
, "university"
, "area"
, "bay"
, "beach"
, "campsite"
, "canal"
, "cliff"
, "desert"
, "earth"
, "farm"
, "field"
, "forest"
, "harbour"
, "hill"
, "island"
, "lake"
, "land"
, "mountain"
, "ocean"
, "path"
, "port"
, "railway"
, "rainforest"
, "region"
, "river"
, "rock"
, "sand"
, "scenery"
, "sea"
, "seaside"
, "sky"
, "stream"
, "valley"
, "village"
, "waterfall"
, "wood"
, "airport"
, "bridge"
, "cashpoint"
, "corner"
, "crossing"
, "crossroads"
, "fountain"
, "market"
, "motorway"
, "monument"
, "park"
, "pavement"
, "playground"
, "road"
, "roundabout"
, "route"
, "signpost"
, "square"
, "station"
, "street"
, "subway"
, "town"
, "tunnel"
, "turning"
, "underground"
, "zoo"
, "bank"
, "cafeteria"
, "cinema"
, "dentist"
, "doctor"
, "gallery"
, "garage"
, "hairdresser"
, "hotel"
, "library"
, "museum"
, "restaurant"
, "theatre"
]
time :: [String]
time =
[ "afternoon"
, "appointment"
, "autumn"
, "birthday"
, "century"
, "clock"
, "daily"
, "date"
, "day"
, "diary"
, "evening"
, "half"
, "holidays"
, "hour"
, "january"
, "february"
, "march"
, "april"
, "may"
, "june"
, "july"
, "august"
, "september"
, "october"
, "november"
, "december"
, "meeting"
, "midnight"
, "minute"
, "moment"
, "monday"
, "tuesday"
, "wednesday"
, "thursday"
, "friday"
, "saturday"
, "sunday"
, "month"
, "monthly"
, "morning"
, "night"
, "noon"
, "clock"
, "past"
, "quarter"
, "second"
, "spring"
, "summer"
, "time"
, "today"
, "tomorrow"
, "tonight"
, "week"
, "weekday"
, "weekend"
, "weekly"
, "winter"
, "year"
, "yesterday"
]
weather :: [String]
weather =
[ "blow"
, "breeze"
, "centigrade"
, "cloud"
, "cloudy"
, "cold"
, "cool"
, "degrees"
, "dry"
, "forecast"
, "fog"
, "foggy"
, "freezing"
, "frozen"
, "gale"
, "heat"
, "hot"
, "humid"
, "ice"
, "icy"
, "lightning"
, "mild"
, "rain"
, "shower"
, "snow"
, "snowfall"
, "storm"
, "sun"
, "sunny"
, "sunshine"
, "temperature"
, "thunder"
, "storm"
, "warm"
, "weather"
, "wet"
, "wind"
, "windy"
]
misc :: [String]
misc =
[ "able"
, "about"
, "account"
, "acid"
, "across"
, "act"
, "addition"
, "adjustment"
, "advertisement"
, "after"
, "again"
, "against"
, "agreement"
, "air"
, "all"
, "almost"
, "among"
, "amount"
, "amusement"
, "and"
, "angle"
, "angry"
, "animal"
, "answer"
, "ant"
, "any"
, "apparatus"
, "apple"
, "approval"
, "arch"
, "argument"
, "arm"
, "army"
, "art"
, "attack"
, "attempt"
, "attention"
, "attraction"
, "authority"
, "automatic"
, "awake"
, "baby"
, "back"
, "bad"
, "bag"
, "balance"
, "ball"
, "band"
, "base"
, "basin"
, "basket"
, "bath"
, "beautiful"
, "because"
, "bed"
, "bee"
, "before"
, "behaviour"
, "belief"
, "bell"
, "bent"
, "berry"
, "between"
, "bird"
, "birth"
, "bit"
, "bite"
, "bitter"
, "black"
, "blade"
, "blood"
, "blow"
, "blue"
, "board"
, "boat"
, "body"
, "boiling"
, "bone"
, "book"
, "boot"
, "bottle"
, "box"
, "boy"
, "brain"
, "brake"
, "branch"
, "brass"
, "bread"
, "breath"
, "brick"
, "bridge"
, "bright"
, "broken"
, "brother"
, "brown"
, "brush"
, "bucket"
, "building"
, "bulb"
, "burn"
, "burst"
, "business"
, "but"
, "butter"
, "button"
, "cake"
, "camera"
, "canvas"
, "card"
, "care"
, "carriage"
, "cart"
, "cat"
, "cause"
, "certain"
, "chain"
, "chalk"
, "chance"
, "change"
, "cheap"
, "cheese"
, "chemical"
, "chest"
, "chief"
, "chin"
, "church"
, "circle"
, "clean"
, "clear"
, "clock"
, "cloth"
, "cloud"
, "coal"
, "coat"
, "cold"
, "collar"
, "colour"
, "comb"
, "come"
, "comfort"
, "committee"
, "common"
, "company"
, "comparison"
, "competition"
, "complete"
, "complex"
, "condition"
, "connection"
, "conscious"
, "control"
, "cook"
, "copper"
, "copy"
, "cord"
, "cork"
, "cotton"
, "cough"
, "country"
, "cover"
, "cow"
, "crack"
, "credit"
, "crime"
, "cruel"
, "crush"
, "cry"
, "cup"
, "cup"
, "current"
, "curtain"
, "curve"
, "cushion"
, "damage"
, "danger"
, "dark"
, "daughter"
, "day"
, "dead"
, "dear"
, "death"
, "debt"
, "decision"
, "deep"
, "degree"
, "delicate"
, "dependent"
, "design"
, "desire"
, "destruction"
, "detail"
, "development"
, "different"
, "digestion"
, "direction"
, "dirty"
, "discovery"
, "discussion"
, "disease"
, "disgust"
, "distance"
, "distribution"
, "division"
, "dog"
, "door"
, "doubt"
, "down"
, "drain"
, "drawer"
, "dress"
, "drink"
, "driving"
, "drop"
, "dry"
, "dust"
, "ear"
, "early"
, "earth"
, "east"
, "edge"
, "education"
, "effect"
, "egg"
, "elastic"
, "electric"
, "end"
, "engine"
, "enough"
, "equal"
, "error"
, "even"
, "event"
, "ever"
, "every"
, "example"
, "exchange"
, "existence"
, "expansion"
, "experience"
, "expert"
, "eye"
, "face"
, "fact"
, "fall"
, "false"
, "family"
, "far"
, "farm"
, "fat"
, "father"
, "fear"
, "feather"
, "feeble"
, "feeling"
, "female"
, "fertile"
, "fiction"
, "field"
, "fight"
, "finger"
, "fire"
, "first"
, "fish"
, "fixed"
, "flag"
, "flame"
, "flat"
, "flight"
, "floor"
, "flower"
, "fly"
, "fold"
, "food"
, "foolish"
, "foot"
, "for"
, "force"
, "fork"
, "form"
, "forward"
, "fowl"
, "frame"
, "free"
, "frequent"
, "friend"
, "from"
, "front"
, "fruit"
, "full"
, "future"
, "garden"
, "general"
, "get"
, "girl"
, "give"
, "glass"
, "glove"
, "goat"
, "gold"
, "good"
, "government"
, "grain"
, "grass"
, "great"
, "green"
, "grey"
, "grip"
, "group"
, "growth"
, "guide"
, "gun"
, "hair"
, "hammer"
, "hand"
, "hanging"
, "happy"
, "harbour"
, "hard"
, "harmony"
, "hat"
, "hate"
, "have"
, "head"
, "healthy"
, "hear"
, "hearing"
, "heart"
, "heat"
, "help"
, "high"
, "history"
, "hole"
, "hollow"
, "hook"
, "hope"
, "horn"
, "horse"
, "hospital"
, "hour"
, "house"
, "how"
, "humour"
, "ice"
, "idea"
, "ill"
, "important"
, "impulse"
, "increase"
, "industry"
, "ink"
, "insect"
, "instrument"
, "insurance"
, "interest"
, "invention"
, "iron"
, "island"
, "jelly"
, "jewel"
, "join"
, "journey"
, "judge"
, "jump"
, "keep"
, "kettle"
, "key"
, "kick"
, "kind"
, "kiss"
, "knee"
, "knife"
, "knot"
, "knowledge"
, "land"
, "language"
, "last"
, "late"
, "laugh"
, "law"
, "lead"
, "leaf"
, "learning"
, "leather"
, "left"
, "leg"
, "let"
, "letter"
, "level"
, "library"
, "lift"
, "light"
, "like"
, "limit"
, "line"
, "linen"
, "lip"
, "liquid"
, "list"
, "little"
, "living"
, "lock"
, "long"
, "look"
, "loose"
, "loss"
, "loud"
, "love"
, "low"
, "machine"
, "make"
, "male"
, "man"
, "manager"
, "map"
, "mark"
, "market"
, "married"
, "mass"
, "match"
, "material"
, "may"
, "meal"
, "measure"
, "meat"
, "medical"
, "meeting"
, "memory"
, "metal"
, "middle"
, "military"
, "milk"
, "mind"
, "mine"
, "minute"
, "mist"
, "mixed"
, "money"
, "monkey"
, "month"
, "moon"
, "morning"
, "mother"
, "motion"
, "mountain"
, "mouth"
, "move"
, "much"
, "muscle"
, "music"
, "nail"
, "name"
, "narrow"
, "nation"
, "natural"
, "near"
, "necessary"
, "neck"
, "need"
, "needle"
, "nerve"
, "net"
, "new"
, "news"
, "night"
, "noise"
, "normal"
, "north"
, "nose"
, "not"
, "note"
, "now"
, "number"
, "nut"
, "observation"
, "off"
, "offer"
, "office"
, "oil"
, "old"
, "only"
, "open"
, "operation"
, "opinion"
, "opposite"
, "orange"
, "order"
, "organization"
, "ornament"
, "other"
, "out"
, "oven"
, "over"
, "owner"
, "page"
, "pain"
, "paint"
, "paper"
, "parallel"
, "parcel"
, "part"
, "past"
, "paste"
, "payment"
, "peace"
, "pen"
, "pencil"
, "person"
, "physical"
, "picture"
, "pig"
, "pin"
, "pipe"
, "place"
, "plane"
, "plant"
, "plate"
, "play"
, "please"
, "pleasure"
, "plough"
, "pocket"
, "point"
, "poison"
, "polish"
, "political"
, "poor"
, "porter"
, "position"
, "possible"
, "pot"
, "potato"
, "powder"
, "power"
, "present"
, "price"
, "print"
, "prison"
, "private"
, "probable"
, "process"
, "produce"
, "profit"
, "property"
, "prose"
, "protest"
, "public"
, "pull"
, "pump"
, "punishment"
, "purpose"
, "push"
, "put"
, "quality"
, "question"
, "quick"
, "quiet"
, "quite"
, "rail"
, "rain"
, "range"
, "rat"
, "rate"
, "ray"
, "reaction"
, "reading"
, "ready"
, "reason"
, "receipt"
, "record"
, "red"
, "regret"
, "regular"
, "relation"
, "religion"
, "representative"
, "request"
, "respect"
, "responsible"
, "rest"
, "reward"
, "rhythm"
, "rice"
, "right"
, "ring"
, "river"
, "road"
, "rod"
, "roll"
, "roof"
, "room"
, "root"
, "rough"
, "round"
, "rub"
, "rule"
, "run"
, "sad"
, "safe"
, "sail"
, "salt"
, "same"
, "sand"
, "say"
, "scale"
, "school"
, "science"
, "scissors"
, "screw"
, "sea"
, "seat"
, "second"
, "secret"
, "secretary"
, "see"
, "seed"
, "seem"
, "selection"
, "self"
, "send"
, "sense"
, "separate"
, "serious"
, "servant"
, "sex"
, "shade"
, "shake"
, "shame"
, "sharp"
, "sheep"
, "shelf"
, "ship"
, "shirt"
, "shock"
, "shoe"
, "short"
, "shut"
, "side"
, "sign"
, "silk"
, "silver"
, "simple"
, "sister"
, "size"
, "skin"
, "skirt"
, "sky"
, "sleep"
, "slip"
, "slope"
, "slow"
, "small"
, "smash"
, "smell"
, "smile"
, "smoke"
, "smooth"
, "snake"
, "sneeze"
, "snow"
, "soap"
, "society"
, "sock"
, "soft"
, "solid"
, "some"
, "son"
, "song"
, "sort"
, "sound"
, "soup"
, "south"
, "space"
, "spade"
, "special"
, "sponge"
, "spoon"
, "spring"
, "square"
, "stage"
, "stamp"
, "star"
, "start"
, "statement"
, "station"
, "steam"
, "steel"
, "stem"
, "step"
, "stick"
, "sticky"
, "stiff"
, "still"
, "stitch"
, "stocking"
, "stomach"
, "stone"
, "stop"
, "store"
, "story"
, "straight"
, "strange"
, "street"
, "stretch"
, "strong"
, "structure"
, "substance"
, "such"
, "sudden"
, "sugar"
, "suggestion"
, "summer"
, "sun"
, "support"
, "surprise"
, "sweet"
, "swim"
, "system"
, "table"
, "tail"
, "take"
, "talk"
, "tall"
, "taste"
, "tax"
, "teaching"
, "tendency"
, "test"
, "than"
, "that"
, "the"
, "then"
, "theory"
, "there"
, "thick"
, "thin"
, "thing"
, "this"
, "thought"
, "thread"
, "throat"
, "through"
, "through"
, "thumb"
, "thunder"
, "ticket"
, "tight"
, "till"
, "time"
, "tin"
, "tired"
, "toe"
, "together"
, "tomorrow"
, "tongue"
, "tooth"
, "top"
, "touch"
, "town"
, "trade"
, "train"
, "transport"
, "tray"
, "tree"
, "trick"
, "trouble"
, "trousers"
, "true"
, "turn"
, "twist"
, "umbrella"
, "under"
, "unit"
, "use"
, "value"
, "verse"
, "very"
, "vessel"
, "view"
, "violent"
, "voice"
, "waiting"
, "walk"
, "wall"
, "war"
, "warm"
, "wash"
, "waste"
, "watch"
, "water"
, "wave"
, "wax"
, "way"
, "weather"
, "week"
, "weight"
, "well"
, "west"
, "wet"
, "wheel"
, "when"
, "where"
, "while"
, "whip"
, "whistle"
, "white"
, "who"
, "why"
, "wide"
, "will"
, "wind"
, "window"
, "wine"
, "wing"
, "winter"
, "wire"
, "wise"
, "with"
, "woman"
, "wood"
, "wool"
, "word"
, "work"
, "worm"
, "wound"
, "writing"
, "wrong"
, "year"
, "yellow"
, "yes"
, "yesterday"
, "you"
, "young"
]