Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

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






  • Prev by Date: another thought re Documentation Center vs. The Book
  • Next by Date: Re: Printing Settings > Headers and Footers, broken?
  • Previous by thread: another thought re Documentation Center vs. The Book
  • Next by thread: Re: Completely frivolous use of new v6 Mathematica