comp([2,3],[4,9],1).
comp([2,3],[4,9],0).
Both can't be true.

comp([2,3],[4,9])
comp([2,3],[4,9])

These are not the original arrays that are given in the tests you mention.
I am sorry but your code is wrong somewhere. These tests are the same in all languages and you can see at the top of the page how many people passed the kata.
BTW I see that you are new at CW but don't post issues too fast:-) Cheers!

Prolog comp testcase has an error - probably from copy paste.
I didn't know what was wrong, so I leaked the comp testcases and found that
there are identical testcases, but with different expected results.

A1:
[11,19,121,144,161]=1
[11,19,121,144,161,191,195,1440]=1
[0]=1
[2,3]=1
[2,3]=0

A2:
[121,361,14641,20736,25921]=1
[121,361,14641,20736,25921,36481,38025,2073600]=1
[0]=1
[4,9]=1
[4,9]=0

comp([2,3],[4,9],1).
comp([2,3],[4,9],0).
Both can't be true.