prolog avg der Liste

Habe ich den code, der in der Lage zu berechnen, die avg eine Liste, aber das problem ist nur, es hat Fehler, wenn es ist die leere Liste. Ich möchte den Wert false zurück, wenn die Liste leer ist. irgendein Tip???

avg( List, Avg ):- 
    sum( List, Sum ),
    length( List, Length), 
    Avg is Sum /Length.
InformationsquelleAutor John | 2012-10-06
  1. 3

    Nur eine Bedingung hinzufügen, dass die Liste nicht leer ist, zum Beispiel:

    average( List, Average ):- 
    sum( List, Sum ),
    length( List, Length ),
    Length > 0, 
    Average is Sum /Length.

    Dadurch wird das Prädikat scheitern, was angemessen ist, da der Durchschnitt ist nicht definiert.

    InformationsquelleAutor starblue
  2. 2

    natürlich, Division durch null ist in der Regel nicht erlaubt. Wenn die (per Konvention) der Durchschnitt von 0 Elemente 0 eine Korrektur möglich wäre

    avg( List, Avg ):- 
    sum( List, Sum ),
    length( List, Length), 
    (  Length > 0
    -> Avg is Sum /Length
    ;  Avg is 0
    ).

    Bearbeiten getestet habe ich in SWI-Prolog, ersetzen Summe/2 von sumlist/2

    avg( List, Avg ):-
    sumlist( List, Sum ),
    length( List, Length),
    (  Length > 0
    -> Avg is Sum /Length
    ;  Avg is 0
    ).

    test:

    ?- avg([1,2,3],X).
X = 2.

?- avg([],X).
X = 0.

    Bearbeiten tut mir Leid, habe ich übersehen, dass false erforderlich ist, auf einen leeren input-Liste. Dann ein test, wenn Length > 0 ist sicherlich angebracht. Das Prädikat wird nicht auf das.

    Alternative mit Bibliothek(Aggregat):

    ?- L=[1,2,3,4,5], aggregate((count,sum(N)),member(N,L),(Count,SumN)), Ave is SumN/Count.
L = [1, 2, 3, 4, 5],
Count = 5,
SumN = 15,
Ave = 3.
    • könnte sein, Summe/2 nicht definiert ist ? oder dein Prolog nicht implementiert ->/2 ?. Siehe mein edit...
    • Oh, sorry, tut zu viel Lisp in letzter Zeit und Lesen Sie die ; als Kommentar.
    InformationsquelleAutor CapelliC
  3. 0

    avg( Liste, Avg/1 ):-

    sumlist( List, Sum ),

length( List, Length),

(  Length > 0
-> Avg is Sum /Length
;  Avg is 0
).

    sollten Sie teilen der Durchschnitt von 1.
    wie avg(Liste, Avg/1). Ich habe gerade kopiert es in den oben Kommentare und fügen Sie avg/2.

    InformationsquelleAutor ved viyas
Schreibe einen Kommentar