Re: Completely frivolous use of new v6 Mathematica commands
- To: mathgroup at smc.vnet.net
- Subject: [mg80260] Re: Completely frivolous use of new v6 Mathematica commands
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 16 Aug 2007 04:41:22 -0400 (EDT)
- Organization: Uni Leipzig
- References: <f9ue39$b59$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
a) it is not frivolous, I make (mathematical) excercises for my son
since he was 5 years old with Mathematica
b) in nounList use only substantives that have the same singular
and plural, i.e. Meerschweinchen, Kissen, Eimer, Feuerloescher,
Brunnen
Regards
Jens
Luci Ellis wrote:
> Dear MathGroup,
>
> So, my beloved is starting to learn German. We had a bit of fun pantomi=
ming
>
> the various prepositions with me, various items of furniture and so on.=
And
>
> then I realised that the new-in-v6 RandomChoice[] function made "instan=
t
>
> 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" , "=FCber" , "neben", "in"};
>
>
>
>
>
> nounList = {"Meerschweinchen", "B=E4r", "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
>
>
>
>
>