At 11:49 07.12.96 EST, you wrote:
>Hallo Mathematica Freunde,
>
>Fuer einen kommenden Artikel in der Macwelt wuerde ich gerne verschiedene
>Problemloesungsmethoden mit Mathematica und anderen Mathematik Programmen, wie
>Maple, MuPAD, MathPlus oder MATLAB zeigen.
>
>Wer hat Spass daran, eine moeglichst kompakt formulierte Loesung folgenden
>Problems zu finden? Es gibt dafuer mehrere Antworten...
>
>EVE/DID=0,TALKTALKTALK....
>
>jedem Buchstaben entspricht eine Zahl und die Zahlen sind zu finden. Achtung
>nach dem = Zeichen steht bereits eine Null, daher sollte keine der gesuchten
>Zahlen mehr eine Null sein.
>
>Viel Spass,
>
>Franz Szabo
>
>==========================================
>FRANZ G. SZABO
>Macwelt
>Computer Mathematician
>Digital Artist, Pipe Sculptor
>Computer and Science Journalist
>Member of Presseclub Concordia Vienna
>Member of the New York Academy of Sciences
>==========================================
>
<<"DiscreteMath`Combinatorica`"
macho=Apply[(101#1+10#2)/(101#3+10#4)&,#]&
101 #1 + 10 #2
Apply[-------------- & , #1] &
101 #3 + 10 #4
(chauv=Flatten[Permutations/@KSubsets[Range[0,9],4],1];)//Timing
{0.43 Second, Null}
(enist=Select[chauv,macho[#]<1&];)//Timing
{4.847 Second, Null}
(pigs=Select[enist,IntegerQ[macho[#] 9999]&];)//Timing
{2.633 Second, Null}
said=Select[pigs,Length@Union[#,IntegerDigits[macho[#] 9999]]==8&]
{{2, 1, 6, 0}, {2, 4, 3, 0}}
eve={#,macho[#],9999 macho[#],N@macho[#]}&/@ said
106 242
{{{2, 1, 6, 0}, ---, 3498, 0.349835}, {{2, 4, 3, 0}, ---, 7986, 0.79868}}
303 303
muss noch schneller können,
(Ich habe erfunden dass mehrere "tests" in Select[list,test] nicht so leicht
zu machen ist ;
wie kann ich 'enist', 'pigs' und 'said' zusammen in einen test machen ?)
Wouter.
NV Vandemoortele Coordination Center
Group R&D Center
Prins Albertlaan 79
Postbus 40
B-8870 Izegem
(Belgium)
Tel: +/32/51/33 21 11
Fax:+32/51/33 21 75
vdmcc@XXXXXXX.be
|