Re: [WAS: Re: handbells] Tabulating notes used in a score

[David Nalesnik]

On Mon, May 26, 2014 at 8:33 AM, David Nalesnik <address@hidden> wrote:

 

countOccurrences =

#(define-scheme-function

  (parser location lst)

  (list?)

  (let* ((pitch-list (sort (delete-duplicates lst) ly:pitch<?))

          (tabulation (make-list (length pitch-list) '())))

Of course, tabulation is completely unnecessary!

 

    (map (lambda (p)

               (cons p (count (lambda (x) (equal? x p)) lst)))

      pitch-list)))

#(display #{ \countOccurrences \extractPitches \Bach #})

%%%%

-David