Perfekte Nummer in Prolog

Question

Also versuche ich in Prolog herauszufinden, wie man eine Eingabe nimmt und ob es eine perfekte Zahl ist oder nicht. Momentan bin ich in der Nähe, kann aber nicht herausfinden, warum es nicht so funktioniert, wie ich es möchte. Ich nähere mich diesem durch Rekursion. Wenn X% N == 0 ist, dann werden N und TT (gesamt) zu TT1 addiert. N um eins verringert wird und die Funktion wird rekursiv aufgerufen werden, bis er 1 erreicht, dann wird die Summe auf die Eingangsnummer X verglichen werden Mein Code ist:

factors(X,N,TT) :- 
    ( 0 is X mod N -> TT1 is N + TT), 
    TT = TT1, 
    ( N > 1 -> N1 is N-1, factors(X, N1, TT1) 
    ; TT1 = X 
    ). 

perfect(X) :- 
    factors(X, X-1, 0). 

Derzeit ist es der Rückkehr, dass alle Eingaben falsch sind . Ich hoffe, das ist nicht inkorrekt und muss nur optimiert werden. Es sieht aus wie in `Faktoren/3`,` TT` ist bereits gebunden (über den Anruf)

Prost

Answer 1

Hier ein Lösungen, hoffen, dass es

factors(_,N,N,_). 
factors(X,N,NT,Sum):- 
    N < NT, 
    ( 0 is X mod N -> 
     Sum1 = Sum + N 
    ; Sum1 = Sum), 
    N1 is N + 1, 
    factors(X,N1,NT,Sum1). 

perfect(X):- 
    XT is X/2 + 1, 
    factors(X,1,XT,0).