22.02.2022 Symmetrie

[Nano (Gast)]

Dieses Datum haben wir bald.
Daraus kann man ein schönes Zahlenspiel machen.

Aufgabe:

Finde einen Algorithmus, der alle symmetrischen Datumsangaben vom Jahr 
1000 bis 9999 bestehend aus Tag und Monat, sowie Jahr findet und 
berechnet.

Weitere zu erfüllende Bedingungen:
1. Die Zahlen im voll angegeben Datum der Form DD.MM.JJJJ muss sich 
spiegeln. Der Punkt zwischen Monat und Tag wird zwar ausgegeben, aber 
hierbei ignoriert. Die Spiegelachse liegt somit auf dem zweiten Punkt, 
also zwischen Monat und Jahr.
2. Einstellige Tag und Monatsangaben haben eine führende 0.
3. Im Datum dürfen nur **maximal zwei unterschiedliche Ziffern** 
vorkommen.
4. Der Algorithmus muss eine Berechnung sein und darf nicht nur aus 
einer Ausgabe der unten angegebenen und gegebenenfalls manuell 
vervollständigten Tabelle bestehen.
5. Die Ausgabe muss steigend erfolgen, das älteste Jahr zuerst, das 
letzte zukünftige  zuletzt.
6. Das Datum muss es geben. Ungültige Datumsangaben zählen nicht.

Beispiel (keine Gewähr auf Vollständigkeit):

10.01.1001
01.01.1010
11.01.1011 **
10.11.1101
11.11.1111 **, ***
21.11.1112
12.11.1121
22.11.1122 **
13.11.1131
14.11.1141
15.11.1151
16.11.1161
17.11.1171
18.11.1181
19.11.1191
20.02.2002
02.02.2020
22.02.2022 ** (Baldiges Datum, dann 89 Jahre auf das nächste warten)
11.12.2111 **
12.12.2121
21.12.2112
22.12.2122 ** 
30.03.3003
03.03.3030
04.04.4040
05.05.5050
06.06.6060
07.07.7070
08.08.8080
09.09.9090

Optional:
Die mit ** gekennzeichneten Datumsangaben sind eine Besonderheit,
da die Ziffern des Tages und die letzten zwei Ziffern der Jahreszahl 
identisch sind.
Wer möchte, der kann das in der Programmausgabe gesondert kennzeichnen.

Die mit *** gekennzeichnete Datumsangabe ist einzigartig. Denn sie 
besteht nur aus einer Ziffer und mit Symmetrie kommt sie nicht mehr 
wieder.

Ebenso kann man noch neben jedem Datum ausgeben, wie viele Jahre es bis 
zum
Datum mit der nächsten Symmetrie dauert.


Prinzipiell könnte man daraus einen Wettbewerb machen und
als Siegesbedingungen festlegen, dass derjenige gewinnt, der den 
schnellsten Algorithmus hat und alle Bedingungen von 1 bis 6 erfüllt.

Allerdings weiß ich noch nicht, wie man das dann am besten auswertet?
Wenn man alle Sprachen zulässt, dann wird das extrem viel Aufwand.
Insofern müsste man das vielleicht auf 1 bis 2 Sprachen begrenzen.
Ich dachte an C und C++.
Der Sprachumfang sollte dann aber auch auf eine bestimmte 
Compilerversion begrenzt sein, die dieser unterstützt, z.B. den GCC 
Version <= 10.2.1.
Und obige Aufgabe dürfte auf einem modernen Rechner extrem schnell 
berechnet sein, da braucht man also auch noch eine Lösung. Vielleicht 
mehrere n-Millionen Durchläufe?
Und dann ist da noch die Frage, wie der Code ausgetauscht wird. Eine 
E-Mail werde ich nicht angeben und wenn man das einfach ins Forum 
postet, sieht ja gleich jeder den Code der anderen und könnte seinen 
optimieren, da habe ich also auch noch keine Lösung für.
Wer Vorschläge hat und ob man so etwas überhaupt machen soll und wie man 
das umsetzen könnte, kann das gerne posten. Vielleicht besteht auch gar 
kein Interesse.
Als Abgabedatum könnte man den 22.02.2022 nehmen, das wäre in ca. 3 
Wochen.

Damit diejenigen, die die Optionalen Sachen auch noch erfüllen wollen 
nicht benachteiligt werden, dürften sie natürlich die Optionalen Sachen 
bei dem Speedtest ausklammern. Das könnte man bspw. per 
Präprozessordirektive machen.

[Peter D. (peda)]

Nano schrieb:
> Vielleicht besteht auch gar
> kein Interesse.

Stimmt.

[Yalu X. (yalu) (Moderator)]

Nicht auf Geschwindigkeit optimiert (Laufzeit: 4,4 s), dafür leicht auf
Korrektheit prüfbar:

import Data.List
import Data.Time.Calendar
import Data.Time.Format
import Control.Monad

-- Konvertierungsfunktionen
mjd = ((toModifiedJulianDay .) .) . fromGregorian
fmt = (. ModifiedJulianDay) . formatTime defaultTimeLocale

main = mapM_ putStrLn $ do
  d <- [
         mjd 0000 01 01                    -- 01.01.0000
         ..                                -- bis
         mjd 9999 12 31                    -- 31.12.9999
       ]

  let s  = fmt "%d%m%0Y" d                 -- Konvertierung in TTMMJJJJ
  guard  $ s == reverse s                  -- Symmetrie
  guard  $ (length $ group $ sort s) <= 2  -- maximal 2 verschiedene Ziffern
  return $ fmt "%d.%m.%0Y" d               -- Konvertierung in TT.MM.JJJJ

Ausgabe:

10.10.0101
01.10.0110
11.10.0111
10.01.1001
01.01.1010
11.01.1011
10.11.1101
01.11.1110
11.11.1111
21.11.1112
12.11.1121
22.11.1122
13.11.1131
14.11.1141
15.11.1151
16.11.1161
17.11.1171
18.11.1181
19.11.1191
20.02.2002
02.02.2020
22.02.2022
11.12.2111
21.12.2112
12.12.2121
22.12.2122
30.03.3003
03.03.3030
04.04.4040
05.05.5050
06.06.6060
07.07.7070
08.08.8080
09.09.9090

Ich habe noch die Jahreszahlen <1000 mit hinzu genommen. Man kann sie
aber auch weglassen, in dem man in Zeile 12 das Startdatum ändert.

In deiner Liste fehlt übrigens der 01.11.1110, und Bedingung (5) ist
nicht erfüllt.

[Rolf M. (rmagnus)]

Nano schrieb:
> 6. Das Datum muss es geben. Ungültige Datumsangaben zählen nicht.

Woher weiß ich denn, ob in z.B. 5000 Jahren unsere jetzige Zeitrechnung 
überhaupt noch so existiert? Aus Star Trek wissen wir ja, dass 
irgendwann auf Sternzeit umgestellt wird.

[Le X. (lex_91)]

Rolf M. schrieb:
> Woher weiß ich denn, ob in z.B. 5000 Jahren unsere jetzige Zeitrechnung
> überhaupt noch so existiert? Aus Star Trek wissen wir ja, dass
> irgendwann auf Sternzeit umgestellt wird.

Das dürfte keine Rolle spielen. Ich würde einfach die aktuellen Regeln 
heranziehen. Das sollte für die Aufgabenstellung reichen.
Außer ich wäre Querulant und müsste dringend jemanden Kontra geben 
damits mir gut geht, dann würde ich hier irgendwas von Star Trek faseln.

[Christoph db1uq K. (christoph_kessler)]

Dazu der passende Song
https://de.wikipedia.org/wiki/In_the_Year_2525
(if man is still alive)

[50c (Gast)]

Yalu X. schrieb:
> Nicht auf Geschwindigkeit optimiert (Laufzeit: 4,4 s), dafür leicht auf
> Korrektheit prüfbar:

...jetzt wäre, um die Spielerei auf die "Spitze" zu trieben, interessant 
die Zeitabstände zwischen den magischen Tagen in einem Diagramm 
abzubilden. Vielleicht erkennt man etwas systematisches... ;-)

[Christoph db1uq K. (christoph_kessler)]

F. Merz hat mal erwähnt, dass er am 11.11.55 geboren sei, auf die Frage 
wie er zu Karneval steht.

Zum Year 2525 gibt es einige Videoclips
https://www.youtube.com/results?search_query=in+the+year+2525
aus welchem Film stammt die Blondine mit Dinosauriern?
https://www.youtube.com/watch?v=JNbUUSuiEho

[Noch ein Kommentar (Gast)]

> dafür leicht auf Korrektheit prüfbar:

Zumindest hat Haskell kein npm. Da kann man zumindest mal davon 
ausgehen, die importierten Module machen auch Morgen noch das selbe wie 
Heute.

[Tim T. (tim_taylor)]

Aus dem Rückenmark:

#include <stdio.h>

int ist_max2digits(char a, char b, char c, char d) {

    if ( a == b ) {
        if ( a == c ) return 1;
        if ( a == d ) return 1;
        if ( c == d ) return 1;
    }
    else if ( a == c ) {
        if ( a == d ) return 1;
        if ( b == d ) return 1;
    }
    else if ( b == c ) {
        if ( a == d ) return 1;
        if ( b == d ) return 1;
    }

    return 0;
}

int ist_datum(char a, char b, char c, char d) {

    int tag = 10 * (a - '0') + (b - '0');
    int monat = 10 * (c - '0') + (d - '0');

    if ( tag == 0 ) return 0;

    switch ( monat ) {
        case 2  : if ( tag > 27 ) return 0; break; // Hinreichend da der 28.02. immer gegen die 2 unterschiedliche Ziffern-Regel verstößt.
        case 1  :
        case 3  :
        case 5  :
        case 7  :
        case 8  :
        case 10 :
        case 12 : if ( tag > 31 ) return 0; break;
        case 4  :
        case 6  :
        case 9  :
        case 11 : if ( tag > 30 ) return 0; break;
        default : return 0;
    }

    return 1;
}

int ist_symdatum(char a, char b, char c, char d) {

    if ( ist_max2digits(a, b, c, d) == 0 ) return 0;
    if ( ist_datum(a, b, c, d) == 0 ) return 0;

    return 1;
}

int main(void) {

    for (char d = '0'; d <= '9'; d++)
        for (char c = '0'; c <= '1'; c++)
            for (char b = '0'; b <= '9'; b++)
                for (char a = '0'; a <= '3'; a++)
                    if ( ist_symdatum(a, b, c, d) )
                        printf("%c%c.%c%c.%c%c%c%c\n", a, b , c, d, d, c, b, a);

    return 0;
}

[Gästle (Gast)]

Yalu X. schrieb:
> Nicht auf Geschwindigkeit optimiert (Laufzeit: 4,4 s), dafür
> leicht auf
> Korrektheit prüfbar:

> 10.10.0101
> ...
> 09.09.9090

Und trotzdem fehlt das letzte Datum in der Liste, welches wenn ich mich 
nicht irre der 29.09.9092 wäre.

[Tim T. (tim_taylor)]

Gästle schrieb:
> Yalu X. schrieb:
>> Nicht auf Geschwindigkeit optimiert (Laufzeit: 4,4 s), dafür
>> leicht auf
>> Korrektheit prüfbar:
>
>> 10.10.0101
>> ...
>> 09.09.9090
>
> Und trotzdem fehlt das letzte Datum in der Liste, welches wenn ich mich
> nicht irre der 29.09.9092 wäre.

Die Ziffern 2, 9, 0 sind schon 3 Ziffern...

[Andreas M. (andreas_m62)]

Rolf M. schrieb:
> Aus Star Trek wissen wir ja, dass
> irgendwann auf Sternzeit umgestellt wird.

Mir "reicht" es schon, wenn jedes Jahr auf Sommerzeit umgestellt wird.

[Gästle (Gast)]

Tim T. schrieb:
> Die Ziffern 2, 9, 0 sind schon 3 Ziffern...

Nano schrieb:
> 3. Im Datum dürfen nur **maximal zwei unterschiedliche Ziffern**
> vorkommen.

Stimmt, da hab ich doch tatsächlich Bedingung 3 überlesen. Asche auf 
mein Haupt.

[Tim T. (tim_taylor)]

Nochmal mit etwas mehr Überlegung:

#include <stdio.h>

int ist_symdatum(char a, char b, char c, char d) {

    int tag = 10 * (a - '0') + (b - '0');
    int monat = 10 * (c - '0') + (d - '0');

    switch ( monat ) {
        case 11 : if ( ( a == '1' ) || ( tag == 01 ) || ( tag == 21 ) || ( tag == 22 ) ) return 1; break;
        case 12 : if ( ( tag == monat ) || ( tag == 11 ) || ( tag == 21 ) || ( tag == 22 ) ) return 1; break;
        case 10 : if ( ( tag == monat ) || ( tag == 01 ) || ( tag == 11 ) ) return 1; break;
        case 1  : if ( ( tag == monat ) || ( tag == 10 ) || ( tag == 11 ) ) return 1; break;
        case 2  : if ( ( tag == monat ) || ( tag == 20 ) || ( tag == 22 ) ) return 1; break;
        case 3  : if ( ( tag == monat ) || ( tag == 30 ) ) return 1; break;
        case 4  :
        case 5  :
        case 6  :
        case 7  :
        case 8  :
        case 9  : if ( tag == monat ) return 1; break;
        default : break;
    }

    return 0;
}

int main(void) {

    for (char d = '0'; d <= '9'; d++)
        for (char c = '0'; c <= '1'; c++)
            for (char b = '0'; b <= '9'; b++)
                for (char a = '0'; a <= '3'; a++)
                    if ( ist_symdatum(a, b, c, d) )
                        printf("%c%c.%c%c.%c%c%c%c\n", a, b , c, d, d, c, b, a);

    return 0;
}

[50c (Gast)]

50c schrieb:
> ...jetzt wäre, um die Spielerei auf die "Spitze" zu trieben, interessant
> die Zeitabstände zwischen den magischen Tagen in einem Diagramm
> abzubilden. Vielleicht erkennt man etwas systematisches... ;-)

...schade, nichts spannendes...

[Nano (Gast)]

Yalu X. schrieb:
> Ich habe noch die Jahreszahlen <1000 mit hinzu genommen. Man kann sie
> aber auch weglassen, in dem man in Zeile 12 das Startdatum ändert.
>
> In deiner Liste fehlt übrigens der 01.11.1110, und Bedingung (5) ist
> nicht erfüllt.

Oh ja, stimmt. Mein Fehler. Die Liste ist manuell erstellt.

[Noch ein Kommentar (Gast)]

> Vielleicht erkennt man etwas systematisches...
> ...schade, nichts spannendes...

Dann müssen wir die Abstände hartnäckiger untersuchen. Newcomb und 
Benford haben das nach ihnen benannte Gesetz auch nicht nach 5 Minuten 
gesehen.

[DanVet (Gast)]

Christoph db1uq K. schrieb:
> aus welchem Film stammt die Blondine mit Dinosauriern?
> https://www.youtube.com/watch?v=JNbUUSuiEho

Das ist Scarlett Johansson, könnte "Lucy" sein.

[Christoph db1uq K. (christoph_kessler)]

Danke. Andere Filmausschnitte stammen aus Fritz Langs "Metropolis", Wie 
auch im Videoclip zu "Radio Gaga".

Die Bundeswehr wurde am 5.5.55 beschlossen.

[Anita H. (anita1995)]

Am 11.11.1111 hatten wir demnach Supersymmetrie...

[Mombert H. (mh_mh)]

Rolf M. schrieb:
> Nano schrieb:
>> 6. Das Datum muss es geben. Ungültige Datumsangaben zählen nicht.
>
> Woher weiß ich denn, ob in z.B. 5000 Jahren unsere jetzige Zeitrechnung
> überhaupt noch so existiert? Aus Star Trek wissen wir ja, dass
> irgendwann auf Sternzeit umgestellt wird.

Ich hoffe, dass es deutlich weniger als 5000 Jahre dauert, bis wir auf 
eine sinnvolle "Zeitrechnung" wechseln. Ein einfacher Start wäre eine 
sinnvolle internationale Schreibweise (YYYY-MM-DD) ...

[Für jedes Problem der richtige Hammer (Gast)]

Verdammt! Jetzt wollte ich über Leute Lästern, die umständliche, 
langatmige Sprachen benutzen und bekomme eine Fehlermeldung: "the 
datetime strftime() methods require year >= 1900"

Na ja - findet jemand einen besseren Weg für die Date Formatierung in 
Python?

from datetime import date, timedelta

print [datestr for datestr in [str(d.day).zfill(2)+"."+str(d.month).zfill(2)+"."+str(d.year).zfill(4) for d in [(date(1000, 1, 1) + n*timedelta(days=1)) for n in range((date(9999, 12, 31) - date(1000, 1, 1)).days)]]
       if len(set(datestr)) == 3
       and datestr[4]+datestr[3]+datestr[1]+datestr[0] == datestr[6:]]

[Yalu X. (yalu) (Moderator)]

Für jedes Problem der richtige Hammer schrieb:
> if len(set(datestr)) == 3

Da sollte <= 3 stehen, damit auch der 11.11.1111 berücksichtigt wird.

[50c (Gast)]

Für jedes Problem der richtige Hammer schrieb:
> bekomme eine Fehlermeldung: "the
> datetime strftime() methods require year >= 1900"

Python 3.8.10 (default, Nov 26 2021, 20:14:08)
[GCC 9.3.0] on linux
Type "help", "copyright", "credits" or "license" for more information.
>>> from datetime import datetime
>>> print(datetime.strptime('10-01-0101', "%d-%m-%Y"))
0101-01-10 00:00:00
>>>
>>> from datetime import date
>>> print(datetime.date(101, 1, 10))
0101-01-10

[Christoph db1uq K. (christoph_kessler)]

Pollin feiert "Happy Twosday"
recht haben sie, der 22.2.22 war auch noch ein Tuesday.