langs a-z

Task/100-doors/PowerShell/100-doors-1.psh

@@ -0,0 +1,14 @@
+$doors = @(0..99)
+for($i=0; $i -lt 100; $i++) {
+  $doors[$i] = 0  # start with all doors closed
+}
+for($i=0; $i -lt 100; $i++) {
+  $step = $i + 1
+  for($j=$i; $j -lt 100; $j = $j + $step) {
+    $doors[$j] = $doors[$j] -bxor 1
+  }
+}
+foreach($doornum in 1..100) {
+  if($doors[($doornum-1)] -eq $true) {"$doornum open"}
+  else {"$doornum closed"}
+}

Task/100-doors/PowerShell/100-doors-2.psh

@@ -0,0 +1,2 @@
+$doors = 1..100 | ForEach-Object {0}
+1..100 | ForEach-Object { $a=$_;1..100 | Where-Object { -not ( $_ % $a )  } | ForEach-Object { $doors[$_-1] = $doors[$_-1] -bxor 1 }; if ( $doors[$a-1] ) { "door opened" } else { "door closed" } }

Task/100-doors/PowerShell/100-doors-3.psh

@@ -0,0 +1,3 @@
+$doors = 1..100 | ForEach-Object {0}
+$visited = 1..100
+1..100 | ForEach-Object { $a=$_;$visited[0..([math]::floor(100/$a)-1)] | Where-Object { -not ( $_ % $a )  } | ForEach-Object { $doors[$_-1] = $doors[$_-1] -bxor 1;$visited[$_/$a-1]+=($_/$a) }; if ( $doors[$a-1] ) { "door opened" } else { "door closed" } }