From c5b5e7d8d81c210787a378c7c2d7e30db0305c0b Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Thu, 29 Oct 2015 12:26:38 +0100 Subject: Autocount invoke --- counter.erl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'counter.erl') diff --git a/counter.erl b/counter.erl index 915f5a9..6ecd335 100644 --- a/counter.erl +++ b/counter.erl @@ -7,6 +7,7 @@ start() -> count(N) when N > 32767 -> count(0); + count(N) -> receive {next, FromPID} -> @@ -18,13 +19,13 @@ count(N) -> exit(normal) end. -set(N) -> +set({present, N}) -> counterPid ! {set, N}. next() -> counterPid ! {next, self()}, receive - {next, N} -> N + {next, N} -> {present, N} end. stop() -> -- cgit v1.2.3