Another update from ingydotnet^djgoku

Task/Linear-congruential-generator/PowerShell/linear-congruential-generator.psh

@@ -0,0 +1,24 @@
+Function msstate{
+    Param($current_seed)
+    Return (214013*$current_seed+2531011)%2147483648}
+
+Function randMS{
+    Param($MSState)
+    Return [int]($MSState/65536)}
+
+Function randBSD{
+    Param($BSDState)
+    Return (1103515245*$BSDState+12345)%2147483648}
+
+Write-Host "MS: seed=0"
+$seed=0 #initialize seed
+For($i=1;$i-le5;$i++){
+    $seed = msstate($seed)
+    $rand = randMS($seed)
+    Write-Host $rand}
+
+Write-Host "BSD: seed=0"
+$seed=0 #initialize seed
+For($j=1;$j-le5;$j++){
+    $seed = randBSD($seed)
+    Write-Host $seed}