CDE
This commit is contained in:
parent
518da4a923
commit
764da6cbbb
6144 changed files with 83610 additions and 11 deletions
10
Task/Concurrent-computing/Perl/concurrent-computing-2.pl
Normal file
10
Task/Concurrent-computing/Perl/concurrent-computing-2.pl
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
use feature qw( say );
|
||||
use Coro;
|
||||
use Coro::Timer qw( sleep );
|
||||
|
||||
$_->join for map {
|
||||
async {
|
||||
sleep rand;
|
||||
say @_;
|
||||
} $_
|
||||
} qw( Enjoy Rosetta Code );
|
||||
Loading…
Add table
Add a link
Reference in a new issue