2martens
/
uni
mirror of https://github.com/2martens/uni.git
1
0
Fork 0
Code Releases Activity
uni/se3/G08_B04_Jim-2martens_Britta...

199 lines
8.4 KiB
Racket
Raw Blame History

#lang racket
#|
SE 3 Funktional Blatt 4
Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
|#
; 1)
; 1. (max (min 2 (- 2 5)) 0) -> 0
; zunächst wird (- 2 5) ausgeführt, was -3 ergibt
; als nächstes wird (min 2 -3) ausgeführt, was -3 ergibt
; dann kommt (max -3 0) mit dem Ergebnis 0
; 2. '(+ (- 2 13) 2) -> (+ (- 2 13) 2)
; das Quote verzögert die Auswertung, wodurch der Ausdruck nicht ausgewertet wird
; 3. (cadr '(Alle Jahre wieder)) -> 'Jahre
; zunächst wird (cdr '(Alle Jahre wieder)) ausgeführt mit dem Ergebnis '(Jahre wieder)
; anschließend wird (car '(Jahre wieder)) mit dem Ergebnis 'Jahre ausgeführt
; 4. (cddr '(kommt (das Weihnachtfest))) -> '()
; zunächst wird (cdr '(kommt (das Weihnachtfest))) ausgeführt mit dem Ergebnis '((das Weihnachtfest))
; anschließend wird (cdr '((das Weihnachtfest))) ausgeführt mit dem Ergebnis '()
; dies liegt an der doppelt geschachtelten Liste:
; (cons 'kommt (list (list 'das 'Weihnachtfest))) -> '(kommt (das Weihnachtfest))
; 5. (cons 'Listen '(ganz einfach und)) -> '(Listen ganz einfach und)
; da '(ganz einfach und) eine Liste ist, verkettet cons 'Listen schlichtweg mit der Liste
; 6. (cons 'Paare 'auch) -> '(Paare . auch)
; hier verkettet cons zwei einfache Elemente, wodurch ein Paar entsteht, welches keine Liste ist
; 7. (equal? (list 'Racket 'Prolog 'Java) '(Racket Prolog Java)) -> #t
; list erzeugt eine Liste mit den angegebenen Elementen und '(Racket Prolog Java) ist ebenfalls eine Liste mit den gleichen Elementen
; 8. (eq? (list 'Racket 'Prolog 'Java) (cons 'Racket '(Prolog Java))) -> #f
; list erzeugt wieder eine Liste und cons verknüpft hier ein einfaches Element mit einer Liste, wodurch wieder eine Liste entsteht;
; allerdings sind die beiden Listen nicht identisch, aber genau das prüft eq?
; 2)
; 1.
; <notmeldung> ::= <ueberschrift><notfallort><notfallart><hilfeleistung><peilzeichen><unterschrift><over>
; <ueberschrift> ::= <hierist><line-end><schiffname3mal><rufzeichen><line-end><summary><line-end>
; <summary> ::= "MAYDAY "<schiffname>" ICH BUCHSTABIERE "<snamechars>" "<rufzeichen>
; <snamechars> ::= <string>
; <schiffname3mal>::= <schiffname>" "<schiffname>" "<schiffname>
; <schiffname> ::= <word>
; <notfallort> ::= <standort><zeitpunkt>
; <notfallart> ::= <string><line-end>
; <hilfeleistung> ::= <string><line-end><lines>
; <peilzeichen> ::= "ICH SENDE DEN TRÄGER --"<line-end>
; <unterschrift> ::= <word>" "<rufzeichen><line-end>
; <rufzeichen> ::= <word>" "<word>" "<word>" "<word>
; <lines> ::= <string><line-end> | <string><line-end><lines>
; <standort> ::= "NOTALLPOSITION "<string><line-end>
; <zeitpunkt> ::= "NOTFALLZEIT "<time>" UTC"<line-end>
; <time> ::= <hour><minute>
; <hour> ::= "0"<digit> | "1"<digit> | "2"<hdigit>
; <minute> ::= "0"<digit> | "1"<digit> | "2"<digit> | "3"<digit> | "4"<digit> | "5"<digit>
; <digit> ::= "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" | "8" | "9"
; <hdigit> ::= "0" | "1" | "2" | "3"
; <string> ::= <word> | <word>" "<string>
; <word> ::= <letter> | <letter><word>
; <line-end> ::= <EOL>
; <over> ::= "OVER"
; 2.2
(define buchstabiertafel
'((#\A . ALFA)
(#\B . BRAVO)
(#\C . CHARLIE)
(#\D . DELTA)
(#\E . ECHO)
(#\F . FOXTROTT)
(#\G . GOLF)
(#\H . HOTEL)
(#\I . INDIA)
(#\J . JULIETT)
(#\K . KILO)
(#\L . LIMA)
(#\M . MIKE)
(#\N . NOVEMBER)
(#\O . OSCAR)
(#\P . PAPA)
(#\Q . QUEBEC)
(#\R . ROMEO)
(#\S . SIERRA)
(#\T . TANGO)
(#\U . UNIFORM)
(#\V . VIKTOR)
(#\W . WHISKEY)
(#\X . X-RAY)
(#\Y . YANKEE)
(#\Z . ZULU)
(#\0 . NADAZERO)
(#\1 . UNAONE)
(#\2 . BISSOTWO)
(#\3 . TERRATHREE)
(#\4 . KARTEFOUR)
(#\5 . PANTAFIVE)
(#\6 . SOSISIX)
(#\7 . SETTESEVEN)
(#\8 . OKTOEIGHT)
(#\9 . NOVENINE)
(#\, . DECIMAL)
(#\. . STOP)
))
(define (char->schlüssel char tafel)
(cdr (assoc (char->upper char) tafel)))
(define (char->upper char)
(let ([charInt (char->integer char)])
(cond ([<= 96 charInt 122] (integer->char (- charInt 32)))
([<= 65 charInt 90] (integer->char charInt))
(else char))))
(define (liste->string liste)
(letrec ((rec (λ (string xs)
(if (null? xs)
string
(if (empty? string)
(rec (symbol->string (car xs)) (cdr xs))
(rec (string-append string " " (symbol->string (car xs))) (cdr xs)))))))
(rec "" liste)))
(define (buchstabiere text tafel)
(letrec ((rec (λ (xs)
(if (null? xs)
null
(cons (char->schlüssel (car xs) tafel)
(rec (cdr xs)))))))
(liste->string (rec (string->list text)))))
(define mayday "MAYDAY")
(define notposition "NOTFALLPOSITION")
(define notzeit "NOTFALLZEIT")
(define space " ")
(define linebreak "\n")
(define hierist "HIER IST")
(define buchstabieren "ICH BUCHSTABIERE")
(define ruf "RUFZEICHEN")
(define senden "ICH SENDE DEN TRÄGER --")
(define (generiereNotmeldung schiffname rufzeichen position weitereAngaben)
(display (string-append mayday space mayday space mayday linebreak
hierist linebreak
schiffname space schiffname space schiffname (buchstabiere rufzeichen buchstabiertafel) linebreak
mayday space schiffname space buchstabieren (buchstabiere schiffname buchstabiertafel) (buchstabiere rufzeichen buchstabiertafel) linebreak
ruf (buchstabiere rufzeichen buchstabiertafel) linebreak
notposition space position linebreak
weitereAngaben
senden linebreak
schiffname (buchstabiere rufzeichen buchstabiertafel) linebreak
"OVER")))
; 2.3
(display "BABETTE:\n")
(generiereNotmeldung "BABETTE" "DEJY" "UNGEFÄHR 10 SM NORDÖSTLICH LEUCHTTURM KIEL" "SCHWERER WASSEREINBRUCH WIR SINKEN\nKEINE VERLETZTEN\nVIER MANN GEHEN IN DIE RETTUNGSINSEL\nSCHNELLE HILFE ERFORDERLICH\n")
(display "\n\nAMIRA:\n")
(generiereNotmeldung "AMIRA" "AMRY" "57°46'N, 006°31'E\nNOTFALLZEIT 0640 UTC" "KENTERUNG WIR SINKEN\n9 MANN AN BORD\nSCHIFF 15 M LANG\nGRÜNER RUMPF\n")
; 3)
; bei innerer Reduktion werden die Terme von innen nach außen reduziert
; bei äußerer Reduktion werden die Terme von außen nach innen reduziert
; innere Reduktion:
; (hoch3 (* 3 (+ 1 (hoch3 2))))
; -> (hoch3 (* 3 (+ 1 (* 2 2 2)))) ; (hoch3)
; -> (hoch3 (* 3 (+ 1 8))) ; (*)
; -> (hoch3 (* 3 9)) ; (+)
; -> (hoch3 27) ; (*)
; -> (* 27 27 27) ; (hoch3)
; -> 19683 ; (*)
; äußere Reduktion:
; (* (* 3 (+ 1 (hoch3 2))) (* 3 (+ 1 (hoch3 2))) (* 3 (+ 1 (hoch3 2)))) ; (hoch3)
; -> (* (* 3 (+ 1 (* 2 2 2))) (* 3 (+ 1 (hoch3 2))) (* 3 (+ 1 (hoch3 2)))) ; (hoch3)
; -> (* (* 3 (+ 1 8)) (* 3 (+ 1 (hoch3 2))) (* 3 (+ 1 (hoch3 2)))) ; (*)
; -> (* (* 3 9) (* 3 (+ 1 (hoch3 2))) (* 3 (+ 1 (hoch3 2)))) ; (+)
; -> (* 27 (* 3 (+ 1 (hoch3 2))) (* 3 (+ 1 (hoch3 2)))) ; (*)
; -> (* 27 (* 3 (+ 1 (* 2 2 2))) (* 3 (+ 1 (hoch3 2)))) ; (hoch3)
; -> (* 27 (* 3 (+ 1 8)) (* 3 (+ 1 (hoch3 2)))) ; (*)
; -> (* 27 (* 3 9) (* 3 (+ 1 (hoch3 2)))) ; (+)
; -> (* 27 27 (* 3 (+ 1 (hoch3 2)))) ; (*)
; -> (* 27 27 (* 3 (+ 1 (* 2 2 2)))) ; (hoch3)
; -> (* 27 27 (* 3 (+ 1 8))) ; (*)
; -> (* 27 27 (* 3 9)) ; (+)
; -> (* 27 27 27) ; (*)
; -> 19683 ; (*)
; In Racket wird die strikte innere Reduktion für Funktionen angewendet.
; Für Spezialformen wird je nach Spezialform eine andere Strategie angewendet.
; Allgemein kann jedoch gesagt werden, dass dort von außen nach innen gegangen wird.
; Wenn Alyssa das Programm benutzt, dann entsteht eine Endlosschleife, da
; cond aufgrund der inneren Reduktion niemals aufgerufen wird. Pro Rekursionsaufruf
; werden zunächst alle drei Parameter ausgewertet. Ab dem fünften Rekursionsschritt
; wird (> counter max-count) zwar zu false ausgewertet, aber erst wenn der faculty
; Aufruf komplett ausgewertet ist, wird new-if aufgerufen. Da in jedem Rekursionsschritt
; faculty aufgerufen wird, entsteht eine Endlosschleife.
; Anhand dieses Beispiels wird deutlich, dass zunächst die Bedingung ausgewertet werden muss
; und abhängig von dieser dann entweder nur die then-clause oder nur die else-clause. Bei jeder Rekursion
; muss dies passieren, da sonst die Abbruchbedingung nie zum Abbruch führt.
View Git Blame Copy Permalink