#2033. [Baltic 2011]Plagiarism

[Baltic 2011]Plagiarism

Background

Special for beginners, ^_^

Description

世界编程大赛的选手们提交N份程序文件f ~1~ , …, f~N~给评测系统。在将评测结果正式公布之前,评委会想要排除一切可能的剽窃现象。他们已有一个对比程序,用来比较两份程序文件,并判断它们是否太过相似了。

然而程序文件的数目相当大,把每两份(一对,pair)文件都进行比较的话将花太多的时间。另一方面,许多对(pair)可以直接被排除,如果文件的大小相差太大的话。

更准确地说,评委会决定,如果每两份文件(一对,pair)中,较小文件的体积小于较大文件的体积的90%,那将直接不比较这样的一对(pair)。所以,对比程序只比较这样的一对(f ~i~ , f ~j~ ): i≠j, size(f ~i ~ )≤ size(f ~j ~ )且size(f ~i ~ )≥0.9∙size(f ~j ~ )。

编写程序计算有多少对(pair)文件需要被比较。

Format

Input

第1行包含一个整数N,即提交的程序文件总数。

第2行包含N个整数size(f ~1~ ), …, size(f ~N~ ),每个整数代表文件的体积大小。

Output

第1行,也是唯一的一行,给出一个整数,即需要被比较的文件的对(pair)的数目。

数据范围

1≤ N ≤100 000

1≤ size(f~i~ ) ≤100 000 000

有50分的测试点中,1≤ N ≤2 000

Samples

5
1 1 1 1 1
10

Limitation

第2个样例中,每两个文件之间都要互相比较(当然,每对只比较一次,不是两次)。