Nonogram row

nonogram-row.ps1

# Author: Jakub Šindelář megastary@houby-studio.eu
# Date: 2021-06-25

# Solution definition
function nonogramrow {
  [CmdletBinding()]
  param (
    [Parameter()]
    [ValidateRange(0, 1)]
    [Int32[]]$BinaryArray
  )
  $Result = @()
  $PositiveLength = 0
  foreach ($Value in $BinaryArray) {
    if ($Value -eq 1) {
      $PositiveLength++
    }
    else {
      if ($PositiveLength -gt 0) {
        $Result += $PositiveLength
        $PositiveLength = 0
      }
    }
  }
  if ($PositiveLength -gt 0) {
    $Result += $PositiveLength
  }
  return [System.Array]$Result
}

nonogram-row.Tests.ps1

# Test result with Pester
# Install with: Install-Module Pester -MinimumVersion 4.0.0 -Force -SkipPublisherCheck

# Import tested script
BeforeAll { 
  . $PSCommandPath.Replace('.Tests.ps1', '.ps1')
}

Describe 'nonogramrow' {
  Context 'no parameters' {
    It 'returns nothing or 0' {
      nonogramrow('') | Should -BeIn @($null, 0)
    }
  }

  Context '[0, 0, 0, 0, 0]' {
    It 'returns nothing or 0' {
      nonogramrow(0, 0, 0, 0, 0) | Should -BeIn @($null, 0)
    }
  }

  Context '[1, 1, 1, 1, 1]' {
    It 'returns 5' {
      nonogramrow(1, 1, 1, 1, 1) | Should -Be @(5)
    }
  }

  Context '[0,1, 1, 1, 1, 1, 0, 1, 1, 1, 1]' {
    It 'returns 5, 4' {
      nonogramrow(0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1) | Should -Be @(5, 4)
    }
  }

  Context '[1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0]' {
    It 'returns 2, 1, 3' {
      nonogramrow(1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0) | Should -Be @(2, 1, 3)
    }
  }

  Context '[0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1]' {
    It 'returns 2, 1, 3' {
      nonogramrow(0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1) | Should -Be @(2, 1, 3)
    }
  }

  Context '[1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1]' {
    It 'returns 1, 1, 1, 1, 1, 1, 1, 1' {
      nonogramrow(1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1) | Should -Be @(1, 1, 1, 1, 1, 1, 1, 1)
    }
  }
}

This gist is my PowerShell solution to challenge https://old.reddit.com/r/dailyprogrammer/comments/o4uyzl/20210621_challenge_395_easy_nonogram_row/