<#
.SYNOPSIS
        Measures the speed of CountingSort
.DESCRIPTION
        This PowerShell script measures the speed of the CountingSort algorithm.
        CountingSort is an algorithm for sorting a collection of objects according to keys
	that are small positive integers; that is, it is an integer sorting algorithm. It
	operates by counting the number of objects that possess distinct key values, and
	applying prefix sum on those counts to determine the positions of each key value in
	the output sequence. Its running time is linear in the number of items and the difference
	between the maximum key value and the minimum key value, so it is only suitable for direct
	use in situations where the variation in keys is not significantly greater than the number
	of items. It is often used as a subroutine in radix sort, another sorting algorithm, which
	can handle larger keys more efficiently.
.PARAMETER numIntegers
        Specifies the number of integers to sort
.EXAMPLE
        PS> ./measure-CountingSort.ps1
        🧭 Sorting 1000 integers by CountingSort took 0.0454597 sec
.LINK
        https://github.com/fleschutz/PowerShell
.NOTES
        Author: Markus Fleschutz | License: CC0
#>

param([int]$numIntegers = 1000)

class CountingSort {
    static Sort($targetList) {
        $min = 0
        $max = 0

        for ($counter = 0; $counter -lt $targetList.Count; $counter++) {
            if ($targetList[$counter] -lt $min) { $min = $targetList[$counter] }
            if ($targetList[$counter] -gt $max) { $max = $targetList[$counter] }
        }

        $arrayBucket = New-Object int[] ($max - $min + 1)

        for ($counter = 0; $counter -lt $targetList.Count; $counter++) {
            $arrayBucket[$targetList[$counter]]++;
        }

        $lastPosition = 0
        for ($counter = 0; $counter -lt $arrayBucket.Count ; $counter++) {
            for ($innerCounter = 0; $innerCounter -lt $arrayBucket[$counter]; $innerCounter++) {
                $targetList[$lastPosition++] = $counter
            }
        }
    }
}

$list = (1..$numIntegers | foreach{Get-Random -minimum 1 -maximum $numIntegers})
$stopWatch = [system.diagnostics.stopwatch]::startNew()
[CountingSort]::Sort($list)
[float]$elapsed = $stopWatch.Elapsed.TotalSeconds
"🧭 Sorting $numIntegers integers by CountingSort took $elapsed sec"
exit 0 # success