Removed append and fixed some shit

poker.pl

@@ -27,30 +27,38 @@
   color(Color),
   value(Value).
 
-% Gör detta snyggare Daniel
+% Create a deck then shuffle it.
 deck(L):-
   createDeck(L1),
-  shuffle(L1, L2),
-  shuffle(L2, L3),
-  shuffle(L3, L4),
-  shuffle(L4, L5),
-  shuffle(L5, L6),
-  shuffle(L6, L7),
-  cup(L7,L).
+  shuffle(L1, L, 6).
 
 
 % A list containing all the cards
 createDeck(L):-
   findall(card(X, Y), card(X, Y), L).
 
-% Shuffle cards and finish by kupera
-shuffle(L1, Result):-
+% Shuffle cards X times and then end with a cup
+shuffle(L, Result, 0):-
+  cup(L, Result).
+shuffle(L1, Res, X):-
+  X\==0,
+  Y is X-1,
   cut(L1, L2, L3),
-  merge(L2, L3, Result, 1).
+  merge(L2, L3, L4, 1),
+  shuffle(L4, Res, Y).
 
+
+%Cuping the deck and then stack one half on the other
+cup(L, Res):-
+  Res == [],
+  cut(L, L1, L2),
+  cup(L1, L2).
+cup([H1|T1], [H1|T2]):-
+  (H1, T2 \== []),
+  cup(T1, T2).
 cup(L, Res):-
-    cut(L, L1, L2),
-    append(L1, L2, Res). % Använd inte Append
+  L==[].
+
 
 /* cutting the deck by a random number and putting
 them together and returning a complete deck */
@@ -61,6 +69,7 @@
 cut([H|T], [H|L2], L3, RanNum):-
  Num is RanNum - 1, cut(T, L2, L3, Num).
 
+
 % Merging of the cut list with a random element
 merge([], [], [], _).
 merge([], [H|T], [H|Result], _):-