cptbon(L,X):-
cptf(L,L2),
dans(L2,X),
cptfa(L,L2).
dans([X|_],X).
dans([_|L],X):-
dans(L,X).
cptfa(L,L).
cptfa(L1,L2):-
cpt(L1,L3),
cptfa(L3,L2),
write(L3),nl.
cptf(L,L).
cptf(L1,L2):-
cpt(L1,L3),
cptf(L3,L2).
cpt([X|Q1],[X|Q2]):-
cpt(Q1,Q2).
cpt([X|Q1],Q2):-
cpt2(X,Q1,Q2).
cpt2(X,[A|Q1],[A|Q2]):-
cpt2(X,Q1,Q2).
cpt2(X,[Y|Q1],[Z|Q1]):-
Z is X+Y;
X>Y, Z is X-Y;
X<Y, Z is Y-X;
Z is X*Y;
X>Y,0 is X mod Y, Z is X/Y;
X<Y,0 is Y mod X, Z is Y/X.
Concernant votre conférence d'introduction aux LL. Je peux vous proposer
de dispenser la présentation suivante que j'ai fait à Lille devant une centaine d'étudiants : http://agora.apinc.org/media/dial06ll.pdf
Elle s'est bien déroulée. Cette présentation nécessite 1h15mn et elle correspond au cahier des charges établit par Ludwig.
[^] # En Prolog
Posté par DIAL . En réponse à la dépêche Kitsune 2.0 : jeu de lettres et de chiffres. Évalué à 3.
mettre par ex
cptbon([2,3,25,7,1,3],347).
*/
cptbon(L,X):-
cptf(L,L2),
dans(L2,X),
cptfa(L,L2).
dans([X|_],X).
dans([_|L],X):-
dans(L,X).
cptfa(L,L).
cptfa(L1,L2):-
cpt(L1,L3),
cptfa(L3,L2),
write(L3),nl.
cptf(L,L).
cptf(L1,L2):-
cpt(L1,L3),
cptf(L3,L2).
cpt([X|Q1],[X|Q2]):-
cpt(Q1,Q2).
cpt([X|Q1],Q2):-
cpt2(X,Q1,Q2).
cpt2(X,[A|Q1],[A|Q2]):-
cpt2(X,Q1,Q2).
cpt2(X,[Y|Q1],[Z|Q1]):-
Z is X+Y;
X>Y, Z is X-Y;
X<Y, Z is Y-X;
Z is X*Y;
X>Y,0 is X mod Y, Z is X/Y;
X<Y,0 is Y mod X, Z is Y/X.
# Proposition
Posté par DIAL . En réponse à la dépêche Appel à conférenciers. Évalué à 2.
Concernant votre conférence d'introduction aux LL. Je peux vous proposer
de dispenser la présentation suivante que j'ai fait à Lille devant une centaine d'étudiants :
http://agora.apinc.org/media/dial06ll.pdf
Elle s'est bien déroulée. Cette présentation nécessite 1h15mn et elle correspond au cahier des charges établit par Ludwig.
Max.
# Apologie du Don à l'étalage
Posté par DIAL . En réponse à la dépêche La neutralité commerciale de l'école publique est-elle soluble dans le numérique ?. Évalué à 2.
# C'EST LE HTML QU'ON ASSASSINE !
Posté par DIAL . En réponse à la dépêche S5 : système de présentation utilisant les standards Web. Évalué à -10.
http://www.uzine.net/article1979.html(...)
Votre avis ?
dial@