On Mon, May 26, 2014 at 8:33 AM, David Nalesnik <[email protected]>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
>
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
