Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- copyPart(0, 0, _, []).
- copyPart(0, K, [G | O], [G | O1]):- K =\= 0,
- K1 is K - 1,
- copyPart(0, K1, O, O1).
- copyPart(I, K, [_ | O], LF):- I =\= 0,
- K =\= 0,
- I1 is I - 1,
- K1 is K - 1,
- copyPart(I1, K1, O, LF).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement