Group Abstract

Message Boards

45.1K Views

10 Replies

40 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Staff Picks Recreation Social Science Curated Data Computational Linguistics Natural Language Processing Computational Humanities Societies and Civilizations

Posted 11 years ago

POSTED BY: Jesse Friedman

10 Replies

Sort By:

Posted 11 years ago

Here's another way to get rhyming words: WolframAlpha["word", {{"Rhyme:WordData", 1}, "ComputableData"}] You can get lexically similar words with: WolframAlpha["word", {{"LexicallyCloseWords:WordData", 1}, "ComputableData"}] And, for puns, may want a supply of homophones: WolframAlpha["where", {{"Homophones:WordData", 1}, "ComputableData"}] With some words, to get this to work, you need to specify that the input is a word: WolframAlpha["see", {{"Homophones:WordData", 1}, "ComputableData"}, InputAssumptions -> {"C.see-_Word-"}]

Here's another way to get rhyming words:

WolframAlpha["word", {{"Rhyme:WordData", 1}, "ComputableData"}]

You can get lexically similar words with:

WolframAlpha["word", {{"LexicallyCloseWords:WordData", 1}, 
  "ComputableData"}]

And, for puns, may want a supply of homophones:

WolframAlpha["where", {{"Homophones:WordData", 1}, "ComputableData"}]

With some words, to get this to work, you need to specify that the input is a word:

WolframAlpha["see", {{"Homophones:WordData", 1}, "ComputableData"}, 
 InputAssumptions -> {"*C.see-_*Word-"}]

POSTED BY: Kathryn Cramer

Posted 11 years ago

I like this one for its sheer surreality: What do you call a flame nettle hammer? A coleus malleus.

POSTED BY: Kathryn Cramer

Posted 11 years ago

Q. What do you call a gator bowdlerizer? A. An alligator expurgator. (Joke Type 2 works now, with the correction.)

POSTED BY: Kathryn Cramer

Posted 11 years ago

By the way @Jesse Friedman your post collected 6K views in a single day with most of the traffic coming from Reddit-programming channel where it still occupies the front page with about a 100 votes already. Congratulations!

POSTED BY: Vitaliy Kaurov

Posted 11 years ago

@Jesse Friedman we were playing with friends with your code and I think in this piece: words = # -> {WordData[#, "Hyphenation"], Flatten[WordData[#, "Synonyms"][[All, 2]]]} & /@ WordData[All, part]; the symbol `part` is undefined. Could you add the missing `part` - forgive the pun ;) ?