Submission #9918779

Source Code Expand

import Data.List
main=do
 getLine
 x<-sort.map read.words<$>getLine
 let s=scanl(+)0 x
 print$sum[x*i-s|(x,s,i)<-zip3 x s[0..]]

Submission Info

Submission Time
Task C - Pair Distance
User kotatsugame
Language Haskell (GHC 7.10.3)
Score 300
Code Size 132 Byte
Status AC
Exec Time 847 ms
Memory 39932 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 2
AC × 27
Set Name Test Cases
Sample s1.txt, s2.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, s1.txt, s2.txt
Case Name Status Exec Time Memory
01.txt AC 3 ms 1020 KB
02.txt AC 10 ms 1660 KB
03.txt AC 28 ms 2428 KB
04.txt AC 9 ms 1404 KB
05.txt AC 4 ms 1020 KB
06.txt AC 36 ms 2940 KB
07.txt AC 35 ms 2812 KB
08.txt AC 35 ms 2940 KB
09.txt AC 36 ms 3452 KB
10.txt AC 36 ms 2940 KB
11.txt AC 758 ms 39036 KB
12.txt AC 801 ms 39676 KB
13.txt AC 772 ms 39932 KB
14.txt AC 730 ms 39036 KB
15.txt AC 744 ms 39292 KB
16.txt AC 760 ms 39420 KB
17.txt AC 791 ms 39548 KB
18.txt AC 761 ms 39164 KB
19.txt AC 773 ms 39420 KB
20.txt AC 769 ms 39420 KB
21.txt AC 743 ms 39292 KB
22.txt AC 746 ms 39676 KB
23.txt AC 832 ms 39548 KB
24.txt AC 847 ms 39420 KB
25.txt AC 765 ms 39420 KB
s1.txt AC 1 ms 508 KB
s2.txt AC 1 ms 508 KB