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

Prolog Discussion :

Concaténation sans flatten


Sujet :

Prolog

  1. #1
    Futur Membre du Club
    Inscrit en
    Mai 2009
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Mai 2009
    Messages : 6
    Points : 5
    Points
    5
    Par défaut Concaténation sans flatten
    Bonjour,
    j'essaie de créer une fonction qui découvre des relations:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    related(a,b,rel1).
    related(b,c,rel47).
    related(c,d,rel19).
     
    flatten(Xs,Ys):-flatten(Xs,[],Ys).
    flatten([X|Xs],S,Ys):-list(X),flatten(X,[Xs|S],Ys).
    flatten([X|Xs],S,[X|Ys]):-atomic(X),X\=[],flatten(Xs,S,Ys).
    flatten([],[X|S],Ys):-flatten(X,S,Ys).
    flatten([],[],[]).
     
    relation(X,Y,Z):-related(X,Y,Z).
    relation(X,Y,Z):-related(X,M,R1),relation(M,Y,R2),append([R1],[R2],T),flatten(T,Z).
    Ca fonctionne:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    ?- relation(a,d,X).
     
    X = [rel1,rel47,rel19] (0.000 sec) ;
     
    no
    mais c'est très laid...

    Sans flatten ca me donne [ab,[bc,cd]] parce que je n'arrive pas à écrire la dernière ligne de "relation" correctement. Ca fait une soirée complète maintenant, si quelqu'un pourrait m'aiguiller, ca serait très sympa.

    Merci d'avance

  2. #2
    Rédacteur/Modérateur
    Avatar de Trap D
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    4 942
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2003
    Messages : 4 942
    Points : 6 498
    Points
    6 498
    Par défaut
    Essaye ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    relation(X,Y,[Z]):-related(X,Y,Z).
    relation(X,Y,[R1 | R2]):-
    	related(X,M,R1),
    	relation(M,Y,R2).
    Ton erreur était de mélanger deux types de résultat :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    relation(X,Y,Z):-related(X,Y,Z).
    implique Z est un atome.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    relation(X,Y,Z):-
        related(X,M,R1),
        relation(M,Y,R2),
        append([R1],[R2],T),
        flatten(T,Z).
    implique que Z est une liste.
    "La haine seule fait des choix" - Koan Zen
    "Il ne faut pas être meilleur que les autres, il faut être meilleur que soi." Albert Jacquard
    "Ceux qui savent où ils ont posé leur parapluie ne sont pas alcooliques." - pgibonne.
    Faites du Prolog, ça vous changera les idées !
    Ma page Prolog
    Mes codes sources commentés

    Mon avatar : La Madeleine à la veilleuse de Georges de La Tour

  3. #3
    Futur Membre du Club
    Inscrit en
    Mai 2009
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Mai 2009
    Messages : 6
    Points : 5
    Points
    5
    Par défaut
    De l'horlogerie.... fine.

    Là j'ai appris quelque-chose qui va mettre très, très utile - je n'avais pas songé qu'on pouvait déclarer un argument "list".

    Merci BEAUCOUP

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

Discussions similaires

  1. [AC-2003] Concaténation sans Concat()
    Par PMDragon dans le forum Access
    Réponses: 1
    Dernier message: 17/04/2015, 16h00
  2. [XL-2003] concaténer sans perte de mise en forme
    Par pirot dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 14/12/2011, 00h13
  3. Texte sur plusieurs lignes sans concaténation
    Par Papy214 dans le forum C#
    Réponses: 6
    Dernier message: 29/12/2008, 17h06
  4. Concaténation de tableaux sans doublons
    Par MaT77 dans le forum Langage
    Réponses: 2
    Dernier message: 19/11/2008, 15h04
  5. Réponses: 6
    Dernier message: 27/05/2004, 11h41

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