IO-Test

Aus ProgrammingWiki

Archivierte Version vom 2011-02-06T21:42:02+00:00. Aktuelle Version

Prozedureingabe

Mit dem nachfolgenden Beispiel kann das Konzept der Prozeduren höherer Ordnung durch Interaktion umgesetzt werden:

(define proz (read (open-input-string (inputDialog "Prozedur (Lambda-Term):"))))
((eval proz) 4)

Soll eine einfache Syntaxkontrolle erfolgen, können mögliche Eigabefehler über eine Exception erfasst werden:

(define termeingabe
  (lambda (x)
    (let ([proz (read (open-input-string (inputDialog "Prozedur (Lambda-Term):")))])
      (with-failure-continuation
       (lambda (error-record error-k) 
         (display "--> Eingabefehler") (newline)
         'ok)  
       (lambda ()
         ((eval proz) x))))))

(termeingabe 2)

IO-Test

Prozedureingabe

Suche