A-M baby

Task/Concurrent-computing/Factor/concurrent-computing.factor

@@ -0,0 +1,3 @@
+USE: concurrency.combinators
+
+{ "Enjoy" "Rosetta" "Code" } [ print ] parallel-each

Task/Concurrent-computing/Groovy/concurrent-computing.groovy

@@ -0,0 +1,6 @@
+'Enjoy Rosetta Code'.tokenize().collect { w ->
+    Thread.start {
+        Thread.sleep(1000 * Math.random() as int)
+        println w
+    }
+}.each { it.join() }

Task/Concurrent-computing/J/concurrent-computing.j

@@ -0,0 +1,4 @@
+   smoutput&>({~?~@#);:'Enjoy Rosetta Code'
+Rosetta
+Code
+Enjoy

Task/Concurrent-computing/Logtalk/concurrent-computing.logtalk

@@ -0,0 +1,12 @@
+:- object(concurrency).
+
+    :- initialization(output).
+
+    output :-
+        threaded((
+            write('Enjoy'),
+            write('Rosetta'),
+            write('Code')
+        )).
+
+:- end_object.

Task/Concurrent-computing/Mathematica/concurrent-computing.mathematica

@@ -0,0 +1,5 @@
+ParallelDo[
+    Pause[RandomReal[]];
+    Print[s],
+    {s, {"Enjoy", "Rosetta", "Code"}}
+]

Task/Concurrent-computing/Mercury/concurrent-computing.mercury

@@ -0,0 +1,13 @@
+:- module concurrent_computing.
+:- interface.
+
+:- import_module io.
+:- pred main(io::di, io::uo) is cc_multi.
+
+:- implementation.
+:- import_module thread.
+
+main(!IO) :-
+   spawn(io.print_cc("Enjoy\n"), !IO),
+   spawn(io.print_cc("Rosetta\n"), !IO),
+   spawn(io.print_cc("Code\n"), !IO).