\sum_{i<n} \sum_{j>i} |a_i-a_j| を解けるようにする

[kmyk]

Description / 説明

現在は実装が途中までなので \sum{i<n} \sum{j<n} |a_i-a_j| https://judge.kimiyuki.net/problem/sum-sum-abs-one しか解けない。

現在は sum (map (fun a_i -> (sum (map (fun a_j -> abs (a_i - a_j))) a)) a) を簡約しているが sum (map (fun i -> (sum (map (fun j -> abs (a[i] - a[j]))) (range (len a)))) (range (len a))) とかも受け入れるようにしたい

現在のソースコード: https://github.com/kmyk/Jikka/blob/master/src/Jikka/Core/Convert/SortAbs.hs

Motivation / 動機

https://judge.kimiyuki.net/problem/sum_sum_abs_one_lt これが解きたい

[kmyk]

ちょっと重めだけど他よりましだから good first issue 付けとこ