Vorlesung 3

Aus ProgrammingWiki

< BuK < IIm19 < Aufzeichnungen Adaszewski

Archivierte Version vom 2020-04-09T12:03:10+00:00. Aktuelle Version

(define endlicheMenge
  (lambda (wort)
    (let ((zeichenListe (string->list wort)))
      (letrec
        (alleZeichenImAlphabet?
          (lambda (alleZeichen)
            (cond [
                   (char=? #\a (cdr alleZeichen)) (char=? #\b (cdr alleZeichen)))
                   (cond 
                         [(not (null? (cdr alleZeichen))) (alleZeichenImAlphabet?(cdr alleZeichen))]
                         [else #t]
                   )
                  ]
                  [else #f]
            )
          )
        )
      )
      (cond
            [
             (= (string-length wort) 3)
             (alleZeichenImAlphabet? zeichenListe)
            ]
            [else #f]
      )
    )
  )
)

(endlicheMenge "aba")

Vorlesung 3

Suche