need help with helper functions ?

[digdug]

hello!

How do I write a function that rounds number to the nearest integer ?

[digdug]

ah, maybe I resolved already:
This works:

Code: Select all

(setq we_round (lambda (input)
	(block (tempNumber output)
		(setq tempNumber (- input (int input)))
		(if (geq tempNumber 0.5)
			(setq output (+ 1 (int input)))
			(setq output (int input))
		)
)))

is it efficient ? is there a better way ?

[AssumedPseudonym]

 That looks to be about the best you’re going to get.

[giantcabbage]

That does not work for negative numbers as int truncates towards zero. Try:

Code: Select all

(setq nint (lambda (x) (int (+ x (if (ls x 0) -.5 .5)))))

[schilcote]

My lisp is incredibly rusty, so this might have errors, but here's a better way:

Code: Select all

(setq schilround (lambda (x)
    (block (modresult roundresult)
        (setq modresult (modulo x 1) ;Change this 1 to any other power of 10 to round to that, i.e. 0.1 rounds to 1 decimal place
        (setq roundresult (sub x modresult))
        (if geq (modresult 0.5) ;If you change the above number you should also change this number similarly
            (setq roundresult (add roundresult 1) ;As well as this one
        )
    ))

For example, 12.89 modulo 1 = 0.89.
Therefore, 12.89 - 12.89 modulo 1 = 12. That gives you a floor function.
Then you check if the decimal part was greater than 0.5 to know if you should round up. I'm sure there's a smarter way to do that but I'm not clever enough.

Oh, and as the comments suggest, scaling all those constants will allow you to change where the function round to, i.e. if I change 1 to 0.1 and 0.5 to 0.05, it'll round to one decimal place instead of 0. Conversely, 1 to 10 and 0.5 to 5 will round to the nearest ten (i.e. 123 becomes 120).

[digdug]

That does not work for negative numbers as int truncates towards zero. Try:

Code: Select all

(setq nint (lambda (x) (int (+ x (if (ls x 0) -.5 .5)))))

oh wow, this is working perfectly !
thanks !!