Wie finde ich die Anzahl der Kleinbuchstaben in Schema Racket?

Question

Ich versuche, die Zahl der Klein-/Großbuchstaben in einer Zeichenfolge zu finden, aber es gibt ein Problem mit meinem Code:

(define case 
    (lambda (list) 
    (if(char-lower-case? (car list)) 
     (case (cdr list)) 
     (+ 1 (case (cdr list))) 
     ) 
    )) 

(case (string->list "ScheMe")) 

Wie kann ich dieses Problem lösen?

Answer 1

In Ihrer Funktion haben Sie zwei Probleme:

1. case ist ein vordefinierter Operator in Schläger/Schema

2. Sie nicht für eine leere Liste testen.

Darüber hinaus verwenden Sie den Parameter list, die ein primitiver Operator und nicht als Variablennamen verwendet werden soll.

Hier ist eine Arbeitsfunktion:

(define (case1 lst) 
    (cond ((null? lst) 0) 
      ((char-lower-case? (car lst)) (case1 (cdr lst))) 
      (else (+ 1 (case1 (cdr lst)))))) 

(case1 (string->list "ScheMe")) 

Answer 2

Ihr Code fehlt ein Basisfall. (case '()) sollte zu 0 auswerten, aber Sie erhalten einen Fehler, da Sie car und cdr auf nil tun.

Andere Dinge, die falsch sein könnte:

Ihr Titel zeigt an, dass Sie Kleinbuchstaben zählen wollen, aber Sie für jede Groß erhöhen.

list und case sind Namen aus der Standardbibliothek. Für R5RS bedeutet dies undefiniertes Verhalten und für R6RS und später bedeutet dies, dass die Bibliotheksbindungen nicht verfügbar sind. In #!racket (ich denke, Sie verwenden diese Sprache seit Sie getaggt Racket) funktioniert es als R6RS.