2012/10/25 David Kastrup <[email protected]>: > Thomas Morley <[email protected]> writes: > >> Well, I managed to order the list with some scheme-code: >> >> %%%%%%%%%%%%%%%%%%%%%%%%%% >> >> #(define l '((f . 4)(g . 4)(d . 3)(e . 3)(c . 2) (a . 1) (b . 1))) >> >> #(define (split-at-equal-cdr alist) >> "After `split-at-predicate´ from lily-library.scm >> BTW, why is it not public? >> " >> (if (null? alist) >> (list alist) >> (let ((i (list-index >> (lambda (x y) (not (= (cdr x) (cdr y)))) >> alist >> (cdr alist)))) >> (if i >> (cons (take alist (1+ i)) (drop alist (1+ i))) >> (list alist))))) >> >> #(define (order-alist l) >> (define (helper l1 l2) >> (if (null? l1) >> l2 >> (helper >> (cdr (split-at-equal-cdr l1)) >> (append (car (split-at-equal-cdr l1)) l2)))) >> (helper l '())) >> >> #(write (order-alist l)) >> >> %%%%%%%%%%%%%%%%%%%%%%%%%% >> >> Returns: ((a . 1) (b . 1) (c . 2) (d . 3) (e . 3) (f . 4) (g . 4)) >> and would be ok. > > Eyes glaze over. Wouldn't > (sort-list l (lambda (a b) (< (cdr a) (cdr b)))) > work here?
Aaargh! Ofcourse it works! >> Is there any reason for the default-behaviour of 'label-page-table? > > No idea. Pitty. -Harm _______________________________________________ lilypond-devel mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-devel
