Prolog Summe die Zahl in der Liste.

Wie Summe alle ungeraden positionierte Elemente in einer Liste

Beispiel [1,2,3,4,5,6,7,8,9] = 25

odd([],0].
odd([Z],Z).
odd([X,Y|T], Sum+1):- odd(T,Sum).

aber es wieder mich 1+3+5+7+9.

InformationsquelleAutor user236501 | 2011-11-09
  1. 2

    Was Sie konstruieren, wenn Sie schreiben Sum+1 ist ein term mit Funktor '+'/2 und Argumente Sum und 1.

    Im Prolog, wenn Sie berechnen möchten, eine Summe, die Sie brauchen, um das Prädikat is/2.

    In Ihrem code, Sie sollten auch Schnitte zum entfernen überflüssiger choicepoints, und fügen Sie X den rest der Summe, nicht 1:

    odd([],0) :- !.
odd([Z],Z) :- !.
odd([X,_|T],Sum):- odd(T,Sum0), Sum is Sum0+X.

    Verwendung eines Akkumulators würde Ihnen erlauben, um die code-tail-recursive...

    • Ich bekam false zurück, mit Ihrer Methode. Dank
    • Ich vergaß die Sum parameter in der Dritten Klausel. Vielen Dank für die Mitteilung von mir. Ich bearbeitete die Antwort.
    InformationsquelleAutor twinterer
  2. 3

    In prolog verwenden Sie die is Betreiber, wenn Sie auswerten wollen arithmetische Ausdrücke. Da verwenden Sie den + symbol außerhalb eines arithmetischen Bereich ist es nicht speziell interpretiert. Dies scheint zu sein, Hausaufgaben machen, also gebe ich ein Vereinfachtes Beispiel:

    add(A, B, C) :- C is A + B.

    Den code oben fügt A und B und speichert das Ergebnis in C.

    • ungerade([],0]. ungerade([Z],Z). ungerade([X,Y|T], Summe):- Summe 1 ist Summe + X, ungerade(T,Summe 1 ). Ist das richtig, aber ich habe Fehler wird das Programm auszuführen.
    InformationsquelleAutor Stephan202
  3. 0

    Erhalten eine Liste mit den ungeraden Elemente, dann die Summe, die Liste:

    divide([], [], []).
divide([H|T], [H|L1], L2) :- divide(T, L2, L1).

sum(L, Sum) :- sum(L, 0, Sum).

sum([], Acu, Acu).
sum([H|T], Acu, Acu1) :-
  Acu2 is Acu + H,
  sum(T, Acu2, Acu1).

sum_odd(L, Sum) :-
  divide(L, Odds, _),
  sum(Odds, Sum).

:- sum_odd([1,2,5,6,8,9,1], Sum), writeln(Sum).
    InformationsquelleAutor salva
  4. 0
    sum([],0).
sum([H|T],N) :-
       sum(T,M), N is H + M.
    InformationsquelleAutor user1400451
Schreibe einen Kommentar