Rosetta Code

Concurrent computing: Difference between revisions

Page Discussion

Concurrent computing (view source)

Revision as of 07:48, 6 November 2020

351 bytes removed ,  3 years ago
m
Updated code to match task and removed output as defined by task.
(Updated whitespace, removed output as defined by task)
m (Updated code to match task and removed output as defined by task.)
Line 632:
 
=={{header|FreeBASIC}}==
<lang freebasic>'Sub FB 1.05.0 Win64thread1()
Print "EnjoyA"▼
' Compiled with -mt switch (to use threadsafe runtiume)
' The 'ThreadCall' functionality in FB is based internally on LibFFi (see [https://github.com/libffi/libffi/blob/master/LICENSE] for license)
 
Sub thread1()
▲ Print "Enjoy"
End Sub
 
Sub thread2()
Print "RosettaB"
End Sub
 
Sub thread3()
Print "CodeC"
End Sub
 
Print "Press any key to print next batch of 3 strings or ESC to quit"
Print
 
Do
Dim t1 As Any Ptr = ThreadCall thread1
Dim t2 As Any Ptr = ThreadCall thread2
Dim t3 As Any Ptr = ThreadCall thread3
ThreadWait t1
ThreadWait t2
ThreadWait t3
Print
Sleep
Loop While Inkey <> Chr(27)</lang>
 
Sample output
 
{{out}}
<pre>
Press any key to print next batch of 3 strings or ESC to quit
 
Enjoy
Code
Rosetta
 
Enjoy
Rosetta
Code
</pre>
 
=={{header|Go}}==
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/20983"