Initial commit, new website system

2 files changed, 89 insertions, 0 deletions

diff --git a/res/erlanger-preview.pdf b/res/erlanger-preview.pdf
new file mode 100644
index 00000000..33fc7c18
--- /dev/null
+++ b/res/erlanger-preview.pdf
diff --git a/res/tictactoe.erl b/res/tictactoe.erl
new file mode 100644
index 00000000..abbc78e0
--- /dev/null
+++ b/res/tictactoe.erl
@@ -0,0 +1,89 @@
+-module(tictactoe).
+
+-export([new/0]).
+-export([play/4]).
+-export([check/1]).
+
+new() ->
+    {undefined, undefined, undefined,
+     undefined, undefined, undefined,
+     undefined, undefined, undefined}.
+
+play(Who, X, Y, Board) ->
+    setelement((Y - 1) * 3 + X, Board, Who).
+
+check(Board) ->
+    case Board of
+        {x, x, x,
+         _, _, _,
+         _, _, _} -> {victory, x};
+
+        {_, _, _,
+         x, x, x,
+         _, _, _} -> {victory, x};
+
+        {_, _, _,
+         _, _, _,
+         x, x, x} -> {victory, x};
+
+        {x, _, _,
+         x, _, _,
+         x, _, _} -> {victory, x};
+
+        {_, x, _,
+         _, x, _,
+         _, x, _} -> {victory, x};
+
+        {_, _, x,
+         _, _, x,
+         _, _, x} -> {victory, x};
+
+        {x, _, _,
+         _, x, _,
+         _, _, x} -> {victory, x};
+
+        {_, _, x,
+         _, x, _,
+         x, _, _} -> {victory, x};
+
+        {o, o, o,
+         _, _, _,
+         _, _, _} -> {victory, o};
+
+        {_, _, _,
+         o, o, o,
+         _, _, _} -> {victory, o};
+
+        {_, _, _,
+         _, _, _,
+         o, o, o} -> {victory, o};
+
+        {o, _, _,
+         o, _, _,
+         o, _, _} -> {victory, o};
+
+        {_, o, _,
+         _, o, _,
+         _, o, _} -> {victory, o};
+
+        {_, _, o,
+         _, _, o,
+         _, _, o} -> {victory, o};
+
+        {o, _, _,
+         _, o, _,
+         _, _, o} -> {victory, o};
+
+        {_, _, o,
+         _, o, _,
+         o, _, _} -> {victory, o};
+
+        {A, B, C,
+         D, E, F,
+         G, H, I} when A =/= undefined, B =/= undefined, C =/= undefined,
+                       D =/= undefined, E =/= undefined, F =/= undefined,
+                       G =/= undefined, H =/= undefined, I =/= undefined ->
+            draw;
+
+        _ -> ok
+    end.