... chenDS([H|T],L2,L3):-chen(L2,H,L4),chenDS(T,L4,L3). 9. Viết vị từ saptang và sapgiam nhận đối số là một danh sách và sắp danh sách theo thứ tự tăng hoặc giảm Vd: sapgiam([1,2,3,4,5,6],Y) Y=[6,5,4,3,2,1] saptang([8,12,4,7,3,9,5],Y) ... chen(X,[H|T],[H|T1]):-chen(X,T,T1). saptang([H],[H]):-!. saptang([H|T],T2):-saptang(T,T1),chen(H,T1,T2). chenn(X,[],[X]):-!. chenn(X,[H|T],[X|[H|T]]):-X>=H,!. chenn(X,[H|T],[H|T1]):-chenn(X,T,T1). sapgiam([H],[H]):-!. ... chen(X,[H|T],[H|T1]):-chen(X,T,T1). saptang([H],[H]):-!. saptang([H|T],T2):-saptang(T,T1),chen(H,T1,T2). chenn(X,[],[X]):-!. chenn(X,[H|T],[X|[H|T]]):-X>=H,!. chenn(X,[H|T],[H|T1]):-chenn(X,T,T1). sapgiam([H],[H]):-!....