http://ii.drx.pl/ 2026-05-23T19:55:17+02:00 http://ii.drx.pl/ http://ii.drx.pl/lib/images/favicon.ico text/html 2010-03-08T22:38:53+02:00 http://ii.drx.pl/programowanie:lista2l?rev=1268084333&do=diff 1 append( X, X, Y ). member( X, [a,b,c,d] ), delete( [a,b,c,d], X , [a,c,d] ). append( [a,b,c] , X, [a,b,c,d,e] ). 2 even( [] ):-!. % to jest odcięcie, nie było tego jeszcze na wykładzie, ale działa tak, że prolog nie próbuje już dopasować innej reguły jak ta będzie ok. even( [] ). % ewentualnie to, jak nie chcecie sie wyróżniać z tłumu, stosować tylko jeden z podanych ;p even( [_,_|T ):-even( T ). palindrom( X ):- reverse( X , X ). %nie jestem pewien, czy nie ma lepszego rozwiazania s… text/html 2010-03-16T09:43:40+02:00 http://ii.drx.pl/programowanie:lista3l?rev=1268729020&do=diff Zadanie 1. filter([],[]). filter([H|T],[H|PLUS]) :- H > 0,!, filter(T,PLUS). filter([H|T],PLUS) :- filter(T,PLUS). count(_,[],0). count(N,[N|T],C) :- count(N,T,C1), C is C1 + 1, !. count(N,[_|T],C) :- count(N,T,C). count(X,Y,N):-count(X,Y,N,0). (wersja ogonowa) count([],_,X,X):-!. count([H|X],[H|Y],N,M):- B is M+1, count(X,Y,N,B). count(X,[_|Y],N,M):- count(X,Y,N,M). exp(A, 0, 1). exp(A, P, R) :- P > 0, P1 is P - 1, exp(A, P1, S), R is S * A. text/html 2010-03-22T22:27:29+02:00 http://ii.drx.pl/programowanie:lista4l?rev=1269293249&do=diff Zadanie 1. length2(X,N):- length2(X,N,[],0). length2(X,N,Y,N):- reverse(Y,X). length2(X,N,Y,M):- M2 is M+1, Y2=[_|Y], nonvar(N),!, N>=M, length2(X,N,Y2,M2),!. length2(X,N,Y,M):- M2 is M+1, Y2=[_|Y], nonvar(X),!, length2(X,N,Y2,M2),!. length2(X,N,Y,M):- M2 is M+1, Y2=[_|Y], length2(X,N,Y2,M2). text/html 2010-03-29T23:59:19+02:00 http://ii.drx.pl/programowanie:lista5l?rev=1269899959&do=diff Zadanie 1. Zadanie 2. Zadanie 3. Zadanie 4. Zadanie 5. text/html 2009-10-11T13:49:28+02:00 http://ii.drx.pl/programowanie:pracownia?rev=1255261768&do=diff Poniższe polecenie kompiluje program w Haskellu, a nastepnie wyświetla jego wydajność: ghc -prof -auto-all --make zad.hs -o zad && cat input | ./zad +RTS -p -RTS && cat zad.prof Zadanie 1 /* * Usage: * Format: M = [ (n1,v1), ..., (nn, vn) ] * n - count (number) * v - amount (value) * Coin counts may not be negative * * ?- payment(123, [(10,1),(10,2),(10,5),(10,10)], X). * ?- payment(123, [(10,1),(10,2),(10,5),(10,10)], [(10,1),(9,2),(9,5),(5,10)]). */ % We can pay 0 with an empty lis…