Comparatif de chaînes de caractères : motmagique

Introduction

Demander à l'utilisateur d'entrer un mot (sur la même ligne que la question - ce qui oblige à désactiver la mise en mémoire tampon), et comparer.
Si le mot entré est le bon, alors le programme répond BRAVO, sinon il répond ERREUR.

Créer le programme motmagique.hs

import System.IO

-- Demande à l'utilisateur d'entrer un mot
main :: IO ()
main = do
hSetBuffering stdout NoBuffering -- Désactive la mise en mémoire tampon pour la sortie standard
putStr 'Entrez un mot : ' -- Affiche l'invite sans retour à la ligne
mot <- getLine -- Lit la saisie de l'utilisateur
-- Vérifie si le mot est 'magique' ou non
if mot == 'magique'
then putStrLn 'BRAVO'
else putStrLn 'ERREUR'

Compiler

ghc motmagique.hs

Exécuter

./motmagique

↑ Haut de page