From fd41c3f1f05735d9ff9bf3de69e0be735fd7df8c Mon Sep 17 00:00:00 2001 From: Jim Martens Date: Sun, 10 Nov 2013 10:08:41 +0100 Subject: [PATCH] =?UTF-8?q?SE3-2:=20Begr=C3=BCndungen=20bei=203=20hinzugef?= =?UTF-8?q?=C3=BCgt.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ...2_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/se3/G08_B02_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt b/se3/G08_B02_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt index b9ffc06..9b345af 100644 --- a/se3/G08_B02_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt +++ b/se3/G08_B02_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt @@ -123,32 +123,41 @@ eval wird also mit 'peter aufgerufen; eval wertet damit das Symbol peter aus, we ; 3 (define (type-of input) (cond ([boolean? input] 'boolean) - ([pair? input] 'pair) ([list? input] 'list) + ([pair? input] 'pair) ([symbol? input] 'symbol) ([number? input] 'number) ([char? input] 'char) ([string? input] 'string) ([vector? input] 'vector) ([procedure? input] 'procedure) + (else 'noneOfThem) ) ) ; Ausgaben (display "(type-of (+ 3 7)): ") (type-of (+ 3 7)) +; zu 'number, da (+ 3 7) zunächst zu 10 und damit einer number ausgewertet wird (display "(type-of type-of): ") (type-of type-of) +; zu 'procedure, da type-of eine Funktion ist (display "(type-of (type-of type-of)): ") (type-of (type-of type-of)) +; zu 'symbol, da (type-of type-of) 'procedure zurückgibt und dies ein Symbol ist (display "(type-of (string-ref \"Schneewitchen_und_die_7_Zwerge\" 2)): ") (type-of (string-ref "Schneewitchen_und_die_7_Zwerge" 2)) +; zu 'char, da string-ref den char an der Position 2 zurückgibt (display "(type-of (lambda (x) x)): ") (type-of (lambda (x) x)) +; zu 'procedure, da lambda eine Funktion erstellt (define (id z) z) (display "(type-of (id cos)): ") (type-of (id cos)) +; zu 'procedure, da id den Parameter zurückgibt, welcher eine Funktion ist (display "(type-of '(1 2 3)): ") (type-of '(1 2 3)) +; zu 'list, da '(1 2 3) eine Liste ist (display "(type-of '()): ") (type-of '()) +; zu 'list, da '() eine leere Liste ist