jkutner · January 4, 2011 16:26
diff --git a/actor1.erl b/actor1.erl
 ServerProcess = spawn(web, start_server, [Port, MaxConnections]),
diff --git a/actor2.erl b/actor2.erl
 ServerProcess ! {pause, 10},
diff --git a/actor3.erl b/actor3.erl
 receive
     a_message -> do_something; 
     {data, DataContent} -> handle(DataContent);
     {hello, Text} -> io:format("Got hello message: ~s", [Text]);
     {goodbye, Text} -> io:format("Got goodbye message: ~s", [Text])
 end.
diff --git a/atomic.hs b/atomic.hs
 atomic (putR r 3);
diff --git a/refs1.clj b/refs1.clj
 (def current-song (ref "Canon in D"))
diff --git a/refs2.clj b/refs2.clj
 (deref current-song)
diff --git a/refs3.clj b/refs3.clj
 (ref-set current-song "Toccata in Fugue")
diff --git a/refs4.clj b/refs4.clj
 (dosync (ref-set current-song "Toccata in Fugue"))
diff --git a/stm.hs b/stm.hs
 type Resource = TVar Int 
 putR :: Resource -> Int -> STM () 
 putR r i = do { v <- readTVar r	
              ; writeTVar r (v+i) }
diff --git a/ThreadSafeCounter.java b/ThreadSafeCounter.java
 class ThreadSafeCounter {
  private int c = 0;

  public synchronized void increment() {
    c++;
  }

  public synchronized void decrement() {
    c--;  
  }
 }
	receive
	a_message -> do_something;
	{data, DataContent} -> handle(DataContent);
	{hello, Text} -> io:format("Got hello message: ~s", [Text]);
	{goodbye, Text} -> io:format("Got goodbye message: ~s", [Text])
	end.
	class ThreadSafeCounter {
	private int c = 0;

	public synchronized void increment() {
	c++;
	}

	public synchronized void decrement() {
	c--;
	}
	}