SE3-11: Aufgaben 1.2, 2 und 3 bearbeitet.

This commit is contained in:
Jim Martens 2014-01-26 17:38:43 +01:00
parent 1fb66470a3
commit f46c1a2343
1 changed files with 26 additions and 2 deletions

View File

@ -1,4 +1,4 @@
#lang swindle
#lang lazy
#|
SE 3 Funktional Blatt 11
@ -9,6 +9,7 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
(lib "unify.ss" "se3-bib" "prolog")
(lib "prolog.ss" "se3-bib" "prolog")
(lib "prologInScheme.ss" "se3-bib" "prolog"))
(require racket/stream)
; 1)
@ -54,8 +55,10 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
(<- (leser Luator Eva 104 1988))
; 1.
; Im interactions view laufen alle Abfragen. Einige jedoch laufen nicht hier.
;(?- (ausleihe "K 110" ?lesernummer))
;(?- (ausleihe "K 110" ?))
; 2.
;(?- (leser Linux Leo ?lesernummer ?))
@ -65,7 +68,28 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
; (leser ?nachname ?vorname ?lesernummer ?))
; 4.
;(?- (test (< ?jahr 1954))
; (leser ?nachname ?vorname ?lesernummer ?geburtsjahr)
; (ausleihe ? ?lesernummer))
; 5.
;(?- (leser ?nachname ?vorname ?lesernummer ?)
; (count ?c (ausleihe ? ?lesernummer))
; (test (> ?c 1)))
; 2)
(define memo-fac (memo fac))
; 3)
(define natNumb (in-naturals 1))
(define evilSeven (stream-map (λ (x)
(if (or
(= [modulo x 7] 0)
(pair? (member #\7
(string->list (number->string x)))))
'sum
x))
natNumb))