2 небольшие программы на Prolog`e

1 задача: оставить в первом списке элементы, которые входят во второй список по одному разу. Пример: [1,2,3,4,5,6] [2,2,3,1,6,6,6] -> [1,3] 2 задача: Разбить список на три списка, соответственно с числами, которые имеют вид 3k, 3k+1 та 3k+2 (x mod 3==0,x mod 3==1, x mod 3==2). Пример: [1,2,3,4,5,6,7,8,9] -> [3,6,9] [1,4,7] [2,5,8]