Question detecter des nombres consecutifs

Un essai :
[code:1]
function Split-Sequence{
#Prerequis: la collection doit être triée
param([int[]]$List)
$Count=$List.Count
$Suite=New-Object System.collections.Arraylist
if ($Count -lt 2)
{
if ($Count -eq 1)
{
Write-debug \"One item send \"
[void]$Suite.Add($List[0])
}
else
{
Write-debug \"Zero item\"
}
#force l'émission d'un tableau d'un élément
return ,@(,$Suite)
}
for ($i = 0; $i -lt ($Count-1); $i++)
{
$Current=$List[$i]
Write-debug \"traite $Current\"
$Next=$List[$i +1]
if (($Current -ne $Next) -and ($Current -eq $Next-1))
{
Write-debug \"Add current sequence $Current\"
[void]$Suite.Add($Current)
}
else
{
[void]$Suite.Add($Current)
Write-debug \"New suite. Send : $suite\"
#implicit Write-output
,$Suite
$Suite=New-Object System.collections.Arraylist
}
}
}# Split-Sequence

$sbTest={
$exemple=$base|sort-object
$Result=Split-Sequence $exemple
$ofs=','
Write-host \"Result.count = $($result.count)\"
$result|% {\"$_\"}
Write-Host ('-' *40)
}

$base=@()
&$sbTest

$base=@(1)
&$sbTest

$base=@(1,1,4,4,33)
&$sbTest

$base=@(1,3,4,5,7,8,23,33,34,35,36,63)
&$sbTest
[/code:1]

usopp écrit:

il prend pas en compte le dernier nombre

Exacte, comme quoi construire un jeux de test n'est pas du luxe.
Ceci résoud ce pb :
[code:1]
for ($i = 0; $i -le ($Count-1); $i++)
[/code:1]