{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE OverloadedStrings #-} module Hedgehog.Corpus ( agile , animals , boats , cats , colours , cooking , fruits , glass , metasyntactic , muppets , nfl , nhl , simpsons , southpark , vegetables , viruses , waters , weather ) where import Data.String (IsString(..)) -- | Collection of cooking related strings cooking :: IsString a => [a] cooking = [ "salted" , "stewed" , "diced" , "filleted" , "sauteed" ] -- | Collection of Muppets muppets :: IsString a => [a] muppets = [ "kermit" , "gonzo" , "fozzy" , "chef" , "statler" , "waldorf" , "beaker" , "animal" ] -- | Collection of Southpark characters southpark :: IsString a => [a] southpark = [ "kyle" , "stan" , "cartman" , "timmy" , "token" , "chef" , "garrison" ] -- | Collection of Simpsons characters simpsons :: IsString a => [a] simpsons = [ "homer" , "marge" , "maggie" , "lisa" , "bart" , "flanders" , "moe" , "barney" ] -- | Collection of viruses viruses :: IsString a => [a] viruses = [ "rotavirus" , "smallpox" , "norovirus" , "chickenpox" , "camelpox" , "dengue" , "echovirus" , "equine morbillivirus" , "gou virus" , "measles" , "monkeypox" ] -- | Collection of colours colours :: IsString a => [a] colours = [ "red" , "green" , "blue" , "yellow" , "black" , "grey" , "purple" , "orange" , "pink" ] -- | Collection of weather conditions weather :: IsString a => [a] weather = [ "dry" , "raining" , "hot" , "humid" , "snowing" , "fresh" , "windy" , "freezing" ] -- | Collection of bodies of water waters :: IsString a => [a] waters = [ "basin" , "bay" , "billabong" , "canal" , "channel" , "creek" , "estuary" , "fjord" , "harbour" , "lake" , "loch" , "marsh" , "ocean" , "pond" , "puddle" , "reservoir" , "river" , "sea" , "slough" , "sound" , "spring" , "stream" , "swamp" , "wetland" ] -- | Collection of types of boats boats :: IsString a => [a] boats = [ "barge" , "battleship" , "canoe" , "catamaran" , "dinghy" , "ferry" , "gondola" , "jetski" , "kayak" , "longship" , "motorboat" , "pontoon" , "powerboat" , "rowboat" , "ship" , "steamboat" , "tanker" , "trawler" , "tugboat" , "yacht" ] -- | Collection of animals animals :: IsString a => [a] animals = [ "alligator" , "ant" , "bear" , "bee" , "bird" , "camel" , "cat" , "cheetah" , "chicken" , "chimpanzee" , "cow" , "crocodile" , "deer" , "dog" , "dolphin" , "duck" , "eagle" , "elephant" , "fish" , "fly" , "fox" , "frog" , "giraffe" , "goat" , "goldfish" , "hamster" , "hippopotamus" , "horse" , "kangaroo" , "kitten" , "lion" , "lobster" , "monkey" , "octopus" , "owl" , "panda" , "pig" , "puppy" , "rabbit" , "rat" , "scorpion" , "seal" , "shark" , "sheep" , "snail" , "snake" , "spider" , "squirrel" , "tiger" , "turtle" , "wolf" , "zebra" ] -- | Collection of vegetables vegetables :: IsString a => [a] vegetables = [ "asparagus" , "beans" , "broccoli" , "cabbage" , "carrot" , "celery" , "corn" , "cucumber" , "eggplant" , "green pepper" , "lettuce" , "onion" , "peas" , "potato" , "pumpkin" , "radish" , "spinach" , "sweet potato" , "tomato" -- Don't be so pedantic! It's a culinary vegetable. , "turnip" ] -- | Collection of fruits fruits :: IsString a => [a] fruits = [ "apple" , "banana" , "cherry" , "grapefruit" , "grapes" , "lemon" , "lime" , "melon" , "orange" , "peach" , "pear" , "persimmon" , "pineapple" , "plum" , "strawberry" , "tangerine" , "tomato" , "watermelon" ] -- | Collection of cats cats :: IsString a => [a] cats = [ "american curl" , "american shorthair" , "angora" , "british shorthair" , "bobtail" , "exotic shorthair" , "himalayan" , "maine coon" , "munchkin" , "norwegian forest" , "persian" , "ragamuffin" , "ragdoll" , "russian blue" , "scottish fold" , "siamese" , "siberian" , "tabby" ] -- | Collection of NHL teams nhl :: IsString a => [a] nhl = [ "Anaheim Ducks" , "Arizona Coyotes" , "Boston Bruins" , "Buffalo Sabres" , "Calgary Flames" , "Carolina Hurricanes" , "Chicago Blackhawks" , "Colorado Avalanche" , "Columbus Blue Jackets" , "Dallas Stars" , "Detroit Red Wings" , "Edmonton Oilers" , "Florida Panthers" , "Los Angeles Kings" , "Minnesota Wild" , "Montréal Canadiens" , "Nashville Predators" , "New Jersey Devils" , "New York Islanders" , "New York Rangers" , "Ottawa Senators" , "Philadelphia Flyers" , "Pittsburgh Penguins" , "San Jose Sharks" , "St. Louis Blues" , "Tampa Bay Lightning" , "Toronto Maple Leafs" , "Vancouver Canucks" , "Vegas Golden Knights" , "Washington Capitals" , "Winnipeg Jets" ] -- | Collection of NFL teams nfl :: IsString a => [a] nfl = [ "Arizona Cardinals" , "Atlanta Falcons" , "Baltimore Ravens" , "Buffalo Bills" , "Carolina Panthers" , "Chicago Bears" , "Cincinnati Bengals" , "Cleveland Browns" , "Dallas Cowboys" , "Denver Broncos" , "Detroit Lions" , "Green Bay Packers" , "Houston Texans" , "Indianapolis Colts" , "Jacksonville Jaguars" , "Kansas City Chiefs" , "Los Angeles Chargers" , "Los Angeles Rams" , "Miami Dolphins" , "Minnesota Vikings" , "New England Patriots" , "New Orleans Saints" , "New York Giants" , "New York Jets" , "Oakland Raiders" , "Philadelphia Eagles" , "Pittsburgh Steelers" , "San Francisco 49ers" , "Seattle Seahawks" , "Tampa Bay Buccaneers" , "Tennessee Titans" , "Washington Redskins" ] -- | Collection of agiles agile :: IsString a => [a] agile = [ "agile" , "backlog" , "burn-down chart" , "decisioning" , "epic" , "extreme programming" , "governance" , "information radiator" , "kanban" , "lean" , "pair programming" , "planning poker" , "product owner" , "retrospective" , "scrum" , "scrum master" , "spike" , "sprint" , "standup" , "story points" , "test driven" , "user story" , "velocity" , "vertical slice" ] -- | Collection of . metasyntactic :: IsString a => [a] metasyntactic = [ "foo" , "bar" , "baz" , "qux" , "quux" , "quuz" , "corge" , "grault" , "garply" , "waldo" , "fred" , "plugh" , "xyzzy" , "thud" ] -- | How to say "I can eat glass, and it doesn't hurt me." in a few different -- languages. -- -- From: http://kermitproject.org/utf8.html -- glass :: IsString a => [a] glass = [ "काचं शक्नोम्यत्तुम् । नोपहिनस्ति माम् ॥" -- Sanskrit , "kācaṃ śaknomyattum; nopahinasti mām." -- Sanskrit (standard transcription) , "ὕαλον ϕαγεῖν δύναμαι· τοῦτο οὔ με βλάπτει." -- Classical Greek , "Μπορώ να φάω σπασμένα γυαλιά χωρίς να πάθω τίποτα." -- Greek (monotonic) , "Μπορῶ νὰ φάω σπασμένα γυαλιὰ χωρὶς νὰ πάθω τίποτα. " -- Greek (polytonic) , "Vitrum edere possum; mihi non nocet." -- Latin , "Je puis mangier del voirre. Ne me nuit." -- Old French , "Je peux manger du verre, ça ne me fait pas mal." -- French , "Pòdi manjar de veire, me nafrariá pas." -- Provençal / Occitan , "J'peux manger d'la vitre, ça m'fa pas mal." -- Québécois , "Dji pou magnî do vêre, çoula m' freut nén må. " -- Walloon , "Ch'peux mingi du verre, cha m'foé mie n'ma. " -- Picard , "Mwen kap manje vè, li pa blese'm." -- Kreyòl Ayisyen (Haitï) , "Kristala jan dezaket, ez dit minik ematen." -- Basque , "Puc menjar vidre, que no em fa mal." -- Catalan / Català , "Puedo comer vidrio, no me hace daño." -- Spanish , "Puedo minchar beire, no me'n fa mal . " -- Aragonés , "Eu podo xantar cristais e non cortarme." -- Galician , "Posso comer vidro, não me faz mal." -- European Portuguese , "Posso comer vidro, não me machuca." -- Brazilian Portuguese , "M' podê cumê vidru, ca ta maguâ-m '." --Caboverdiano/Kabuverdianu (Cape Verde) , "Ami por kome glas anto e no ta hasimi daño." -- Papiamentu , "Posso mangiare il vetro e non mi fa male." -- Italian , "Sôn bôn de magnà el véder, el me fa minga mal." -- Milanese , "Me posso magna' er vetro, e nun me fa male." -- Roman , "M' pozz magna' o'vetr, e nun m' fa mal." -- Napoletano , "Mi posso magnare el vetro, no'l me fa mae." -- Venetian , "Pòsso mangiâ o veddro e o no me fà mâ." -- Zeneise (Genovese) , "Puotsu mangiari u vitru, nun mi fa mali. " -- Sicilian , "Jau sai mangiar vaider, senza che quai fa donn a mai. " -- Romansch (Grischun) , "Pot să mănânc sticlă și ea nu mă rănește." -- Romanian , "Mi povas manĝi vitron, ĝi ne damaĝas min. " -- Esperanto , "Mý a yl dybry gwéder hag éf ny wra ow ankenya." -- Cornish , "Dw i'n gallu bwyta gwydr, 'dyw e ddim yn gwneud dolur i mi." -- Welsh , "Foddym gee glonney agh cha jean eh gortaghey mee." -- Manx Gaelic , "᚛᚛ᚉᚑᚅᚔᚉᚉᚔᚋ ᚔᚈᚔ ᚍᚂᚐᚅᚑ ᚅᚔᚋᚌᚓᚅᚐ᚜" -- Old Irish (Ogham) , "Con·iccim ithi nglano. Ním·géna." -- Old Irish (Latin) , "Is féidir liom gloinne a ithe. Ní dhéanann sí dochar ar bith dom." -- Irish , "Ithim-s a gloine agus ní miste damh é." --Ulster Gaelic , "S urrainn dhomh gloinne ithe; cha ghoirtich i mi." -- Scottish Gaelic , "ᛁᚳ᛫ᛗᚨᚷ᛫ᚷᛚᚨᛋ᛫ᛖᚩᛏᚪᚾ᛫ᚩᚾᛞ᛫ᚻᛁᛏ᛫ᚾᛖ᛫ᚻᛖᚪᚱᛗᛁᚪᚧ᛫ᛗᛖ᛬" -- Anglo-Saxon (Runes) , "Ic mæg glæs eotan ond hit ne hearmiað me." -- Anglo-Saxon (Latin) , "Ich canne glas eten and hit hirtiþ me nouȝt." -- Middle English , "I can eat glass and it doesn't hurt me." -- English , "[aɪ kæn iːt glɑːs ænd ɪt dɐz nɒt hɜːt miː]" -- English (IPA) , "⠊⠀⠉⠁⠝⠀⠑⠁⠞⠀⠛⠇⠁⠎⠎⠀⠁⠝⠙⠀⠊⠞⠀⠙⠕⠑⠎⠝⠞⠀⠓⠥⠗⠞⠀⠍⠑" -- English (Braille) , "Mi kian niam glas han i neba hot mi." -- Jamaican , "Ah can eat gless, it disnae hurt us. " -- Lalland Scots / Doric , "𐌼𐌰𐌲 𐌲𐌻𐌴𐍃 𐌹̈𐍄𐌰𐌽, 𐌽𐌹 𐌼𐌹𐍃 𐍅𐌿 𐌽𐌳𐌰𐌽 𐌱𐍂𐌹𐌲𐌲𐌹𐌸." -- Gothic , "ᛖᚴ ᚷᛖᛏ ᛖᛏᛁ ᚧ ᚷᛚᛖᚱ ᛘᚾ ᚦᛖᛋᛋ ᚨᚧ ᚡᛖ ᚱᚧᚨ ᛋᚨᚱ" -- Old Norse (Runes) , "Ek get etið gler án þess að verða sár." -- Old Norse (Latin) , "Eg kan eta glas utan å skada meg." -- Norsk / Norwegian (Nynorsk) , "Jeg kan spise glass uten å skade meg." -- Norsk / Norwegian (Bokmål) , "Eg kann eta glas, skaðaleysur." -- Føroyskt / Faroese , "Ég get etið gler án þess að meiða mig." -- Íslenska / Icelandic , "Jag kan äta glas utan att skada mig." -- Svenska / Swedish , "Jeg kan spise glas, det gør ikke ondt på mig." -- Dansk / Danish , "Æ ka æe glass uhen at det go mæ naue." -- Sønderjysk , "Ik kin glês ite, it docht me net sear." -- Frysk / Frisian , "Ik kan glas eten, het doet mij geen kwaad." -- Nederlands / Dutch , "Iech ken glaas èèse, mer 't deet miech jing pieng." -- Kirchröadsj/Bôchesserplat , "Ek kan glas eet, maar dit doen my nie skade nie." -- Afrikaans , "Ech kan Glas iessen, daat deet mir nët wei." -- Lëtzebuergescht / Luxemburgish , "Ich kann Glas essen, ohne mir zu schaden." -- Deutsch / German , "Ich kann Glas verkasematuckeln, ohne dattet mich wat jucken tut." -- Ruhrdeutsch , "Isch kann Jlaas kimmeln, uuhne datt mich datt weh dääd." -- Langenfelder Platt , "Ich koann Gloos assn und doas dudd merr ni wii." -- Lausitzer Mundart ("Lusatian") , "Iech konn glaasch voschbachteln ohne dass es mir ebbs daun doun dud." -- Odenwälderisch , "'sch kann Glos essn, ohne dass'sch mer wehtue." -- Sächsisch / Saxon , "Isch konn Glass fresse ohne dasses mer ebbes ausmache dud." -- Pfälzisch , "I kå Glas frässa, ond des macht mr nix!" -- Schwäbisch / Swabian , "I ka glas eassa, ohne dass mar weh tuat." -- Deutsch (Voralberg) , "I koh Glos esa, und es duard ma ned wei." -- Bayrisch / Bavarian , "I kaun Gloos essen, es tuat ma ned weh." -- Allemannisch , "Ich chan Glaas ässe, das schadt mir nöd." -- Schwyzerdütsch (Zürich) , "Ech cha Glâs ässe, das schadt mer ned. " -- Schwyzerdütsch (Luzern) , "Meg tudom enni az üveget, nem lesz tőle bajom." -- Hungarian , "Voin syödä lasia, se ei vahingoita minua." -- Suomi / Finnish , "Sáhtán borrat lása, dat ii leat bávččas." -- Sami (Northern) , "Мон ярсан суликадо, ды зыян эйстэнзэ а ули." -- Erzian , "Mie voin syvvä lasie ta minla ei ole kipie." -- Northern Karelian , "Minä voin syvvä st'oklua dai minule ei ole kibie. " -- Southern Karelian , "Ma võin klaasi süüa, see ei tee mulle midagi." -- Estonian , "Es varu ēst stiklu, tas man nekaitē." -- Latvian , "Aš galiu valgyti stiklą ir jis manęs nežeidžia " -- Lithuanian , "Mohu jíst sklo, neublíží mi." -- Czech , "Môžem jesť sklo. Nezraní ma." -- Slovak , "Mogę jeść szkło i mi nie szkodzi." -- Polska / Polish , "Lahko jem steklo, ne da bi mi škodovalo." -- Slovenian , "Ja mogu jesti staklo, i to mi ne šteti." -- Bosnian, Croatian, Montenegrin and Serbian (Latin) , "Ја могу јести стакло, и то ми не штети." -- Bosnian, Montenegrin and Serbian (Cyrillic) , "Можам да јадам стакло, а не ме штета." -- Macedonian , "Я могу есть стекло, оно мне не вредит." -- Russian , "Я магу есці шкло, яно мне не шкодзіць." -- Belarusian (Cyrillic) , "Ja mahu jeści škło, jano mne ne škodzić." -- Belarusian (Lacinka) , "Я можу їсти скло, і воно мені не зашкодить." -- Ukrainian , "Мога да ям стъкло, то не ми вреди." -- Bulgarian , "მინას ვჭამ და არა მტკივა." -- Georgian , "Կրնամ ապակի ուտել և ինծի անհանգիստ չըներ։" -- Armenian , "Unë mund të ha qelq dhe nuk më gjen gjë." -- Albanian , "Cam yiyebilirim, bana zararı dokunmaz." -- Turkish , "جام ييه بلورم بڭا ضررى طوقونمز" -- Turkish (Ottoman) , "Men shisha yeyishim mumkin, ammo u menga zarar keltirmaydi." -- Uzbek / O’zbekcha (Roman) , "Мен шиша ейишим мумкин, аммо у менга зарар келтирмайди." -- Uzbek / Ўзбекча (Cyrillic) , "আমি কাঁচ খেতে পারি, তাতে আমার কোনো ক্ষতি হয় না।" -- Bangla / Bengali , "मी काच खाऊ शकतो, मला ते दुखत नाही." -- Marathi , "ನನಗೆ ಹಾನಿ ಆಗದೆ, ನಾನು ಗಜನ್ನು ತಿನಬಹುದು" -- Kannada , "मैं काँच खा सकता हूँ और मुझे उससे कोई चोट नहीं पहुंचती." -- Hindi , "എനിക്ക് ഗ്ലാസ് തിന്നാം. അതെന്നെ വേദനിപ്പിക്കില്ല." -- Malayam , "நான் கண்ணாடி சாப்பிடுவேன், அதனால் எனக்கு ஒரு கேடும் வராது." -- Tamil , "నేను గాజు తినగలను మరియు అలా చేసినా నాకు ఏమి ఇబ్బంది లేదు" -- Telugu , "මට වීදුරු කෑමට හැකියි. එයින් මට කිසි හානියක් සිදු නොවේ." -- Sinhalese , "میں کانچ کھا سکتا ہوں اور مجھے تکلیف نہیں ہوتی ۔" -- Urdu , "زه شيشه خوړلې شم، هغه ما نه خوږوي" -- Pashto , ".من می توانم بدونِ احساس درد شيشه بخورم" -- Farsi / Persian , "أنا قادر على أكل الزجاج و هذا لا يؤلمني. " -- Arabic , "Nista' niekol il-ħ ġieġ u ma jagħmilli xejn." --Maltese , "אני יכול לאכול זכוכית וזה לא מזיק לי." -- Hebrew , "איך קען עסן גלאָז און עס טוט מיר נישט װײ. " -- Yiddish , "Metumi awe tumpan, ɜnyɜ me hwee." -- Twi , "Inā iya taunar gilāshi kuma in gamā lāfiyā." -- Hausa (Latin) , "إِنا إِىَ تَونَر غِلَاشِ كُمَ إِن غَمَا لَافِىَا" -- Hausa (Ajami) , "Mo lè je̩ dígí, kò ní pa mí lára." -- Yoruba , "Nakokí kolíya biténi bya milungi, ekosála ngáí mabé tɛ́." -- Lingala , "Naweza kula bilauri na sikunyui." -- (Ki)Swahili , "Saya boleh makan kaca dan ia tidak mencederakan saya." -- Malay , "Kaya kong kumain nang bubog at hindi ako masaktan." -- Tagalog , "Siña yo' chumocho krestat, ti ha na'lalamen yo'." -- Chamorro , "Au rawa ni kana iloilo, ia au sega ni vakacacani kina." -- Fijian , "Aku isa mangan beling tanpa lara." -- Javanese , "က္ယ္ဝန္တော္၊က္ယ္ဝန္မ မ္ယက္စားနုိင္သည္။ ၎က္ရောင္ ထိခုိက္မ္ဟု မရ္ဟိပာ။" -- Burmese (Unicode 4.0) , "ကျွန်တော် ကျွန်မ မှန်စားနိုင်တယ်။ ၎င်းကြောင့် ထိခိုက်မှုမရှိပါ။" -- Burmese (Unicode 5.0) , "Tôi có thể ăn thủy tinh mà không hại gì." -- Vietnamese (quốc ngữ) , "些 𣎏 世 咹 水 晶 𦓡 空 𣎏 害 咦" -- Vietnamese (nôm) , "ខ្ញុំអាចញុំកញ្ចក់បាន ដោយគ្មានបញ្ហារ" -- Khmer , "ຂອ້ຍກິນແກ້ວໄດ້ໂດຍທີ່ມັນບໍ່ໄດ້ເຮັດໃຫ້ຂອ້ຍເຈັບ." -- Lao , "ฉันกินกระจกได้ แต่มันไม่ทำให้ฉันเจ็บ" -- Thai , "Би шил идэй чадна, надад хортой биш" -- Mongolian (Cyrillic) , "ᠪᠢ ᠰᠢᠯᠢ ᠢᠳᠡᠶᠦ ᠴᠢᠳᠠᠨᠠ ᠂ ᠨᠠᠳᠤᠷ ᠬᠣᠤᠷᠠᠳᠠᠢ ᠪᠢᠰᠢ " -- Mongolian (Classic) , "म काँच खान सक्छू र मलाई केहि नी हुन्न् ।" -- Nepali , "ཤེལ་སྒོ་ཟ་ནས་ང་ན་གི་མ་རེད།" -- Tibetan , "我能吞下玻璃而不伤身体。" -- Chinese , "我能吞下玻璃而不傷身體。" -- Chinese (Traditional) , "Góa ē-t àng chia̍h po-lê, mā bē tio̍h-siong." -- Taiwanese , "私はガラスを食べられます。それは私を傷つけません。" -- Japanese , "나는 유리를 먹을 수 있어요. 그래도 아프지 않아요" -- Korean , "Mi save kakae glas, hemi no save katem mi." -- Bislama , "Hiki iaʻu ke ʻai i ke aniani; ʻaʻole nō lā au e ʻeha." -- Hawaiian , "E koʻana e kai i te karahi, mea ʻā, ʻaʻe hauhau." -- Marquesan , "ᐊᓕᒍᖅ ᓂᕆᔭᕌᖓᒃᑯ ᓱᕋᙱᑦᑐᓐᓇᖅᑐᖓ" -- Inuktitut , "Naika məkmək kakshət labutay, pi weyk ukuk munk-s ik nay." --Chinook Jargon , "Tsésǫʼ yishą́ągo bííníshghah dóó doo shił neezgai da. " -- Navajo , "mi kakne le nu citka le blaci .iku'i le se go'i na xrani mi" -- Lojban , "Ljœr ye caudran créneþ ý jor cẃran." -- Nórdicg ]