Re: Metronome mark stem length

[Andrew Bernard]

Hi Simon,

It's the signum function sgn of course, implemented in racket as sgn, but not in guile or the SRFI's with guile AFAIK.

You could also say in Scheme:

(define (sgn n)
  (cond ((negative? n) -1)
        ((positive? n)  1)
        (else 0)))

A dozen ways to implement, of course, Would be worth having this function somewhere in the lily libraries.

Andrew

On 17 April 2017 at 21:06, Simon Albrecht <address@hidden> wrote:

Am 16.04.2017 um 19:29 schrieb Thomas Morley:

#(define (sign x)
   (if (= x 0)
       0
       (if (< x 0) -1 1)))

I can hardly imagine that default guile or any SRFI doesn’t already provide such a function – unfortunately I’m not well-versed enough to know… Anyone?