2martens/uni
1
0
Fork 0
mirror of https://github.com/2martens/uni.git synced 2026-05-06 19:36:26 +02:00
Code Releases Activity

SE3-5: Aufgabe 2 anhand der Rückmeldungen verbessert.

Browse Source
This commit is contained in:
Jim Martens
2013-12-04 21:07:48 +01:00
parent 7fb91df76f
commit 240dd113ab
1 changed files with 3 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
se3/G08_B05_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt
View File

@ -182,12 +182,6 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
#t #t
#f)) #f))
; negiert ein Prädikat
(define (not pred)
(if pred
#f
#t))
(define erbbarliste (define erbbarliste
'((punkte . (punkte streifen sterne)) '((punkte . (punkte streifen sterne))
(streifen . (streifen sterne)) (streifen . (streifen sterne))
@ -218,9 +212,9 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
)))) ))))
(rec sichtbarVater sichtbarMutter sichtbarKind #t))) (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)) (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)) (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)) (testeElternschaft '(sterne gruen geschweift rhombisch) '(streifen blau gekruemmt hexagonal) '(streifen gelb geschweift elliptisch))