#Please do not post homework
#Ravali Bommanaboina, 10/25/20, Assignment 14

#Question 1
Same:=proc(S,k,length) local sum,i:
sum:=0:
if(length>nops(S)) then
return(sum):
fi:
for i from 1 to length do
if(S[i]=k) then
sum:=sum+1:
fi:
od:
return(sum):
end:

CountRuns:=proc(S,k) local length,sum,i:
length:=nops(S):
sum:=0:
for i from 1 to length do
if((Same(S[i..length],S[i],k))>=k) then
sum=sum+1:
fi:
od:
return(sum):
end:

#Question 2
AvePathRuns:=proc(S,k) local length,sum,i:
length:=nops(S):
sum:=0:
for i from 1 to length do
if((Same(S[i..length],S[i],k))>=k) then
sum=sum+1:
fi:
od:
return(sum):
end:

#Question 3
AveGPathRuns:=proc(S,k) local length,sum,i:
length:=nops(S):
sum:=0:
for i from 1 to length do
if((Same(S[i..length],S[i],k))>=k) then
sum=sum+1:
fi:
od:
return(sum):
end: