2009-06-13から1日間の記事一覧
;;exercise3.47 (define (make-semaphore n) (let ((s n) (mutex (make-mutex))) (define (aquire) (mutex 'acquire) ;mutexを保護する (if (> count 0) (begin (set! s (- s 1)) ;sを変更 (mutex 'release)) ;保護していたmutexを解放 (begin (mutex 'relea…
;;exercise3.47 (define (make-semaphore n) (let ((s n) (mutex (make-mutex))) (define (aquire) (mutex 'acquire) ;mutexを保護する (if (> count 0) (begin (set! s (- s 1)) ;sを変更 (mutex 'release)) ;保護していたmutexを解放 (begin (mutex 'relea…