wip

1 files changed, 42 insertions, 0 deletions

diff --git a/learn-you-some-erlang/dog_fsm.erl b/learn-you-some-erlang/dog_fsm.erl
new file mode 100644
index 0000000..f784933
--- /dev/null
+++ b/learn-you-some-erlang/dog_fsm.erl
@@ -0,0 +1,42 @@
+-module(dog_fsm).
+-export([start/0, squirrel/1, pet/1]).
+
+start() -> spawn(fun() -> bark() end).
+
+squirrel(Pid) -> Pid ! squirrel.
+
+pet(Pid) -> Pid ! pet.
+
+bark() ->
+    io:format("Dog says: BARK! BARK!~n"),
+    receive
+        pet ->
+            wag_tail();
+        _ ->
+            io:format("Dog is confused~n"),
+            bark()
+    after 2000 ->
+        bark()
+    end.
+            
+wag_tail() ->
+    io:format("Dog wags its tail~n"),
+    receive
+        pet ->
+            sit();
+        _ ->
+            io:format("Dog is confused~n"),
+            wag_tail()
+    after 30000 ->
+        bark()
+    end.
+
+sit() ->
+    io:format("Dog is sitting. Gooooood boy!~n"),
+    receive
+        squirrel ->
+            bark();
+        _ ->
+            io:format("Dog is confused~n"),
+            sit()
+    end.