curse.kt

/*****************************************************************************
* Shakespearian Curse Generator -- Based on lists compiled by Jerry Maguire, *
*     English teacher at Center Grove High School in Greenwood, Indiana.     *
* Public domain implementations by Trevor Stone http://trevorstone.org/curse *
*****************************************************************************/

class WordList(val words: List<String>) {
  fun randomWord() = words.random()
}

val adjectives1 = WordList(listOf("artless", "bawdy",
  "beslubbering", "bootless", "brazen", "churlish", "cockered", "clouted",
  "craven", "currish", "dankish", "dissembling", "distempered", "droning",
  "errant", "fawning", "fitful", "fobbing", "froward", "frothy", "gleeking",
  "gnarling", "goatish", "gorbellied", "greasy", "grizzled", "haughty",
  "hideous", "impertinent", "infectious", "jaded", "jarring", "knavish", "lewd",
  "loggerheaded", "lumpish", "mammering", "mangled", "mewling", "paunchy",
  "peevish", "pernicious", "prating", "pribbling", "puking", "puny", "purpled",
  "quailing", "queasy", "rank", "reeky", "roguish", "roynish", "ruttish",
  "saucy", "sottish", "spleeny", "spongy", "surly", "tottering", "unmuzzled",
  "vacant", "vain", "venomed", "villainous", "waggish", "wanton", "warped",
  "wayward", "weedy", "wenching", "whoreson", "yeasty"))

val adjectives2 = WordList(listOf("base-court", "bat-fowling",
  "beef-witted", "beetle-headed", "boil-brained", "bunched-backed",
  "clapper-clawed", "clay-brained", "common-kissing", "crook-pated",
  "dismal-dreaming", "dizzy-eyed", "dog-hearted", "dread-bolted",
  "earth-vexing", "elf-skinned", "empty-hearted", "evil-eyed", "eye-offending",
  "fat-kidneyed", "fen-sucked", "flap-mouthed", "fly-bitten", "folly-fallen",
  "fool-born", "full-gorged", "guts-griping", "half-faced", "hasty-witted",
  "heavy-handed", "hedge-born", "hell-hated", "horn-mad", "idle-headed",
  "ill-breeding", "ill-composed", "ill-nurtured", "iron-witted", "knotty-pated",
  "lean-witted", "lily-livered", "mad-bread", "milk-livered", "motley-minded",
  "muddy-mettled", "onion-eyed", "pale-hearted", "paper-faced", "pinch-spotted",
  "plume-plucked", "pottle-deep", "pox-marked", "raw-boned", "reeling-ripe",
  "rough-hewn", "rude-growing", "rug-headed", "rump-fed", "shag-eared",
  "shard-borne", "sheep-biting", "shrill-gorged", "spur-galled", "sour-faced",
  "swag-bellied", "tardy-gaited", "tickle-brained", "toad-spotted",
  "unchin-snouted", "weak-hinged", "weather-bitten", "white-livered"))

val nouns = WordList(listOf("apple-john", "baggage", "barnacle",
  "bladder", "boar-pig", "bugbear", "bum-bailey", "canker-blossom",
  "clack-dish", "clotpole", "coxcomb", "codpiece", "crutch", "cutpurse",
  "death-token", "dewberry", "dogfish", "egg-shell", "flap-dragon",
  "flax-wench", "flirt-gill", "foot-licker", "fustilarian", "giglet", "gudgeon",
  "gull-catcher", "haggard", "harpy", "hedge-pig", "hempseed", "horn-beast",
  "hugger-mugger", "jack-a-nape", "jolthead", "lewdster", "lout", "maggot-pie",
  "malignancy", "malkin", "malt-worm", "mammet", "manikin", "measle", "minimus",
  "minnow", "miscreant", "moldwarp", "mumble-news", "nut-hook", "pantaloon",
  "pigeon-egg", "pignut", "puttock", "pumpion", "rabbit-sucker", "rampallion",
  "ratsbane", "remnant", "rudesby", "ruffian", "scantling", "scullion", "scut",
  "skainsmate", "snipe", "strumpet", "varlot", "vassal", "waterfly",
  "whey-face", "whipster", "wagtail", "younker"))

fun curse(): String {
  val adjective1 = adjectives1.randomWord()
  val adjective2 = adjectives2.randomWord()
  val noun = nouns.randomWord()
  return "Thou ${adjective1} ${adjective2} ${noun}!"
}

fun main(args: Array<String>) {
  var count = if (args.isEmpty()) {
    print("Number of curses: ")
    readLine()?.toIntOrNull()
  } else {
    args[0].toIntOrNull()
  } ?: 0
  generateSequence(::curse).take(count).forEach(::println);
}