Skip to content

Instantly share code, notes, and snippets.

@stathissideris
Created January 23, 2015 11:33
Show Gist options
  • Select an option

  • Save stathissideris/f1bced0dfdebdaf488eb to your computer and use it in GitHub Desktop.

Select an option

Save stathissideris/f1bced0dfdebdaf488eb to your computer and use it in GitHub Desktop.
minimized lovecraft cultist text generator by TEttinger
(let[a #(apply str(flatten %))r repeatedly p partition N rand-nth n #(a(N(concat(repeat %"")(mapcat p[1 2 3]%&))))v #(n 0"aioeu""iaai")w(fn[](let[b(n 6"!.""""...")s[(n0"STKNYPKLG""GlThShNyFt""ZvrCth")(r(N[1 2])#(do[(v)(n 9(map str"'-"(r 2 v)))(n 0(concat"lpstnkgx"[(N["h""gl""gr""nd"])(v)])"rlthggghtsltrkkhshng")]))]][b(if(seq b)[" "s][(n 3",")" "(.(as)toLowerCase)])]))](re-find #"[A-Z].+"(a[(r 500 w)"."])))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment