Skip to content

Instantly share code, notes, and snippets.

@peat-psuwit
Created May 14, 2017 04:46
Show Gist options
  • Save peat-psuwit/01e8bee8608b8af2f40adf2aea2bdc3e to your computer and use it in GitHub Desktop.
Save peat-psuwit/01e8bee8608b8af2f40adf2aea2bdc3e to your computer and use it in GitHub Desktop.
Check if the sequence is the same sequence of letters twice.
furious([], L2, L2).
furious([X|L1], L2, [X|L3]) :-
furious(L1, L2, L3).
isTwice(Full) :-
furious(Half, Half, Full).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment