# Dictionnaire de traduction de caractères en code Morse
$morseCode = @{
    'M' = '--'; 'N' = '-.' ; 'O' = '---'; 'P' = '.--.'
    'Q' = '--.-'; 'R' = '.-.' ; 'S' = '...'
}

# Demander à l'utilisateur de saisir la séquence de caractères à traduire
$inputSequence = Read-Host -Prompt "Entrez une séquence de 1 à 4 caractères (M à S)"

# Vérifier que la séquence saisie est valide
if ($inputSequence.Length -le 4 -and $inputSequence -cmatch '^[M-S]+$') {
    # Traduire chaque caractère en code Morse et afficher le résultat à l'écran
    $morseSequence = $inputSequence.ToUpper() -split '' | ForEach-Object { $morseCode[$_] } -join ' '
    Write-Host "Séquence saisie : $inputSequence"
    Write-Host "Séquence en code Morse : $morseSequence"
} else {
    Write-Host "Séquence invalide. Veuillez saisir une séquence de 1 à 4 caractères (M à S)."