SICPのこの辺を読んでたら、 (define (make-serializer) (let ((mutex (make-mutex))) (lambda (p) (define (serialized-p . args) (mutex 'acquire) (let ((val (apply p args))) (mutex 'release) val)) serialized-p))) のという関数定義があって、これの…

メモ /*! if g++ -g 2012-07-06_005542.cpp -o 2012-07-06_005542.out; then ./2012-07-06_005542.out; fi */ #include <queue> #include <iostream> using namespace std; int main(int argc, char *argv[]){ priority_queue<int, vector<int>, less<int> > p; priority_queue<int, vector<int>, greater<int> > q; if(less</int></int,></int></int,></iostream></queue>…