1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen

Common LISP - Zeichenkette(n) überprüfen

Dieses Thema im Forum "Sonstige Sprachen" wurde erstellt von jkallup, 9. November 2014.

  1. jkallup

    jkallup Erfahrenes Mitglied

    Hallo Lispers,

    wie kann ich in common lisp Strings/Zeichenketten überprüfen?
    Im unten stehenden Code kann ich jeweils immer nur ein Wort
    prüfen.
    Was aber, wenn ich "how are you" prüfen will?
    Danke für Tipps

    Code (Text):
    1. ;-----------------------------------------------------
    2. ; print the string "str" on terminal ...
    3. ;-----------------------------------------------------
    4. (defun jk_print(str) (cond ((setq str (prin1 str)))) )
    5.  
    6. (defun jk_test (input)
    7.   (cond ((setq input (jk_print (format nil "~s" (read)) ))) )
    8.   (cond
    9.     ((string= input "FOO")  ; if
    10.       (jk_print "ok foo"))  ; then
    11.     ((string= input "BAR")  ; else
    12.       (jk_print "barcode ok")) ; else
    13.     ((jk_print "exprfalse"))
    14.   )
    15. )
     
Die Seite wird geladen...