11 lines
167 B
Perl
11 lines
167 B
Perl
|
use feature qw( say );
|
||
|
|
use Coro;
|
||
|
|
use Coro::Timer qw( sleep );
|
||
|
|
|
||
|
|
$_->join for map {
|
||
|
|
async {
|
||
|
|
sleep rand;
|
||
|
|
say @_;
|
||
|
|
} $_
|
||
|
|
} qw( Enjoy Rosetta Code );
|