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-KL: Klausurvorbereitung

Browse Source
This commit is contained in:
Jim Martens
2014-02-10 20:12:38 +01:00
parent f46c1a2343
commit 529c7f5118
3 changed files with 104 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
se3/probeklausur0809.rkt Normal file
View File

@ -0,0 +1,31 @@
#lang swindle
(require swindle/setf
swindle/misc)
; CLOS
(defclass* messgeraet ())
(defgeneric* einheit ((messgeraet))
:combination generic-append-combination)
(defgeneric* messwert ((messgeraet))
:combination generic-append-combination)
(defgeneric* genauigkeit ((messgeraet))
:combination generic-min-combination)
(defclass* thermometer (messgeraet))
(defclass* barometer (messgeraet))
(defclass* regenmesser (messgeraet))
(defclass* wetterstation (thermometer barometer regenmesser))
; Logik
(?- (kamera ?kamID ? ? 24 ?))
(?- (kamera ?kamID ? ? 18 ?)
(angebot ?kamID ? ?preis))
(?- (anbieter ?anbID ?anbName ?lieferzeit ? ?)
(test (<= ?lieferzeit 1))
(angebot ?kamID ?anbID ?)
(kamera ?kamID ?kameraname ?hersteller ? ?))