Just another update

Task/Concurrent-computing/PowerShell/concurrent-computing-1.psh

@@ -0,0 +1,10 @@
+$Strings = "Enjoy","Rosetta","Code"
+
+$SB = {param($String)Write-Output $String}
+
+foreach($String in $Strings) {
+    Start-Job -ScriptBlock $SB -ArgumentList $String | Out-Null
+    }
+
+Get-Job | Wait-Job | Receive-Job
+Get-Job | Remove-Job

Task/Concurrent-computing/PowerShell/concurrent-computing-2.psh

@@ -0,0 +1,16 @@
+$Strings = "Enjoy","Rosetta","Code"
+
+$SB = {param($String)Write-Output $String}
+
+$Pool = [RunspaceFactory]::CreateRunspacePool(1, 3)
+$Pool.ApartmentState = "STA"
+$Pool.Open()
+foreach ($String in $Strings) {
+    $Pipeline  = [System.Management.Automation.PowerShell]::create()
+    $Pipeline.RunspacePool = $Pool
+    [void]$Pipeline.AddScript($SB).AddArgument($String)
+    $AsyncHandle = $Pipeline.BeginInvoke()
+    $Pipeline.EndInvoke($AsyncHandle)
+    $Pipeline.Dispose()
+    }
+$Pool.Close()

Task/Concurrent-computing/Prolog/concurrent-computing.pro

@@ -0,0 +1,12 @@
+main :-
+    thread_create(say("Enjoy"),A,[]),
+    thread_create(say("Rosetta"),B,[]),
+    thread_create(say("Code"),C,[]),
+    thread_join(A,_),
+    thread_join(B,_),
+    thread_join(C,_).
+
+say(Message) :-
+    Delay is random_float,
+    sleep(Delay),
+    writeln(Message).

Task/Concurrent-computing/Rust/concurrent-computing.rust

@@ -1,11 +1,11 @@
 use std::io::timer::sleep;
-use std::rand::{rng, Rng};
+use std::rand::{task_rng, Rng};
 
 fn main() {
-  let mut random = rng();
+  let mut rng = task_rng();
   for word in "Enjoy Rosetta Code".words() {
-    let local_word = word.to_owned();
-    let snooze_time = random.gen_range::<u64>(0, 1000);
+    let local_word = word.to_string();
+    let snooze_time = rng.gen_range::<u64>(0, 1000);
 
     spawn(proc() {
       sleep(snooze_time);