Problem:
Score : 200 points

Problem Statement

We have held a popularity poll for N items on sale. Item i received A_i votes.

From these N items, we will select M as popular items. However, we cannot select an item with less than \dfrac{1}{4M} of the total number of votes.

If M popular items can be selected, print Yes; otherwise, print No.

Constraints

1 \leq M \leq N \leq 100

1 \leq A_i \leq 1000

A_i are distinct.

All values in input are integers.

Input

Input is given from Standard Input in the following format:

N M
A_1 ... A_N

Output

If M popular items can be selected, print Yes; otherwise, print No.

Sample Input 1

4 1
5 4 2 1

Sample Output 1

Yes

There were 12 votes in total. The most popular item received 5 votes, and we can select it.

Sample Input 2

3 2
380 19 1

Sample Output 2

No

There were 400 votes in total. The second and third most popular items received less than \dfrac{1}{4\times 2} of the total number of votes, so we cannot select them. Thus, we cannot select two popular items.

Sample Input 3

12 3
4 56 78 901 2 345 67 890 123 45 6 789

Sample Output 3

Yes

Solution in Go (1.6) (judge verdict: Runtime Error)

package main

import (
    "bufio"
    "fmt"
    "os"
    "strconv"
    "strings"
)

func main() {
    var input [][]string = StrStdin()
    var x []string = input[0]
    var y []string = input[1]
    var xx [2]int
    xx[0], _ = strconv.Atoi(x[0])
    xx[1], _ = strconv.Atoi(x[1])
    N := xx[0]
    M := xx[1]

    var yy []int

    yy = make([]int, N)

    for i := 0; i < N; i++ {
        yy[i], _ = strconv.Atoi(y[i])
    }
    var total int = 0
  for i:=0;i<N;i++{
    total += yy[i]
  }
  var result int = 0
  for i:=0;i<N;i++{
    if yy[i] >= (total/4)/M{
      result++
    }
    }
  if result >= M{
    fmt.Println("Yes")
    }else{
    fmt.Println("No")
    }
}


func StrStdin() [][]string {
    var stringInput string
    scanner := bufio.NewScanner(os.Stdin)

    scanner.Scan()
    stringInput = scanner.Text()

    stringInput = strings.TrimSpace(stringInput)

    s := strings.Split(stringInput, "\n")

    var Result [][]string = make([][]string, len(s))

    for i, st := range s {
        var line []string
        line = strings.Split(st, " ")

        Result[i] = line
    }

    return Result
}