Keskustelu: Koodit: QB: Palindromipäiväykset

Tänään iltasella on varsin harvinainen hetki: kello 20:02 päiväys on muotoa 20.02.2002 20:02 eli sen voi lukea sekä vasemmalta oikealle että oikealta vasemmalle. Muitakin vastaavanlaisia päiväyksiä on olemassa, ja siitä syystä tein parin rivin ohjelman, joka selvittää nämä päivät aikaväliltä 1000-9999. Huomattavasti helpompaa, kuin paperin ja kynän kanssa puurtaminen!

Hämmästys oli suuri, kun samanlaisia päiviä löytyi ainoastaan viisi kappaletta 8999 vuoden ajalta. Eli tämä päivä onkin melko ainutlaatuinen.

CLS
PRINT "Palindromipäiväykset 1000-9999:"
FOR i = 1001 TO 3112
  a$ = MID$(STR$(i), 2)
  IF VAL(MID$(a$, 3, 2)) < 13 AND LEFT$(a$, 1) = MID$(a$, 4, 1) AND MID$(a$, 2, 1) = MID$(a$, 3, 1) THEN
    PRINT LEFT$(a$, 2) + "." + MID$(a$, 3, 2) + "." + a$ + "  " + LEFT$(a$, 2) + ":" + MID$(a$, 3, 2)
  END IF
NEXT