2016 Update

Task/Unbias-a-random-generator/PowerShell/unbias-a-random-generator-1.psh

@@ -0,0 +1,15 @@
+function randN ( [int]$N )
+    {
+    [int]( ( Get-Random -Maximum $N ) -eq 0 )
+    }
+
+function unbiased ( [int]$N )
+    {
+    do  {
+        $X = randN $N
+        $Y = randN $N
+        }
+    While ( $X -eq $Y )
+
+    return $X
+    }

Task/Unbias-a-random-generator/PowerShell/unbias-a-random-generator-2.psh

@@ -0,0 +1,15 @@
+$Tests = 1000
+ForEach ( $N in 3..6 )
+    {
+    $Biased   = 0
+    $Unbiased = 0
+
+    ForEach ( $Test in 1..$Tests )
+        {
+        $Biased   += randN $N
+        $Unbiased += unbiased $N
+        }
+    [pscustomobject]@{ N = $N
+                       "Biased Ones out of $Test" = $Biased
+                       "Unbiased Ones out of $Test" = $Unbiased }
+    }