переопределяет список рекурсивных функций

Question

Я пытаюсь сделать рекурсивную функцию, которая получает список пар строк-строк + строку с префиксом и использует функцию с именем «начинается с», она суммирует все ints, чьи начальные совпадения префикс. Проблема в том, что я никогда не могу получить список, чтобы идти вперед, он застревает в начале, а затем сбой программы.

(define (sum-of-pairs-start-with prefix ls) 
    (let*( (prefix2 (string->list prefix)) 
      (str2 (string->list (car (car ls))))) 
(cond((null? str2) 0) 
    ((starts-with prefix (car(car ls))) 
     (+ cdr(car ls) (sum-of-pairs-start-with prefix (cdr ls)))) 
    (else sum-of-pairs-start-with prefix (cdr ls)))))  

Я работаю с входом:

(sum-of-pairs-start-with "a" (list (cons "a" 1) (cons "b" 2) (cons "aa" 33) (cons "ca" 4))) ;; =34 

, но как только я получаю на вторую пару в списке («Ъ» 2) он переходит в состояние еще, как и ожидалось, но затем Ls возвращается вверх по одной линии в начало (с предыдущим значением) вместо перехода к следующему значению («aa» 33). Я новичок в схеме, и я не понимаю, почему это происходит, это расстраивает

Answer 1

Вы просто должны вызвать starts-with процедуру, что мы ранее определенный (пусть заботиться о преобразовании строки в обугливается списки), и исправить все проблемы синтаксиса:

(define (sum-of-pairs-start-with prefix ls) 
    (cond ((null? ls) 0) 
     ((starts-with prefix (car (car ls))) 
     (+ (cdr (car ls)) (sum-of-pairs-start-with prefix (cdr ls)))) 
     (else (sum-of-pairs-start-with prefix (cdr ls))))) 

Еще раз, у вас возникли проблемы вызывающих процедур. Например, эти фрагменты являются неправильными:

cdr(car ls) 
(else sum-of-pairs-start-with prefix (cdr ls)) 

Пожалуйста, возьмите книгу по схеме и на практике основного синтаксиса, помните, что процедуры не называется так: f(x), правильный путь (f x). Кроме того, обратите внимание на правильный способ отступов кода, будет легче найти ошибки, если вы будете следовать соглашениям.

Answer 2

Ниже приводится решение с использованием более высокие функции:

(define (sum-of-pairs-start-with prefix ls) 
    (apply + 
     (map cdr 
       (filter (λ (x) (starts-with prefix (car x))) 
         ls)))) 

Это отфильтровывает те подсписки, которые имеют префикс в первом пункте, затем получает второй пункт (CDR) из каждого из этих подсписков и, наконец, применяется добавить функцию ко всем из них.