testarray.pl

来自「PRl教学程序 PRl教学程序 PRl教学程序」· PL 代码 · 共 27 行

testArray(Array,Obj):-
	javaMethod(Obj,sleep(1000),_),
	count(Array,List),
	write(List),nl,
	drawArray(Obj,List),
write('<=drawArray'),nl,
	javaMethod(Obj,drawList(List),_),
write('<=drawList'),nl,
	javaMethod(Obj,sleep(10000),_),
	write('O.K'),nl.

count([],[]).
count([List|Lists],[Sum|SumList]):-
	sumList(List,0,Sum),
	count(Lists,SumList).
	
sumList([],Sum0,Sum):-Sum=Sum0.
sumList([X|Xs],Sum0,Sum):-
	Sum1 is Sum0+X,
	sumList(Xs,Sum1,Sum).

drawArray(Obj,[]).
drawArray(Obj,[X|Xs]):-
    write(javaMethod(Obj,drawListElm(X),_)),nl,
	javaMethod(Obj,drawListElm(X),_),
	drawArray(Obj,Xs).