Aw: Re: Aufgabe::Gib mir Hundert

[h.loehle@XXXXXXX.de]

Hmm -- und wenn ich die Permutationen der Ziffern auch noch berücksichtige, habe ich lediglich 30536303616 Strings zu 
basteln und zu überprüfen. Oh je! Das war wohl nichts.

Enttäuschte Grüße,
Peter


----- Original Nachricht ----
Von:     Peter Pein <petsie@XXXXXXX.de>
An:      "demug@XXXXXXX.ch" <demug@XXXXXXX.ch>
Datum:   09.03.2008 19:27
Betreff: Re: Aufgabe::Gib mir Hundert

> Das kann doch geradewegs getippselt werden:
> 
> In[1]:=
> test[n_]:=Block[{ziffern=Subsets[ToString/@Range[9],{n}],
>       operatoren=Tuples[{"+","-","*","/"},n-1]},
>     Select[
>      
> Flatten[Outer[StringJoin@@Flatten[{Transpose[{Most[#1],#2}],Last[#1]}]&,
>           ziffern,operatoren,1]],ToExpression[#]==100&]]
..