From 5794bc103abddca70e198857260390b896d737a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Thu, 15 Dec 2016 13:30:14 +0100
Subject: percept: Remove application

---
 lib/percept/doc/src/sorter.erl | 41 -----------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 lib/percept/doc/src/sorter.erl

(limited to 'lib/percept/doc/src/sorter.erl')

diff --git a/lib/percept/doc/src/sorter.erl b/lib/percept/doc/src/sorter.erl
deleted file mode 100644
index 8d5f2c715c..0000000000
--- a/lib/percept/doc/src/sorter.erl
+++ /dev/null
@@ -1,41 +0,0 @@
--module(sorter).
--export([go/3,loop/0,main/4]).
-
-go(I,N,M) ->
-    spawn(?MODULE, main, [I,N,M,self()]),
-    receive done -> ok end.
-
-main(I,N,M,Parent) ->
-    Pids = lists:foldl(
-	fun(_,Ps) -> 
-	    [ spawn(?MODULE,loop, []) | Ps]
-	end, [], lists:seq(1,M)),
-
-    lists:foreach(
-	fun(_) -> 
-	    send_work(N,Pids),
-	    gather(Pids)
-	end, lists:seq(1,I)),
-
-    lists:foreach(
-	fun(Pid) ->
-	    Pid ! {self(), quit}
-	end, Pids),
-
-    gather(Pids), Parent ! done.
-
-send_work(_,[]) -> ok;
-send_work(N,[Pid|Pids]) ->
-    Pid ! {self(),sort,N},
-    send_work(round(N*1.2),Pids).
-
-loop() ->
-    receive
-	{Pid, sort, N} -> dummy_sort(N),Pid ! {self(), done},loop();
-	{Pid, quit} -> Pid ! {self(), done}
-    end.
-	    
-dummy_sort(N) -> lists:sort([ random:uniform(N) || _ <- lists:seq(1,N)]).
-
-gather([]) -> ok;
-gather([Pid|Pids]) -> receive {Pid, done} -> gather(Pids) end.
-- 
cgit v1.2.3