Re: Scheme question

[Stefano Troncaro]

Hi Jay, your 'if' statements are not nested properly. See:

#(define nameold
   (if (equal? pitch "C")
       nameCpitch
       (if (equal? pitch "E")
           nameEpitch
           (if (equal? pitch "G")
               nameGpitch
               (if (equal? pitch "A")
                   nameApitch
                   nameCpitch)))))

Just in case you didn't know, you can use de cond conditional for cases like this, which is much easier to work with:

#(define nameold
   (cond
    ((equal? pitch "C") nameCpitch)
    ((equal? pitch "E") nameEpitch)
    ((equal? pitch "G") nameGpitch)
    ((equal? pitch "A") nameApitch)
    (else nameCpitch)))

Hope that helps!

Stéfano

El vie., 20 sept. 2019 a las 8:14, Jay Vara (<address@hidden>) escribió:

I have defined three pair lists nameCpitch, nameEpitch, nameGpitch and nameApitch.

I want to assign nameold to one of the four depending on the value of pitch.

I set pitch to G and have a set of if statements to define nameold.

However it is not working.  When I print one of the lists I defined, it prints correctly but the list nameold does not. I imagine that someone who knows scheme could spot my error immediately.

Here is the code

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\version "2.19.83"

nameCpitch =
#`(("c" . "C")
    ("cis" . "C#")
    ("des" . "Db")
    ("d" . "D")
    ("b" . "B")
    ("bis" . "B#"))

nameEpitch =
#`(("c" . "E")
    ("cis" . "F")
    ("des" . "F")
    ("d" . "F#")
    ("b" . "D#")
    ("bis" . "E"))
nameGpitch =
#`(("c" . "G")
    ("cis" . "Ab")
    ("des" . "Ab")
    ("d" . "A")
    ("b" . "F#")
    ("bis" . "G"))
nameApitch =
#`(("c" . "A")
    ("cis" . "Bb")
    ("des" . "Bb")
    ("d" . "B")
    ("b" . "G#")
    ("bis" . "A"))

pitch = G

#(define nameold (if (equal? pitch "C")
   (nameCpitch (if(equal? pitch "E")
     (nameEpitch (if (equal? pitch "G")
       (nameGpitch (if (equal? pitch "A")
         nameApitch nameCpitch))))))))

#(display nameCpitch)

#(display nameold)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

_______________________________________________
lilypond-user mailing list
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user