% How to start this application: % > erl % 1> c(database). % compile % 2> pingpong:main(). % execute - module(pingpong). % Modulname - export([main/1, pong/0]). % exportierte Funktionen % n-mal Ping: ping(Pid,0) -> okay; ping(Pid,N) -> Pid!{self(),ping}, receive pong -> ping(Pid,N-1) end. pong() -> receive {Pid,ping} -> Pid!pong, pong() end. main(N) -> Pid = spawn(pingpong, pong, []), % starte pong-Prozess ping(Pid,N).