Re: Aufgabe::autobiographische Zahl

[Peter Pein <petsie@XXXXXXX.de>]

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