p6.p6

sub sleep_sort (*@list where .all >= 0) {
	my $channel = Channel.new;

	await @list.map: -> $delay {
	  Promise.start({
		sleep $delay / 1000;
		$channel.send($delay);
	  });
	};

	$channel.close;

	return $channel.list;
}

my @a = sleep_sort(3,2,1,5,4) xx 500;
say all(@a).elems == 5 ?? "pass" !! "fail";
say now - INIT now;