IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau membre du Club
    Femme Profil pro
    informatique
    Inscrit en
    Août 2018
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 27
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Août 2018
    Messages : 26
    Points : 32
    Points
    32
    Par défaut une fonction qui construit à partir d'une liste, une liste sans les éléments qui commencent par une lettre
    Bonjour,

    Je dois faire une fonction qui construit, à partir d'une liste, une liste sans les éléments qui commencent par une lettre donnée, en utilisant les fonctions 'string' et 'char' comme par exemple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    (supprime'n '(art nez pied nez prendre silence nu)) => (art pied prendre silence)
    Voila ce que j'ai fait pour l'instant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    (defun supprime (x list)
    (cond
    ((not list) nil)
    ((equal (char (string (car list))0) #\X)(supprime (char (string(cdr list))0)#\X)
    (t (cons (char (string (car list))0)#\X) (supprime (char(string (cdr list))0)#\X) ) )
    Mais il me retourne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    (supprime 'r '(ri de me))
    NIL

    j'ai fait aussi :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    (defun supprime (r list)
    (cond
    ((not list) nil)
    ((equal (char (string (car list))0) #\R)(supprime r (cdr list)))
    (t (cons (car list) (supprime r (cdr list)))) ) )
    mais il me retourne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    (supprime 'd '(ri de me))
    (DE ME)
    (supprime 'm '(ri de me))
    (DE ME)
    Qu'est ce que j'ai fait de mal ?

  2. #2
    Nouveau membre du Club
    Femme Profil pro
    informatique
    Inscrit en
    Août 2018
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 27
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Août 2018
    Messages : 26
    Points : 32
    Points
    32
    Par défaut
    j'ai aussi tenté ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    (defun my-remove (r list)
    (cond
    ((not list) nil)
    ((equal (char (string(car list))0) #\R)(my-remove #\R (cdr list)))
    (t (cons (car list) (my-remove #\R (cdr list)))) ) )
    Aucun effet

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     (my-remove 'e '(er ri re))
    (ER)
    [5]> (my-remove 'r '(er ri re))
    (ER)
    [6]> (my-remove 'e '(er  ri er))
    (ER ER)

  3. #3
    Membre actif
    Homme Profil pro
    Inscrit en
    Mai 2013
    Messages
    152
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Mai 2013
    Messages : 152
    Points : 275
    Points
    275
    Par défaut
    La deuxième définition est presque correcte. La voilà corrigée :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    (defun supprime (r list)
      (let ((c (char (string r) 0)))
        (cond
         ((endp list) nil)
         ((char= (char (string (car list)) 0) c) (supprime r (cdr list)))
         (t (cons (car list) (supprime r (cdr list)))))))
    En lisp, il y a des caractères et des chaînes qui sont vecteurs de caractères. On peut utiliser un caractère particulier dans le code en préfixant #\ . C’est-à-dire, #\X est une majuscule particulier, de la même facon comme, par exemple, 21 est un nombre particulier ; ça n’a rien à faire avec des variables. Dans ton code, il semble que tu confondes le caractère #\R et la variable r.

    En lisp, il y a aussi des symboles. C’est un type de données distinct. Chaque symbole a un nom qui est une chaîne. Par exemple, le nom du symbole
    est la chaîne "SUPPRIME". Donc, il est possible de representer les chaînes par des symboles, mais c’est plutôt une mauvaise idée (s’il n’y a pas de justification convaincante). Dans ton problème, tu utilises des symboles non seulement à la place des chaînes, mais aussi à la place des caractères individuels, ce qui est un mauvais chois de types de données (je suppose que ce n’est pas ta faute). Si l’argument de la fonction est le symbole n, la fonction obtient d’abord son nom "N" en utilisant string et ensuite, le premier caractère de la chaîne en utilisant char. Moi, j’ai gardé cette valeur dans une variable.

    Il vaut mieux écrire en Emacs
    https://portacle.github.io/
    pour que le code soit bien formaté. On met un blanc devant un groupe de parenthèses ouvrantes, mais pas derrière; au contraire, on met un blanc derrière un group de parenthèses fermantes mais pas devant.

    Le prédicat equal sert plutôt pour comparer des données composées telles comme vecteurs. Il existe la fonction char= pour comparer les caractères, ou bien on peut employer la fonction générale eql.

    not est une fonction logique. Avec les listes, il vaut mieux employer endp ou null (celle-ci est un synonyme de not mais employer pour tester si un objet est nil ou pas).

  4. #4
    Nouveau membre du Club
    Femme Profil pro
    informatique
    Inscrit en
    Août 2018
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 27
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Août 2018
    Messages : 26
    Points : 32
    Points
    32
    Par défaut
    Merci infiniment, tous devient plus claire maintenant.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 12
    Dernier message: 17/02/2010, 17h59
  2. Valider les $_POST en masse par une fonction
    Par Marshall_Mathers dans le forum Langage
    Réponses: 4
    Dernier message: 16/09/2007, 00h02
  3. appeler une fonction js a partir d'un lien
    Par crocodingo dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 26/06/2007, 11h38
  4. Comment appeller une fonction dynamiquement, à partir d'un argument
    Par Invité dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 23/04/2006, 17h47
  5. [PHP-JS] comment lancer une fonction javascript a partir de php
    Par amika dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 06/06/2005, 20h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo