Wims raadsel.ps1

function Match([string]$x, [string]$y) {
  if ($x.Length -ne $y.Length) { return '' }
  $result = ''
  @(0..($x.Length - 1)) | %{
    if ($x[$_] -eq $y[$_]) {
      $result += '*'
    } elseif ($y.Contains($x[$_])) {
      $result += '?'
    } else {
      $result += '.'
    }
  }
  $result
}

function Right([string]$x, [string]$y) {
    $m = Match $x $y
    ($m.ToCharArray() -eq '*').Count
}

function Wrong([string]$x, [string]$y) {
    $m = Match $x $y
    ($m.ToCharArray() -eq '?').Count
}

@(0..999) | ?{
    (Wrong '147' $_) -eq 1 `
    -and (Right '189' $_) -eq 1 `
    -and (Wrong '964' $_) -eq 1 `
    -and (Right '523' $_) -eq 0 -and (Wrong '523' $_) -eq 1 `
    -and (Wrong '286' $_) -eq 1
}