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

Lisp Discussion :

Comment simplifier mon code


Sujet :

Lisp

  1. #1
    Nouveau membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2020
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2020
    Messages : 34
    Points : 28
    Points
    28
    Par défaut Comment simplifier mon code
    Bonjour à tous,

    Je dois faire une fonction qui modifie une liste pour ne garder que les éléments qui commencent par une lettre donnée.
    Par exemple :
    (setq atomes '(pierre feuille ciseaux perdu jeu))
    et ne retenir que ceux commençant par P ...

    Voici ce que j'ai fait :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    (defun commence-par (lettre liste)
        (cond 
            ((atom liste) nil)
            ((and (car liste) (equal (char (string (car liste)) 0) (char (string lettre) 0)))
                (rplacd liste (commence-par lettre (cdr liste))) )
            ((not (equal (char (string (car liste)) 0) (char (string lettre) 0))) 
                (commence-par lettre (cdr liste))) ) )
    Merci pour votre aide et vos explications.

  2. #2
    Nouveau Candidat au Club
    Homme Profil pro
    Amateur
    Inscrit en
    Juillet 2022
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Amateur

    Informations forums :
    Inscription : Juillet 2022
    Messages : 1
    Points : 1
    Points
    1
    Par défaut
    Salut,

    Plutôt que rplacd, qui va modifier la liste passé en argument (effet de bord), utilise la valeur renvoyée par la fonction.
    La dernière condition de cond est inutile: dès qu'une condition est remplie, cond évalue le code correspondant mais pas la suite. Un simple t suffit.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    * (defun rm (e lst)
        (cond
          ((atom lst) nil)
          ((equal e (car lst)) (rm e (cdr lst)))
          (t (cons (car lst) (rm e (cdr lst)))
        ))
      )
    RM
     
    * (rm 'pierre '(pierre paul jacques))
    (PAUL JACQUES)
    Que tu adaptes à ta sauce.

  3. #3
    Nouveau membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2020
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2020
    Messages : 34
    Points : 28
    Points
    28
    Par défaut
    Merci beaucoup !

Discussions similaires

  1. Réponses: 1
    Dernier message: 09/08/2015, 19h10
  2. Comment simplifier mon code javascript?
    Par Nighthawk dans le forum jQuery
    Réponses: 2
    Dernier message: 15/07/2015, 11h15
  3. [XL-2007] Comment simplifier mon code VBA SVP?
    Par anthooooony dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 20/02/2012, 11h59
  4. Comment pourrais-je simplifier mon code
    Par pierrot10 dans le forum jQuery
    Réponses: 1
    Dernier message: 28/08/2010, 10h30
  5. [Sécurité] Comment amélioré mon code ?
    Par Nadd dans le forum Langage
    Réponses: 14
    Dernier message: 03/03/2006, 21h13

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