I want to transate no to Letters ,and letters to no,as a Example when germantoenglish([e,t,th],Y).Y shoul be like below
Y=[1,2,3]
but I get answer as false............
trans(e,1).
trans(t,2).
trans(th,3).
germantoenglish([S|H],[G|Ta]):-trans(H,Ta).
englishtogerman([J|Ta],[L|H]):-trans(H,Ta).
`