% List enumeretor example 
%:-module listenumerator.
%:-public listEnumerator/2, listNextMember/2.
%:-public test_enum.

listEnumerator(L,List):-
	assignable(L, List).
listNextMember(L,E):-
	L=>[E|Rest],
	L<=Rest.

test_enum:-
	listEnumerator(E,[a,b,c,d,e,f]),
	listNextMember(E,L1) ,
	L1 == a, write(L1),nl,
	listNextMember(E,L2),
	L2 == b, write(L2),nl,
	listNextMember(E,L3),
	L3 == c, write(L3),nl,
	listNextMember(E,L4),
	L4 == d, write(L4),nl,
	true.