Problem:
鉄道路線II

わたしの住む街には、図のような N 個の駅からなる円環状の鉄道路線があります。この路線の各駅には 0 から N-1 までの番号が順番に割り当てられていて、隣の駅まで100 円で移動することができます。移動はどちらの方向にでも可能です。

わたしはこの路線上のいくつかの駅で買い物をしたいと思っています。そこで、プログラムを作成して移動費を計算することにしました。ある駅を始点として、買い物をするすべての駅を訪問する最小の費用（円）を求めるプログラムを作成してください。ただし、同じ駅を何度訪問しても良く、どのような順番で駅を訪問しても構いません。

入力

入力は以下の形式で与えられる。

N M p
d1
d2
:
dM

1行目に駅の数 N (2 ≤ N ≤ 100000)、買い物をする駅の数 M (1 ≤ M ≤ 10000 かつ M < N)、出発する駅の番号 p (0 ≤ p ≤ N-1) が与えられる。続く M 行に買い物をする駅の番号 di (0 ≤ di ≤ N-1) が与えられる。ただし、diは全て異なり、p もまたどの di とも異なるものとする。

出力

最小の費用を１行に出力する。

入出力例

入力例１

5 4 0
1
2
3
4

出力例１

400

入力例２

7 2 1
6
2

出力例２

400

Solution in Haskell (judge verdict: Accepted)

import Control.Applicative
import Control.Monad
import Data.List

main :: IO ()
main = do
  [n, m, p] <- f
  solve n p <$> replicateM m readLn >>= print
  where
    f = map read <$> words <$> getLine

solve :: Int -> Int -> [Int] -> Int
solve n p ds = (* 100) $ loop (2 * n) sds
  where
    sds = sort (p : ds)
    cost l r = let cl = if l <= p then p - l else n - l + p
                   cr = if r >= p then r - p else n - p + r
               in if cl < cr then 2 * cl + cr else 2 * cr + cl
    loop mc (r:l:ls) = loop (min mc (cost l r)) (l:ls)
    loop mc [r] = min mc (cost (head sds) r)