Dies ist eine statische Kopie unseres alten Forums. Es sind keine Interaktionen möglich.
This is a static copy of our old forum. Interactions are not possible.
  • 1
  • 2

sr409

Junior Schreiberling

Posts: 156

Date of registration: Jan 3rd 2003

21

Tuesday, February 18th 2003, 11:10am

Muss man sich eigentlich genau an die Schritt-für-Schritt Anweisungen halten oder kann man die Prozedur auch frei nach Schnauze programmieren ? Bei der lucas-lehmer aufgabe komme ich nämlich auf meinem wege viel schneller an ziel..
  • Send private message

Puck

Erfahrener Schreiberling

  • "Puck" is male

Posts: 304

Date of registration: Oct 9th 2002

Location: Also ich muss ins Hauptgebäude nur 2x lang hinfallen...

Occupation: WAS?!?! WIE?!?! ICH BIN STUDENT?!?!

22

Tuesday, February 18th 2003, 11:35am

soweit ich weis wie es auf dem Zettel steht. Mitstudentin hat es anderes gemacht und ist deswegen durchgefallen.
"Es ist erstaunlich, was die Leute leisten können, wenn man ihnen nur nachdrücklich genug verbietet, es zu leisten."
Lord Vetinari, Patrizier von Ankh-Morpork.
  • Send private message

Arne

ThI

  • "Arne" is male

Posts: 1,798

Date of registration: Oct 7th 2002

Location: Hannover :)

Occupation: Lecturer ThI

23

Tuesday, February 18th 2003, 11:36am

ist ja irgendwie hart
"NP - The class of dashed hopes and idle dreams." Complexity Zoo
  • Send private message

sr409

Junior Schreiberling

Posts: 156

Date of registration: Jan 3rd 2003

24

Tuesday, February 18th 2003, 11:40am

arr
  • Send private message

Cipher

Junior Schreiberling

  • "Cipher" is male

Posts: 156

Date of registration: Oct 15th 2002

Location: Berlin

Occupation: IT Application Consultant

25

Tuesday, February 18th 2003, 12:16pm

MFM Codierung

Aufgabe C

Meine Lösung dazu:


(define (codiere-mfm li)
(define (codiere li a nli)
(if (null? li) (append nli (list a))
(cond ((and (= a 0) (= a (car li))) (codiere (cdr li) (car li) (append nli (list a 1))))
(else (codiere (cdr li) (car li) (append nli (list a 0)))))))
(if (null? li) () (codiere (cdr li) (car li) ())))

(define (decodiere-mfm li)
(define (decodiere li nli)
(if (null? li) nli
(decodiere (cddr li) (append nli (list (car (cdr li)))))))
(if (null? li) () (decodiere (cdr li) (list (car li)))))

(define (besseres-decodiere-mfm li)
(if (and (even? (length li)) (> (length li) 0)) (display "Fehler!")
(let ((nli (decodiere-mfm li)))
(if (equal? (codiere-mfm nli) li) nli (display "Fehler!")))))

(newline)(display "codiere-mfm")
(codiere-mfm '(1 0 0 1 1))
(codiere-mfm '(1))
(codiere-mfm '())

(newline)(display "decodiere-mfm")
(decodiere-mfm (codiere-mfm '(1 0 0 1 1)))
(decodiere-mfm '(1))
(decodiere-mfm '())

(newline)(display "besseres-decodiere")
(besseres-decodiere-mfm '(1 0 0 1 0 0 1 0 1))
(besseres-decodiere-mfm '(1 0 0 0))
(besseres-decodiere-mfm '(1 0))
(besseres-decodiere-mfm '(1))
(besseres-decodiere-mfm '())

Cipher
  • Send private message
  • 1
  • 2