{"id":85,"date":"2006-02-01T22:43:15","date_gmt":"2006-02-01T22:43:15","guid":{"rendered":""},"modified":"2010-03-13T14:24:32","modified_gmt":"2010-03-13T13:24:32","slug":"ein-rekursives-vergnugen","status":"publish","type":"post","link":"https:\/\/mentalschnupfen.org\/?p=85","title":{"rendered":"Ein rekursives Vergn\u00fcgen"},"content":{"rendered":"

Wer kennt die Programmiersprache LISP<\/a> noch? Den Listenprozessor? Nach FORTRAN ist LISP die zweit\u00e4lteste Hochprogrammiersprache. Entwickelt wurde sie Ende der f\u00fcnfziger Jahre am MIT von John McCarthy. Rekursion ist in LISP, \u00e4hnlich wie in Prolog, eine noch weitaus bedeutendere Technik als in anderen Sprachen. Die typischen Schleifenkonstrukte vom \"for\" oder \"while\"-Typus sind in LISP in aller Regel schlechter Stil, obwohl dergleichen inzwischen auch in die Sprache eingebaut wurde. 'Die Sprache' ist n\u00e4mlich ohnehin ein problematischer Ausdruck, denn LISP wurde erst 1994 standardisiert (ANSI Common Lisp); bis dahin waren bereits unz\u00e4hlige Dialekte der Sprache entstanden. Babylonisches Lispeln.
\nDer wichtigste Datentyp in LISP ist die Liste. Und nicht nur komplexe Datenstrukturen, auch Funktionen sind Listen. Deswegen k\u00f6nnen LISP-Programme besonders gut andere LISP-Programme maltr\u00e4tieren, ver\u00e4ndern und zur Not auch schonmal schreiben... Darum war - und ist - die Sprache f\u00fcr KI-Zwecke und dynamische Prozesse besonders beliebt und geeignet.<\/p>\n

Ich habe heute angefangen, mich ein wenig mit dem guten St\u00fcck zu besch\u00e4ftigen und habe erst einmal vier Funktionen geschrieben: JOINL nimmt zwei Listen als Argument und f\u00fcgt sie zusammen (concatenation); REVERSEL nimmt eine Liste als Argument und kehrt die Reihenfolge der Elemente um; SORTEDL nimmt eine List (am besten von Zahlen) als Argument und \u00fcberpr\u00fcft, ob sie aufsteigend geordnet ist; SORTL nimmt eine Liste (am besten von Zahlen) als Argument und ordnet sie aufsteigend. Voil\u00e1:
\n
\n(DEFUN JOINL<\/p>\n

\t(La Lb)<\/p>\n

\t(COND<\/p>\n

\t1<\/a><\/sup>
\n\t\t\t(CONS (CAR La) Lb))
\n\t\t(T
\n\t\t\t(CONS (CAR La) (JOINL (CDR La) Lb)))\t<\/p>\n

\t)
\n)<\/p>\n

\n(DEFUN REVERSEL<\/p>\n

\t(L)<\/p>\n

\t(COND<\/p>\n

\t2<\/a><\/sup>
\n\t\t\tL)
\n\t\t(T
\n\t\t\t(JOINL
\n\t\t\t\t(REVERSE (CDR L)) (CONS (CAR L) NIL)
\n\t\t\t)
\n\t\t)<\/p>\n

\t)
\n)<\/p>\n

\n(DEFUN SORTEDL<\/p>\n

\t(L)<\/p>\n

\t(COND
\n\t3<\/a><\/sup>
\n\t\t\tT)<\/p>\n

\t\t(T
\n\t\t\t(IF (SORTEDL (CDR L))
\n\t\t\t\t(<= (CAR L) (CAR (CDR L)))
\n\t\t\t\tNIL
\n\t \t\t)
\n\t\t)
\n\t)<\/p>\n

)<\/p>\n

\n(DEFUN SORTL<\/p>\n

\t(L)<\/p>\n

\t(COND
\n\t4<\/a><\/sup><\/p>\n

\t\t\t(SORTL <\/p>\n

\t\t\t(JOINL (LIST (CAR (CDR L)) (CAR L)) (CDR (CDR L)))\t<\/p>\n

\t\t\t)
\n\t\t)<\/p>\n

\t\t(T (SORTL (CONS (CAR L) (SORTL (CDR L)))))
\n\t)<\/p>\n

)<\/p>\n

(DEFUN SORTL2<\/p>\n

\t(L)<\/p>\n

\t(COND
\n\t5<\/a><\/sup>)<\/p>\n

\t\t\t(SORTL2 (CONS (CAR (CDR L)) (CONS (CAR L) (CDR (CDR L))))))<\/p>\n

\n\t\t(T (SORTL2 (CONS (CAR L) (SORTL2 (CDR L)))))
\n\t)
\n)<\/p>\n

  1. NULL La)
    \n\t\t\tLb)
    \n\t\t((NULL (CDR La     ↩<\/a><\/p><\/li>

  2. NULL (CDR L ↩<\/a><\/p><\/li>

  3. NULL (CDR L ↩<\/a><\/p><\/li>

  4. SORTEDL L)
    \n\t\t\tL)<\/p>\n

    \t\t((SORTEDL (CDR L ↩<\/a><\/p><\/li>

  5. SORTEDL L)
    \n\t\t\tL)<\/p>\n

    \n\t\t((> (CAR L) (CAR (CDR L ↩<\/a><\/p><\/li><\/ol>","protected":false},"excerpt":{"rendered":"

    Wer kennt die Programmiersprache LISP noch? Den Listenprozessor? Nach FORTRAN ist LISP die zweit\u00e4lteste Hochprogrammiersprache. Entwickelt wurde sie Ende der f\u00fcnfziger Jahre am MIT von John McCarthy. Rekursion ist in LISP, \u00e4hnlich wie in Prolog, eine noch weitaus bedeutendere Technik als in anderen Sprachen. Die typischen Schleifenkonstrukte vom \"for\" oder \"while\"-Typus sind in LISP in… Continue reading Ein rekursives Vergn\u00fcgen<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[],"_links":{"self":[{"href":"https:\/\/mentalschnupfen.org\/index.php?rest_route=\/wp\/v2\/posts\/85"}],"collection":[{"href":"https:\/\/mentalschnupfen.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mentalschnupfen.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mentalschnupfen.org\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/mentalschnupfen.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=85"}],"version-history":[{"count":0,"href":"https:\/\/mentalschnupfen.org\/index.php?rest_route=\/wp\/v2\/posts\/85\/revisions"}],"wp:attachment":[{"href":"https:\/\/mentalschnupfen.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=85"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mentalschnupfen.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=85"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mentalschnupfen.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=85"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}