MathGroup Archive 2007

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

Search the Archive

Completely frivolous use of new v6 Mathematica commands



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