我在调试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
,等等)。
嘛,狗屎感谢抬头。你知道另一种方法去解决这个问题吗,或者我坚持使用嵌套'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