From 240dd113ab4aa9349eb320a50702299fbdaa250d Mon Sep 17 00:00:00 2001 From: Jim Martens Date: Wed, 4 Dec 2013 21:07:48 +0100 Subject: [PATCH] =?UTF-8?q?SE3-5:=20Aufgabe=202=20anhand=20der=20R=C3=BCck?= =?UTF-8?q?meldungen=20verbessert.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ..._Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/se3/G08_B05_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt b/se3/G08_B05_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt index 5055909..15a9dce 100644 --- a/se3/G08_B05_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt +++ b/se3/G08_B05_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt @@ -182,12 +182,6 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel #t #f)) -; negiert ein Prädikat -(define (not pred) - (if pred - #f - #t)) - (define erbbarliste '((punkte . (punkte streifen sterne)) (streifen . (streifen sterne)) @@ -218,9 +212,9 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel )))) (rec sichtbarVater sichtbarMutter sichtbarKind #t))) -(display "\nSind Anton und Antonia die Eltern von Toni:") +(display "\nKönnen Anton und Antonia die Eltern von Toni sein:") (testeElternschaft '(sterne gruen geschweift rhombisch) '(streifen blau gekruemmt hexagonal) '(sterne rot gekruemmt rhombisch)) -(display "\nSind Anton und Antonia die Eltern von Tini:") +(display "\nKönnen Anton und Antonia die Eltern von Tini sein:") (testeElternschaft '(sterne gruen geschweift rhombisch) '(streifen blau gekruemmt hexagonal) '(punkte gruen gerade rhombisch)) -(display "\nSind Anton und Antonia die Eltern von Tina:") +(display "\nKönnen Anton und Antonia die Eltern von Tina sein:") (testeElternschaft '(sterne gruen geschweift rhombisch) '(streifen blau gekruemmt hexagonal) '(streifen gelb geschweift elliptisch)) \ No newline at end of file