# RTnT - Raku Tips ‘n Tricks - https://rakudoweekly.blog/
#
# perhaps more than one TnT can be extracted from this
# demonstration of my favorite Raku -oFun features
#
##############################################
# How many -oFun Raku features can you spot? #
##############################################
#
# Source: https://rosettacode.org/wiki/Sorting_algorithms/Quicksort#Raku
#| Recursive, single-thread, random pivot, single-pass, quicksort implementation
multi quicksort(\a where a.elems < 2) { a }
multi quicksort(\a, \pivot = a.pick) {
my %prt{Order} is default([]) = a.classify: * cmp pivot;
|samewith(%prt{Less}), |%prt{Same}, |samewith(%prt{More})
}
#| Recursive, parallel, random pivot, single-pass, quicksort implementation
multi quicksort-parallel-naive(List \a where a.elems < 2 --> List) { a }
multi quicksort-parallel-naive(List \a, \pivot = a.pick --> List) {
my %prt{Order} is default([]) = a.classify: * cmp pivot;
my Promise $less = start { samewith(%prt{Less}) }
my $more = samewith(%prt{More});
await $less andthen |$less.result, |%prt{Same}, |$more;
}
my @algorithms-under-test = &quicksort, &quicksort-parallel-naive;
##############################################
# test algorithms
use Test;
my UInt $batch = 1;
my UInt $degree = max 2, $*KERNEL.cpu-cores - 1;
plan @algorithms-under-test.elems;
given <3 4 a z 🎮 🐧> {
@algorithms-under-test.pick(*).race(:$batch, :$degree).map: -> &algo {
is-deeply &algo($_), .sort, "{&algo.name} vs. build-in sort";
}
}
done-testing;
##############################################
# run algorithms on STDIN
gather {
given $*IN.words -> @unsorted {
LEAVE {dd @unsorted}
take hyper for @algorithms-under-test {
.name, .(@unsorted)
}
}
} andthen .deepmap: *.say
