从字符串中删除元音（方案）

Question

我知道这个问题的基本算法，但我无法将句子更改为条件中的列表。我创建了 make-list 是为了让自己更轻松，但我不确定将其放在代码中的何处。例如，在第一个 cond 语句中，在检查句子中的第一个元素是否是元音之前，我需要将句子作为列表。但我在语法上一直在做错误的事情。

元音-ci？如果字符是不区分大小写的元音，则返回 #t，否则返回 #f。

stenotype 接受一个句子并返回删除所有元音的句子。

(define make-list
   (lambda (string)
     (string->list string)))

(define stenotype
  (lambda (sentence)
    (cond
      [(vowel-ci? (car sentence)) (stenotype (cdr sentence))]
      [else (cons (car sentence) (stenotype (cdr sentence)))])))

Answer 1

有一些不同的任务（准备输入，以便它可以由您的实现和处理本身进行处理），您已将其分解为两个不同的函数。下一步是组合这些功能，而不是重写后者以使用前者。组合函数的最简单方法是组合。组合 make-list 和 stenotype（您可能希望为这个组合命名），您就会得到您的解决方案。

(define double
    (lambda (x) (* x 2)))

(define inc
    (lambda (x) (+ x 1)))

; one option: define a new function that's a composition    
(define double-inc
    (lambda (x) (inc (double x))))

; another option: compose the functions when you use them
(inc (double 23))

; yet another option: make the other functions local to the composition
; Useful if the other functions are subordinate to the composition, and 
; aren't useful outside of it. You often see this with recursive functions,
; where the outer function sets up a call to the recursive function
(define (double-inc x)
    (define (double x) (* x 2))
    (define (inc x) (+ x 1))
  (inc (double x)))

(define (max numbers)
    (define (max-recur maximum numbers)
      (cond ((eq? numbers '()) maximum)
            ((< maximum (car numbers)) (max-recur (car numbers) (cdr numbers)))
            (else (max-recur maximum (cdr numbers)))))
  (max-recur (car numbers) (cdr numbers)))

请注意，您在 stenotype 中缺少用于结束递归的基本情况。

Answer 2

您只需将字符串转换为列表一次，并使用 map 或递归过滤掉元音。以下过程展示了如何使用 map：

(define (remove-vowels str) 
    (let ((res ()))
      (map (lambda (c) (if (not (vowel? c)) (set! res (append res (list c))))) 
           (string->list str))
      (list->string res)))

这是递归的，避免了 set! 和 append：

(define (remove-vowels str)
    (let loop ((slist (string->list str)) (res ()))
      (if (not (null? slist))
          (if (vowel-ci? (car slist))
              (loop (cdr slist) res)
              (loop (cdr slist) (cons (car slist) res)))
          (list->string (reverse res)))))

用法：

> (remove-vowels "hello, world")
"hll, wrld"
> (remove-vowels "goodbye cruel world")
"gdby crl wrld"

Answer 3

(define make-list (string)

     (string->list string))

(cond
[(empty? make-list(sentence))empty]
      [(vowel-ci? (car make-list(sentence))) 
        (stenotype list->string ((cdr make-  list(sentence))))]
      [else (cons (car make-list(sentence)) (stenotype (cdr make-list(sentence))))])))