np/embddr-scheme-library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add round-to function

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-11-06 14:23:18 +03:00
parent f4d29094c9
commit 19a7b4a287
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
embddr/common.scm
View File

@ -5,7 +5,7 @@
(import (srfi srfi-1) (import (srfi srfi-1)
(srfi srfi-60)) (srfi srfi-60))
(export log2 clog2 (export log2 clog2 round-to
one? power-of-two? one? power-of-two?
curry curry-r curry curry-r
transpose transpose
@ -36,6 +36,11 @@
;;; Check for (x == 1) ;;; Check for (x == 1)
(define (one? x) (= x 1)) (define (one? x) (= x 1))
;;; Round to the 'n' decimal place
(define (round-to n num)
(let ((k (expt 10 n)))
(/ (round (* num k)) k)))
;;; Currying ;;; Currying
;;; Example: ((curry-r f 1) 2 3) -> (f 1 2 3) ;;; Example: ((curry-r f 1) 2 3) -> (f 1 2 3)
(define (curry f . args) (define (curry f . args)