Frohes neues Jahr

Ein Tweet von @apfelkasten begrüßt das neue Jahr mit einer interessanten Eigenschaft:

Könnt ihr das mt einem kleinen Programm überprüfen? Dann ab damit in die Kommentare. :) Hier ist z.B. eine Variante in Smalltalk:

2013 to: 1900 by: -1 do: [:jahreszahl |
  ziffern := Set new.
  jahreszahl asString do: [:ziffer | ziffern add: ziffer].
    (ziffern size) = 4
      ifTrue: [Transcript
                  show: jahreszahl;
                  cr]]

In diesem Sinne: Ein frohes neues Jahr!