没有指定值的案例陈述

问题描述：

我在调试case语句时遇到了一些麻烦。我希望这个陈述会给note-val分配一个数值，但是到目前为止它是分配#<void>。我知道case语句有些问题，因为如果我添加一个else子句，那么就会应用该值。给定样本输入'(((#\3 #\A) (#\4 #\B)) ((#\4 #\C)))，我在这里做错了什么？（在关于case语句。我敢肯定有其他错误的，但我想尝试的工作出那些自己，如果我能得到这个固定的。）没有指定值的案例陈述

(define (calc-freqs chord) 
    (let ((octave (char->int (caaar chord))) 
     (note-val (case (cdaar chord) 
        [((#\B #\#) (#\C))  0] 
        [((#\C#\#) (#\D #\b)) 1] 
        [((#\D))    2] 
        [((#\D #\#) (#\E #\b)) 3] 
        [((#\E) (#\F #\b))  4] 
        [((#\E #\#) (#\F))  5] 
        [((#\F #\#) (#\G #\b)) 6] 
        [((#\G))    7] 
        [((#\G #\#) (#\A #\b)) 8] 
        [((#\A))    9] 
        [((#\A #\#) (#\B #\b)) 10] 
        [((#\B) (#\C#\b))  11]))) 
    (cons (* a4 (expt 2 (+ (- octave 4) (/ (- note-val 9) 12)))) 
      (if (pair? (cdr chord)) 
       (calc-freqs (cdr chord)) 
       '()))))

哦，char->int是微小的实用功能，我写了很多名称（#\1 =>1，等等）。

答

case确实匹配使用eqv?。这意味着符号，数字，字符，布尔值或空列表之外的任何内容都不会匹配。

就你而言，你试图匹配（非空）列表。这将永远不会工作。 :-(（匹配的字符串或向量都不起作用）

嘛，狗屎感谢抬头。你知道另一种方法去解决这个问题吗，或者我坚持使用嵌套'if's的丑陋阶梯？ – Andy 2011-04-24 05:16:41

@Andrew：你可以使用'cond' .--) – 2011-04-24 05:16:59

A-ha！先生，你真棒。 – Andy 2011-04-24 05:24:13

答

要添加到以前的答案（以允许我添加代码的方式）：如果您使用的是Racket，则可能对“匹配“形式：

#lang racket 

(require rackunit) 

(define (pitchclass->half-steps pitchclass) 
    (match pitchclass 
    [(or "B#" "C") 0] 
    [(or "C#" "Db") 1] 
    ["D"    2] 
    [(or "D#" "Eb") 3] 
    [(or "E" "Fb") 4] 
    [(or "E#" "F") 5] 
    [(or "F#" "Gb") 6] 
    ["G"    7] 
    [(or "G#" "Ab") 8] 
    ["A"    9] 
    [(or "A#" "Bb") 10] 
    [(or "B" "Cb") 11])) 

;; TEST CASES: 

(check-equal? (pitchclass->half-steps "Ab") 8) 
(check-equal? (pitchclass->half-steps (apply string '(#\D #\#))) 3)

第二个测试案例说明，如果你真的嫁给你怎么可能用这种‘列表中，字符’表示

没有指定值的案例陈述

相关推荐