Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Completely frivolous use of new v6 Mathematica commands

• To: mathgroup at smc.vnet.net
• Subject: [mg80239] Completely frivolous use of new v6 Mathematica commands
• From: Luci Ellis <luci at verbeia.com>
• Date: Wed, 15 Aug 2007 04:23:32 -0400 (EDT)

Dear MathGroup,

So, my beloved is starting to learn German. We had a bit of fun pantomiming

the various prepositions with me, various items of furniture and so on. And

then I realised that the new-in-v6 RandomChoice[] function made "instant

random homework sheets" a snap.



Some of the resulting sentences might be either anatomically impossible or

simply uncomfortable, and I haven't handled the plurals properly, but I

couldn't resist sharing.



prepositionList = {"an", "auf" , "bei", "hinter", "vor", "zwischen" , 



"unter" , "über" , "neben", "in"};





nounList = {"Meerschweinchen", "Bär", "Katze" , "Tische", "Decke", 



"Kissen" };



fillBlank = " _____ ";



verbList = {" ist ", " sind ", " sitzt "};







TableForm[

  Table[StringJoin[fillBlank, RandomChoice[nounList], 



RandomChoice[verbList], RandomChoice[prepositionList], fillBlank, 



RandomChoice[nounList]], {30}, {2}], 

  TableSpacing -> 3]

//TraditionalForm



Cheers,

Luci

• Follow-Ups:
  • Re: Completely frivolous use of new v6 Mathematica
    • From: danl@wolfram.com