:-use_module(library(lists)).
:-use_module(library(terms)).


percentage_givenTotalNum(Record0,AllK,P):-
	delete(Record0,0,Record),
	length(Record,K),
	P is (K*100)/AllK.

:-['oneSamplePA_testResults.pl'].

:- findall(TestResult,oneFoldPA(TestResult),Results),
   percentage_givenTotalNum(Results,50,PA),
   	tell('oneSamplePA.txt'),
	write(PA),write(' '),told.