스키마에서 JavaScript의 >>>>를 수행하는 방법은 무엇입니까?

Question

구성표에는 >> 및 << 기능 만 있습니다. 체계에서 javascript >>>을 어떻게 할 수 있습니까?

나는 계획이 함수를 작성해야합니다 : 언 바운드 기호 >>> 때문에

function bit_rol (num, cnt) { 
    return (num << cnt) | (num >>> (32 - cnt)) 
} 

이 작동하지 않습니다 여기에

(define (bit-rol num cnt) 
    (| (<< num cnt) (>>> num (- 32 cnt)))) 

Answer 1

되어 하나 개의 솔루션 :

(define (complement x) 
    (if (negative? x) 
     (- (expt 2 32) (- x)) 
     x)) 

(define (>>> x n) 
    (cond 
    [(>= n 0) (cond 
       [(= x 0) 0] 
       [(> x 0) (quotient x (expt 2 n))] 
       [(< x 0) (>>> (complement x) n)] 
       [else (error '>>> "strange number detected")])] 
    [else (error '>>> "expected a non-negative shift")])) 

(>>> 5 2) ; 1 
(>>> -5 2) ; 1073741822 

Answer 2

R6RS 인 최신 정식 버전을 사용할 것으로 예상되는 버전을 지정하지 않았기 때문에. R6RS는 정확한 비트 산술 (artithmetic) 라이브러리에게 그것의 번호는 고정 폭 구속하지만, >>> 및 <<이 변화의 eiher 음성 또는 양성 번호 bitwise-arithmetic-shift으로 구현되지 않기 때문에 >>이없는 (rnrs arithmetic bitwise (6))

계획을 가지고있다. 특정 오른쪽 및 왼쪽 버전도 있지만 중복되어 있습니다.

구성표에 bitwise-rotate-bit-field이 있고 지침을 제공하지 않기 때문에 자바 스크립트에서 에뮬레이션한다고 생각합니다.

(import (rnrs) 
     (rnrs arithmetic bitwise (6))) 

(define (make-bit-rot bit-width) 
    (lambda (n step)  
    (bitwise-rotate-bit-field n 
           0 
           bit-width 
           (if (negative? step) 
            (mod step bit-width) 
            step)))) 

(define rot-4 (make-bit-rot 4)) 
(rot-4 #b0001 -1) ; ==> #b1000 
(rot-4 #b1000 1) ; ==> #b0001 
(rot-4 #b1000 3) ; ==> #b0100 


// Seeems you are interested in 32 bit rotate 
(define rot-32 (make-bit-rot 32))