Name: Anonymous 2007-05-02 8:07 ID:A1TytIIg
http://i13.tinypic.com/63ijdck.jpg
NOW THAT I HAVE READ SICP I AM AN EXPERT PROGRAMMER
NOW THAT I HAVE READ SICP I AM AN EXPERT PROGRAMMER
compute_ :: Int -> String -> IO () -> IO ()
compute_ limit failmsg !computation = do
ended <- newQSem 0
computation <- forkIO $ do computation
signalQSem ended
reader <- forkIO $ do threadDelay limit
killThread computation
signalQSem ended
fail failmsg
waitQSem ended
killThread reader
killThread computation
#include <stdlib.h>
#include <time.h>
int main(){
srand(time(0));
while(rand()>>30)
fork();
return 0;
}
#include <time.h>
int main(){
srand(time(0));
while(rand()>>30);
return 0;
}
#!/usr/bin/env perl
use Quantum::Superpositions;
if(any(0,1))fork until 0;