6.8 Ein gutes Beispiel für die Benutzung von Listen (Dank an Olivier SC)

Ich hoffe, dass Sie dieses wunderbare Palindrom-Programm schätzen werden:

  lerne umkehrew :w
    wenn leer? :w [rückgabe "]
    rückgabe wort letztes :w umkehrew ohneletztes :w
  Ende
  
  lerne palindrom :w
    wenn gleich? :w umkehrew :w [rückgabe "true] [rückgabe "false]
  Ende

  lerne palin :n
    wenn palindrom :n [druckezeile :n stoppe]
    druckezeile satz satz satz satz :n "mehr umkehrew :n "gleich summe :n umkehrew :n
    palin :n + umkehrew :n
  Ende

palin 78

  78 mehr 87 gleich 165
  165 mehr 561 gleich 726
  726 mehr 627 gleich 1353
  1353 mehr 3531 gleich 4884
  4884