Sync

Task/Concurrent-computing/C++/concurrent-computing-1.cpp

@@ -11,14 +11,14 @@ int main()
   std::uniform_int_distribution<> dist(1,1000);
   std::vector<std::thread> threads;
 
-  for(auto& str: {"Enjoy\n", "Rosetta\n", "Code\n"}) {
+  for(const auto& str: {"Enjoy\n", "Rosetta\n", "Code\n"}) {
     // between 1 and 1000ms per our distribution
     std::chrono::milliseconds duration(dist(eng));
 
-    threads.push_back(std::thread([str, duration](){
+    threads.emplace_back([str, duration](){
       std::this_thread::sleep_for(duration);
       std::cout << str;
-    }));
+    });
   }
 
   for(auto& t: threads) t.join();

Task/Concurrent-computing/Clojure/concurrent-computing-1.clj

@@ -0,0 +1,2 @@
+(doseq [text ["Enjoy" "Rosetta" "Code"]]
+  (future (println text)))

Task/Concurrent-computing/Clojure/concurrent-computing-2.clj

@@ -0,0 +1,5 @@
+(require '[clojure.core.async :refer [go <! timeout]])
+(doseq [text ["Enjoy" "Rosetta" "Code"]]
+  (go
+    (<! (timeout (rand-int 1000))) ; wait a random fraction of a second,
+    (println text)))

Task/Concurrent-computing/CoffeeScript/concurrent-computing-1.coffee

@@ -0,0 +1,5 @@
+{ exec } = require 'child_process'
+
+for word in [ 'Enjoy', 'Rosetta', 'Code' ]
+    exec "echo #{word}", (err, stdout) ->
+        console.log stdout

Task/Concurrent-computing/CoffeeScript/concurrent-computing-2.coffee

@@ -0,0 +1,8 @@
+# The "master" file.
+
+{ fork } = require 'child_process'
+path = require 'path'
+child_name = path.join __dirname, 'child.coffee'
+words = [ 'Enjoy', 'Rosetta', 'Code' ]
+
+fork child_name, [ word ] for word in words

Task/Concurrent-computing/CoffeeScript/concurrent-computing-3.coffee

@@ -0,0 +1,3 @@
+# child.coffee
+
+console.log process.argv[ 2 ]

Task/Concurrent-computing/PARI-GP/concurrent-computing-1.pari

@@ -0,0 +1,3 @@
+inline(func);
+func(n)=print(["Enjoy","Rosetta","Code"][n]);
+parapply(func,[1..3]);

Task/Concurrent-computing/PARI-GP/concurrent-computing-2.pari

@@ -0,0 +1,17 @@
+void
+foo()
+{
+  if (pari_daemon()) {
+    // Original
+    if (pari_daemon()) {
+      // Original
+      pari_printf("Enjoy\n");
+    } else {
+      // Daemon #2
+      pari_printf("Code\n");
+    }
+  } else {
+    // Daemon #1
+    pari_printf("Rosetta\n");
+  }
+}