ascSort(L,S).
ascSort([],[]).
ascSort([0],[0]).
ascSort([1,2],[1,2]).
ascSort([5,3],[3,5]).
ascSort([4,6,8],[4,6,8]).
ascSort([0,9,7],[0,7,9]).
ascSort([2,1,3],[1,2,3]).
ascSort([5,6,4],[4,5,6]).
ascSort([9,1,8],[1,8,9]).
ascSort([7,2,0],[0,2,7]).

ascSort([X],[X]).
ascSort([Y,Z],[Y,Z]) :- Y<=Z.
ascSort([Y,Z],[Z,Y]) :- Y>Z.

