[GrabkaMan]

Próbuję napisać program w prologu, który będzie wyświetlał elementy listy w nowej linii z automatycznym liczeniem.

Ma wyglądać tak:

% pisz_numer([ala, kot, mama, pies]).
% 1. ala
% 2. kot
% 3. mama
% 4. pies

Napisałem takie coś:

pisz_numer([],0).
pisz_numer([Element|Ogon],Dlug) :- print(Dlug), print(Element), nl, pisz_numer(Ogon,X), Dlug is X+1.

Fajnie zlicza wszystko, ale przy wywołaniu:

pisznumer([ala, kot, auto, pies, kot],X).

Wyświetla mi jakieś dziwy:

91 ?- dlugosc([ala, kot, auto, pies, kot],X).
_G3917ala
_L170kot
_L185auto
_L200pies
_L215kot
X = 5 

Ktoś może pomóc?

#programowanie

[c.....g]

@GrabkaMan: programowanie z Tomaszem <: ?

[GrabkaMan]

@chilling: Niet.

[c.....g]

@GrabkaMan: to gdzie jeszcze programuje się w prologu oprócz na II?

[GrabkaMan]

@chilling: Ekonomiczny w Katowicach. Nie pomożesz? :/

[c.....g]

@GrabkaMan: robiłem to 5 lat temu. Wiem, że są bugtrackery do prologa robiące drzewa zapytań. Te dziwne nazwy to odwołania to niezapisanych zmiennych.

Za godzinę spróbuję ci pomóc (:
EDIT: Spróbuj komendy trace. http://www.swi-prolog.org/pldoc/man?section=debugger

[mikkeboss]

@chilling: infa na pg ma projekt z prologa ; )

[GrabkaMan]

@chilling: Udało mi się coś zrobić. Tylko na razie trzeba wpisać liczbę, od której program będzie liczył.

Wiesz może jak zadeklarować tylko raz zmienną?

[frax]

Wiesz może jak zadeklarować tylko raz zmienną?

@GrabkaMan: W prologu nie ma zmiennych!

Po prostu

[GrabkaMan]

@frax: Ja nie wiem, nie ogarniam. Słaby jestem z programowania, dlatego szukam pomocy. :<

Możesz zobaczyć, dlaczego to wywołanie powoduje błąd:

Generalnie chodzi o to, że podaję numer 155 i program ma wypisać:
one

[GrabkaMan]

No i jeszcze cały czas przy konsultowaniu dostaję:

71 ?- consult('C:/Users/GrabkaMan/Desktop/ZadDom.pl').

Correct to: "consult('C:/Users/GrabkaMan/Desktop/ZadDom.pl')"?

[c.....g]

cyfry(1,one).

@GrabkaMan: rozumiem, że deklarujesz 1 = one, 2 = three, etc w cyfry?
Nie lubię prologa, ale popatrzę w swój kod z pierwszego roku, to może sobie coś przypomnę.

[GrabkaMan]

@chilling: Tak, to ponoć to ma być zrobione.

Że jak wyjdzie 1 to wypisze one, jak wyjdzie 7 to wypisze seven i tak dalej.

[c.....g]

@GrabkaMan: używasz trace'a? On serio pomaga nauczyć się logiki wywołań prologa (:

[frax]

@GrabkaMan: Definiujesz 2 termy: wypisz/1 i wypisz/2 - nic dziwnego, że wypisz/2 się pętli, skoro nie ma klauzuli kończącej. Zamień wypisz([]). na wypisz([], _). i powinno się zacząć kończyć.

Przy czym ten argument X nie wygląda na sensownie używany. Nie wiem, co właściwie ta funkcja ma robić, w drugi argument wstawić listę termów reprezentujących cyfry? Czy wypisać coś na ekran? W tej chwili będzie tam lądować term odpowiadający ostatniej cyfrze.

[GrabkaMan]

@frax: Program ma zapisywać cyfy z liczby. Wpisujesz:
157 i ma wypisać:
one five seven

[frax]

@GrabkaMan: Czyli na ekran ma wypisywać? W takim razie nie potrzebujesz drugiego argumentu, możesz go po prostu wywalić.

[GrabkaMan]

@frax: Oho, coś się dzieje. Wyświetla mi te liczby, teraz będę próbował je zapisać do listy. Trzym kciuki!

[frax]

@GrabkaMan: Oczywiście źle napisałem, wypisz([], _) nie pomaga, bo tam jest 0 zamiast []. W każdym razie to było to miejsce, gdzie się pętliło - brak klauzuli kończącej.

[GrabkaMan]

@frax: Takie coś na razie mam:

wypisz(0) :- !.

wypisz(Liczba):- Liczba1 is Liczba mod 10, cyfry(Liczba1,X), dodaj(X,L,[X|L]) ,Liczba2 is (Liczba // 10), wypisz(Liczba2).

Jak dam zamiast tego dodaj print(X) to działa fajnie. Ale potrzebuję w drugą stronę wypisywać. :/

[GrabkaMan]

@frax: Jak dopisywać tutaj do listy? Na początek listy muszę dopisać słowa. Powyższe dodaj pewno by działało, ale nie wiem, co wpisać pod L.

Jakieś pomysły?