using System; using System.IO; using System.Collections.Generic; using System.Linq; namespace No723 { public class Program { void Solve(StreamScanner ss, StreamWriter sw) { //--------------------------------- var N = ss.Next(int.Parse); var X = ss.Next(long.Parse); var A = ss.Next(long.Parse, N).OrderBy(x => x).ToArray(); var ret = 0L; for (var i = 0; i < N; i++) ret += BinarySearch.Range(x => A[i] + A[x], X, X, 0, N); sw.WriteLine(ret); //--------------------------------- } static void Main() { var ss = new StreamScanner(new StreamReader(Console.OpenStandardInput())); var sw = new StreamWriter(Console.OpenStandardOutput()) {AutoFlush = false}; new Program().Solve(ss, sw); sw.Flush(); } } public static partial class BinarySearch { static long BoundToTheRight(Func pred, long left, long right) { if (left > right) throw new ArgumentException("left must <= right"); while (true) { if (left == right) return right; var mid = (left + right - 1) >> 1; if (pred(mid)) right = mid; else left = mid + 1; } } public static long LowerBound(Func func, T value, long left, long right) where T : IComparable { return BoundToTheRight(x => func(x).CompareTo(value) >= 0, left, right); } public static long UpperBound(Func func, T value, long left, long right) where T : IComparable { return BoundToTheRight(x => func(x).CompareTo(value) > 0, left, right); } public static long Range(Func func, T vLeft, T vRight, long inLeft, long inRight) where T : IComparable { return UpperBound(func, vRight, inLeft, inRight) - LowerBound(func, vLeft, inLeft, inRight); } public static int LowerBound(this T[] source, T value) where T : IComparable { return (int)LowerBound(x => source[x], value, 0, source.Length); } public static int UpperBound(this T[] source, T value) where T : IComparable { return (int)UpperBound(x => source[x], value, 0, source.Length); } public static int Range(this T[] source, T vLeft, T vRight) where T : IComparable { return source.UpperBound(vRight) - source.LowerBound(vLeft); } } public class StreamScanner { static readonly char[] Sep = {' '}; readonly Queue buffer = new Queue(); readonly TextReader textReader; public StreamScanner(TextReader textReader) { this.textReader = textReader; } public T Next(Func parser) { if (buffer.Count != 0) return parser(buffer.Dequeue()); var nextStrings = textReader.ReadLine().Split(Sep, StringSplitOptions.RemoveEmptyEntries); foreach (var nextString in nextStrings) buffer.Enqueue(nextString); return Next(parser); } public T[] Next(Func parser, int x) { var ret = new T[x]; for (var i = 0; i < x; ++i) ret[i] = Next(parser); return ret; } public T[][] Next(Func parser, int x, int y) { var ret = new T[y][]; for (var i = 0; i < y; ++i) ret[i] = Next(parser, x); return ret; } } }