feval(@assignin,'caller','score',100);

tic urlwrite('http://rmatlabtest.appspot.com/testsuite_GeneSeq_contest.mat','testsuite_GeneSeq_contest.mat') toc

load testsuite_GeneSeq_contest cases=size(testsuite,2); Result=zeros(cases,3); for i=1:27 % Practice runs segments=testsuite{i}; solution = geneseq(segments); end % i cases for i=1:29 %1:29 %cases segments=testsuite{i}; OriginalGene=one_answer{i}; t0 = cputime; solution = geneseq(segments); % 99.998065 51667.47 0.452 time_elapsed = cputime-t0; % Check = checksequence(segments,solution); Check=1; for ichk = 1:size(segments,1) if isempty(findstr(segments(ichk,:),solution)) Check=0; break end end if Check == 1 Result(i,1) = length(solution); Result(i,2) = time_elapsed; Result(i,3) = length(OriginalGene); else Result(i,:) = Inf; end end % i cases fprintf('Net Time=%10.6f\n',sum(Result(:,2))) fprintf('Result= %10.6f\n',100*sum(Result(:,1))/sum(Result(:,3))) v=1000*(sum(Result(:,1)./Result(:,3))/size(Result,1)-1)+ sum(Result(:,2))*10; fprintf('Final Score %.2f\n',v) fprintf('L %5i Time %7.3f L_orig %5i\n',Result') assert(max(Result(:,1))< Inf) feval( @assignin,'caller','score',floor(min( 100,v )) );