2martens/uni
1
0
Fork 0
mirror of https://github.com/2martens/uni.git synced 2026-05-06 11:26:25 +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
#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))