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&]]
..
|