#include<bits/stdc++.h>
#define int long long
#define fr(i,a,b) for(int i(a),end##i(b);i<=end##i;i++)
#define fd(i,a,b) for(int i(a),end##i(b);i>=end##i;i--)
#define de fprintf(stderr,"on-%d\n",__LINE__)
using namespace std;
const int maxn=2e5+5;
int a[maxn];
int n,m;
double f[maxn];
int s[maxn];
int fa[maxn];
int find(int x){
	if(fa[x]==x)return x;
	return fa[x]=find(fa[x]);
}
double S[maxn];
double w(int x,int y){
	return sqrt(1.*(s[y]-s[x])*(y-x));
}
struct node{
	int x,l,r;
};
deque<node> Q;
int d[maxn];
int pre[maxn];
const double eps=1e-9;
int solve(double del){
	fr(i,1,n){
		f[i]=10000;
		fr(j,0,i-1)if(f[i]>f[j]+w(j,i)+del){
			f[i]=f[j]+w(j,i)+del;
			pre[i]=j;
			d[i]=d[j]+1;
		}
	}
	return d[n]; 
}
signed main(){
#ifdef pig
	freopen("pig.in","r",stdin);
	freopen("bf.out","w",stdout);	
#endif
	cin>>n>>m;
	fr(i,1,n)scanf("%lld",&a[i]);
	fr(i,1,n)s[i]=s[i-1]+a[i];
	sort(a+1,a+n+1);
	double l=0,r=1e9,ans1,ans2,X,Y;
	while(r-l>eps){
		double mid=(l+r)/2;
		int t=solve(mid);
	//	cout<<t<<'\n';
		if(t==m){
			printf("%.12lf\n",f[n]-mid*m);
			return 0;
		}
		if(t<m){
			ans1=f[n]-mid*t;
			X=t;
		}
		if(t>m){
			ans2=f[n]-mid*t;
			Y=t;
		}
		if(t<m)r=mid;
		else l=mid;
	}
	//printf("%lf %lf %lf %lf\n",X,Y,ans1,ans2);
	printf("%.12lf\n",ans1+(ans2-ans1)/(Y-X)*(m-X));
	return 0;
}