Eine Moeglichkeit das Problem in Mma zu loesen ist:
In[1]:= $Version
Out[1]= HP9000 Series 700 2.2 (May 7, 1993)
In[2]:= Do[If[(e 100 + v 10 + e) =!= 0 && (e != v != d !=i),
r = RealDigits[N[(e 100 + v 10 + e)/(d 100 + 10 i + d)]];
f = Take[First[r],8];
If[(Take[f, 4] === Drop[f, 4]) && Length[Union[f]]===4 &&
Length[Union[{e, v, d, i}, f]] === 8 ,
Print[e,v,e, "/", d,i,d, " = 0,",Sequence@@f,"..."] ]
], {e, 0, 9},{v, 0, 9}, {d, e + 1, 9}, {i, 0, 9}
]//Timing
212/606 = 0,34983498...
242/303 = 0,79867986...
Out[2]= {12.1 Second, Null}
Rolf Mertig
|