CDE

Task/Concurrent-computing/E/concurrent-computing-1.e

@@ -0,0 +1,4 @@
+def base := timer.now()
+for string in ["Enjoy", "Rosetta", "Code"] {
+    timer <- whenPast(base + entropy.nextInt(1000), fn { println(string) })
+}

Task/Concurrent-computing/E/concurrent-computing-2.e

@@ -0,0 +1,9 @@
+def seedVat := <import:org.erights.e.elang.interp.seedVatAuthor>(<unsafe>)
+for string in ["Enjoy", "Rosetta", "Code"] {
+   seedVat <- (`
+       fn string {
+           println(string)
+           currentVat <- orderlyShutdown("done")
+       }
+   `) <- get(0) <- (string)
+}