aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Quickselect-algorithm/Perl-6/quickselect-algorithm.pl6
View file

@ -30,10 +30,10 @@ sub select( @vector,
when Same {
return @vector[$pivot-new-index];
}
when Decrease {
when More {
$right = $pivot-new-index - 1;
}
when Increase {
when Less {
$k -= $pivot-dist;
$left = $pivot-new-index + 1;
}