Day 9-2 and 10 Dev work

Day10/Day10-1.ps1

···
+$inFile = $args[0]
+$inRaw = Get-Content $inFile
+
+class machine {
+  [char[]] $lights
+  [System.Collections.ArrayList] $buttons
+  [int[]] $joltage
+  
+  [string] ToString() {
+    $str = ""
+    $btnNum = 0
+    $str += "LIGHTS: $($this.lights)`n"
+    $this.buttons | ForEach-Object {
+      $str += "BUTTON $btnNum activates lights $($_.Lights)`n"
+    }
+    $str += "JOLTAGES: $($this.joltage)"
+    return $str
+  }
+
+  [bool] TestButtons( [int[]] $PressedButtons ) {
+    try {
+      [char[]] $res = @()
+      0..($this.lights.Length - 1) | ForEach-Object {
+        $res += '.'
+      }
+      $PressedButtons | forEach-Object {
+        $foo = $_
+        $btn = $this.buttons[$foo]
+        $btn.Lights | ForEach-Object {
+          $bar = $_
+          switch ($res[$bar]) {
+            '#' {$res[$bar] = '.'; break}
+            '.' {$res[$bar] = '#'; break}
+          }
+        }
+
+        Write-Host ("After button {0} is pressed, lights are {1}" -f $foo,[string]$res)
+      }
+      Write-Host ("RESULT: {0}`nLIGHTS: {1}" -f [string]$res,[string]$this.lights)
+      return ([string]$res -eq [string]$this.lights)
+
+    }
+    catch {
+      $foo = $Error[0].Exception.Message
+      Write-Host "TestButtons failed due to error: $foo"
+      return $false
+    }
+  }
+
+}
+
+class button {
+  [int[]] $Lights
+}
+
+$machines = New-Object System.Collections.ArrayList
+
+$inRaw | ForEach-Object {
+  $split = $_.split(" ")
+  $tempMach = New-Object machine
+  $tempMach.buttons = New-Object System.Collections.ArrayList
+  $tempMach.lights = $split[0].Substring(1,($split[0].Length - 2)).ToCharArray()
+  1..($split.Length - 2) | ForEach-Object {
+    $foo = New-Object button
+    $split[$_].Substring(1, ($split[$_].Length - 2)).Split(",") | ForEach-Object {$foo.Lights += [int]$_}
+    $tempMach.buttons.Add($foo) | Out-Null
+  }
+  $joltageStr = $split[-1].Substring(1,($split[-1].Length - 2))
+  $joltageStr.Split(",") | ForEach-Object {
+    $tempMach.joltage += $_
+  }  
+
+  $machines.Add($tempMach) | Out-Null
+}
+
+$machines | ForEach-Object {
+  Write-Host $_
+}
+
+$testbuttons = @(0,1,2)
+$test1 = $machines[0].TestButtons($testbuttons)
+Write-Host "Results of $testbuttons on machine[0] is $test1."

Day10/sample.txt

···
+[.##.] (3) (1,3) (2) (2,3) (0,2) (0,1) {3,5,4,7}
+[...#.] (0,2,3,4) (2,3) (0,4) (0,1,2) (1,2,3,4) {7,5,12,7,2}
+[.###.#] (0,1,2,3,4) (0,3,4) (0,1,2,4,5) (1,2) {10,11,11,5,10,5}

Day9/Day9-2.ps1

···
+$inFile = $args[0]
+$inRaw = Get-Content $inFile
+
+$TileRows = @()
+$TileCols = @()
+
+$inRaw | ForEach-Object {
+  $split = $_.Split(',')
+  $tileRows += [int]$split[0]
+  $tileCols += [int]$split[1]
+}
+
+function GetArea {
+  param( [int]$ind1, [int]$ind2 )
+  $width = [Math]::Abs($tileRows[$ind1] - $tileRows[$ind2]) + 1
+  $height = [Math]::Abs($tileCols[$ind1] - $tileCols[$ind2]) + 1
+
+  return $height * $width
+}
+
+function CheckArea {
+  param( [int]$ind1, [int]$ind2 )
+  $pass = $true
+
+  if ($tileRows[$ind1] -gt $tileRows[$ind2]) {
+    $Rowstart = $tileRows[$ind1]
+    $Rowend = $tilerows[$ind2]
+  }
+  else {
+    $Rowstart = $tileRows[$ind2]
+    $Rowend = $tileRows[$ind1]
+  }
+
+  if ($tilecols[$ind1] -gt $tilecols[$ind2]) {
+    $colstart = $tilecols[$ind1]
+    $colend = $tilecols[$ind2]
+  }
+  else {
+    $colstart = $tilecols[$ind2]
+    $colend = $tilecols[$ind1]
+  }
+
+  $rowstart..$rowend | ForEach-Object {
+    $foo = $_
+    $colstart..$colend | ForEach-Object {
+      $bar = $_
+
+      if ($floor[$foo][$bar] -eq '.') {
+        $pass = $false
+      }
+    }
+  }
+
+  return $pass
+}
+
+$maxArea = 0
+$MaxInd1 = 0
+$MaxInd2 = 0
+
+<#
+0..$($TileRows.Count - 2) | ForEach-Object {
+  $foo = $_
+  1..$($TileRows.Count - 1) | ForEach-Object {
+    $area = GetArea $foo $_
+    if ($area -gt $maxArea) {
+      $maxArea = $area
+      $MaxInd1 = $foo
+      $MaxInd2 = $_
+    }
+  }
+}
+
+Write-Host ("Max area is {0} with tiles at indices ({1}, {2}) and ({3},{4})." -f $maxArea,$tileRows[$MaxInd1],$TileCols[$MaxInd1],$TileRows[$MaxInd2],$TileCols[$MaxInd2])
+#>
+
+# Get Min and Max of Arrays
+$rowMin = [int]::MaxValue
+$rowmax = 0
+$colmin = [int]::MaxValue
+$colmax = 0
+
+$tileRows | ForEach-Object {
+  ($_ -lt $rowMin) ? $($rowMin = $_) : $null
+  ($_ -gt $rowMax) ? $($rowMax = $_) : $null
+}
+
+$tileCols | ForEach-Object {
+  ($_ -lt $colMin) ? $($colMin = $_) : $null
+  ($_ -gt $colMax) ? $($colMax = $_) : $null
+}
+
+# Reduce values based on minimums
+0..$($TileRows.Count -1 ) | ForEach-Object {
+  $TileRows[$_] -= $rowMin
+  $TileCols[$_] -= $colmin
+}
+$RowMax -= $rowMin
+$colmax -= $colmin
+$rowMin = 0
+$colmin = 0
+
+# Create Floor
+$floor = @($null)
+0..$rowMax | ForEach-Object {
+  $foo = $_
+  $floor += @($null)
+  0..$colMax | ForEach-Object {
+    $floor[$foo] += ,'.'
+  }
+}
+
+# Drop first tile
+$floor[$tileRows[0]][$TileCols[0]] = '#'
+#For every other tile, move from last tile to current tile and drop tiles along the way.
+1..$($TileRows.Count - 1) | ForEach-Object {
+  $rowcurrent = $tileRows[$_]
+  $rowlast = $tilerows[$_ - 1]
+  $colcurrent = $Tilecols[$_]
+  $collast = $TileCols[$_ - 1]
+
+  $rowlast..$rowcurrent | ForEach-Object {
+    $foo = $_
+    $collast..$colcurrent | ForEach-Object {
+      $bar = $_
+      $floor[$foo][$bar] = '#'
+    }
+  }
+}
+#Move from final tile to start
+$rowcurrent = $tileRows[0]
+$rowlast = $tilerows[$tilerows.Count - 1]
+$colcurrent = $Tilecols[0]
+$collast = $TileCols[$tilerows.Count - 1]
+
+$rowlast..$rowcurrent | ForEach-Object {
+  $foo = $_
+  $collast..$colcurrent | ForEach-Object {
+    $bar = $_
+    $floor[$foo][$bar] = '#'
+  }
+}
+
+
+# Row by row, Fill in blank spaces
+0..$($floor.Count - 2) | ForEach-Object {
+  $inside = $false
+  $foo = $_
+  Write-Host $floor[$foo]
+  0..$($floor[$foo].Count - 2) | ForEach-Object {
+    $bar = $_
+    Write-Host $floor[$foo][$bar]
+    switch ($floor[$foo][$bar]) {
+      '.' {$inside ? $($floor[$foo][$bar] = '#') : $null}
+      '#' {$inside ? $($inside = $false) : $(if ($floor[$foo][$bar + 1] -eq '.') {$inside = $true})}
+    }
+  }
+}
+
+
+$floor | ForEach-Object {
+  $_ | ForEach-Object {
+    Write-Host $_ -NoNewline
+  }
+  Write-Host ""
+}