ll@n,@q,i[q],s[],t[],g[1d5+1],b=0;
rd((i,s,t)(q));
rep(j,q){
	g[s[j]]+=1;
	g[t[j]]-=1;
}
double a=0,h[],f[n]{};
rep(k,1d5+1){
	h[k]=a+=b?1.0/b:0;
	b+=g[k];
}
rep(j,q){
	f[i[j]-1]+=h[t[j]]-h[s[j]];
}
wtLn(f(n));