Mirki, którzy posiadają status zasłużonego honorowego dawce krwi, pytanie do was mam.
Jak wygląda sprawa, gdy idziecie do lekarza i nie chcecie stać w kolejce?
Macie ze sobą legitymację, czy oni to jakoś w bazie sprawdzają?
Tak samo jak wygląda sprawa z tymi lekami refundowanymi? Gdzie pokazujecie legitymację?
Robią z tego jakis problem?
#pytanie #barylkakrwi
Jak wygląda sprawa, gdy idziecie do lekarza i nie chcecie stać w kolejce?
Macie ze sobą legitymację, czy oni to jakoś w bazie sprawdzają?
Tak samo jak wygląda sprawa z tymi lekami refundowanymi? Gdzie pokazujecie legitymację?
Robią z tego jakis problem?
#pytanie #barylkakrwi
@GrabkaMan: ja zawsze, kiedy jestem u lekarza (raz-dwa razy na rok) korzystam z tego prawa wejścia poza kolejnością i, po grzecznym wytłumaczeniu osobom oczekującym w kolejce, nie miałam jeszcze nigdy problemu z tym, że ktoś krzyczał, oburzał się i nie chciał mnie wpuścić. Coraz więcej ludzi wie o tym przywileju.
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:
Wyświetla mi jakieś dziwy:
91 ?- dlugosc([ala, kot, auto, pies, kot],X).
dodaj(X,L,[X|L])
? Biorąc pod uwagę, że L nie występuje nigdzie indziej, to taki napis jest raczej bez sensu.Żeby odwrócić kolejność, możesz użyć akumulatora, lub odwrócić kolejność jawnie (napisać procedurę pomocniczą), lub użyć appenda.
Btw, odcięcie jest tu bardzo brzydkie, i oceniający prologowe programy zwykli urywać za to punkty. "Kanonicznym" rozwiązaniem jest dodanie
Liczba > 0
do drugiej klauzuli lub użycie ifa.wypisz(Liczba, L):- wypisz(Liczba, [], L).
wypisz(0, Acc, Acc).
wypisz(Liczba, Acc, L) :-
Liczba > 0,
Liczba1 is Liczba mod 10,
cyfry(Liczba1,X),
Liczba2 is (Liczba // 10),
wypisz(Liczba2, [X|Acc], L).
Można by jeszcze dodać obsługę zera, bo teraz zwróci pustą listę.