Пролог. Нахождение всех делителей числа.

[Kseniya]

Помогите решить задачку пожалуйста. Мне надо вывести список всех делителей числа. например
Вход:
list(6,L).
Выход:
L=[1,2,3,6].
Вроде задачка несложная , но всё равно не могу додуматься...
Вот что придумала, но не работает...

 
list(N,L):- delitel(N,N,L).
delitel(1,N,[1]).
delitel(K,N,[K|L]):- K is M+1, 0=:=N mod K, delitel(M,N,L).

заранее спасибки....

[luitzen]

Вы ведь SWI-Prolog используете?

list(N,L):-
    findall(D, (between(1,N,D), N mod D =:= 0), L).