Udo und Susanne Krause schrieb:
> Liebe Freundinnen und Freunde von Mma,
>
> fertigen Sie einen Einzeiler, der eine zehnstellige _autobiographische_
> Zahl ausschreibt, deren erste Ziffer angibt, wieviele Nullen in ihr
> vorkommen, deren zweite sagt, wieviele Einsen, deren dritte, wieviele
> Zweien, und so weiter. Wer die Lösungszahl sehen will, bevor er/sie mit
> der Mma-Programmierung beginnt, kann bei Scott Morris, Rätsel für Denker
> und Tüftler, Dumont 2006, Aufg. 20.7 nachschauen.
>
> Gruss
> Udo.
>
>
Hallo,
bitte stellen Sie sich das Folgende in einer Zeile vor:
Block[{lst = {1, 2}},
While[UnsameQ @@ Take[lst, -2],
lst = NestWhileList[Function[x, Count[x, #] & /@ Range[0, 9]],
Table[Random[Integer, {0, 9}], {10}], UnsameQ, 2, 10]];
lst // Last // FromDigits]//Timing
Ausgabe:
{0.016 Second,6210001000}
mit besten Grüßen,
Peter
|