Problem:
Score : 700 points

Problem Statement

You are given an integer N.
Build an undirected graph with N vertices with indices 1 to N that satisfies the following two conditions:

The graph is simple and connected.

There exists an integer S such that, for every vertex, the sum of the indices of the vertices adjacent to that vertex is S.

It can be proved that at least one such graph exists under the constraints of this problem.

Constraints

All values in input are integers.

3 \leq N \leq 100

Input

Input is given from Standard Input in the following format:

N

Output

In the first line, print the number of edges, M, in the graph you made. In the i-th of the following M lines, print two integers a_i and b_i, representing the endpoints of the i-th edge.

The output will be judged correct if the graph satisfies the conditions.

Sample Input 1

3

Sample Output 1

2
1 3
2 3

For every vertex, the sum of the indices of the vertices adjacent to that vertex is 3.

Solution in Haskell (GHC 7.10.3) (judge verdict: Wrong Answer)

import Data.List
import Control.Monad

cograph::Int->[(Int,Int)]
cograph n = case mod n 2 == 0 of
            True -> [(i,(n+1-i))|i<-[1..div n 2]]
            False-> [(i,n-i)|i<-[1..div n 2]]

eater::[(Int,Int)]->[(Int,Int)]->[(Int,Int)]
eater rest []       = rest
eater (x:xs) (y:ys) = if x == y then eater xs ys
                                else x:(eater xs (y:ys))

solver::Int->[(Int,Int)]
solver n = eater [(i,j)|i<-[1..n],j<-[1..n],i<j] (sort (cograph n))

main::IO()
main=do
  n<-return.read=<<getLine
  forM_ (solver n) (\(x,y)->putStr (show x ++ " " ++ show y ++ "\n"))