XSB Prolog: напишите мою собственную функцию set

Question

Мне нужно получить с клавиатуры вход (список) список без дубликатов, но без использования встроенного setof (или любых других встроенных функций) в прологе XSB.

Как написать собственную функцию setof?

Ввод и вывод должен выглядеть следующим образом:

|?-list([a,b,c,d,a,b,c,d,e,f],L). 

L=[a,b,c,d,e,f]; 

Спасибо заранее.

Answer 1

Использование члена/2 настолько просто: просто сделайте копию каждого элемента, с рекурсивным списком/2, проверив головку списка входных данных еще не в списке целей. Проверка может быть выполнена членом/2, вам нужно будет написать свой собственный ... Вся программа должна быть 4 строки кода.