all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Sleep-sort/PureBasic/sorting-algorithms-sleep-sort.purebasic
+++ b/Task/Sorting-algorithms-Sleep-sort/PureBasic/sorting-algorithms-sleep-sort.purebasic
@ -0,0 +1,17 @@
+NewMap threads()
+
+Procedure Foo(n)
+  Delay(n)
+  PrintN(Str(n))
+EndProcedure
+
+If OpenConsole()
+  For i=1 To CountProgramParameters()
+    threads(Str(i)) = CreateThread(@Foo(), Val(ProgramParameter()))
+  Next
+
+  ForEach threads()
+    WaitThread(threads())
+  Next
+  Print("Press ENTER to exit"): Input()
+EndIf