S10 Day 1: Interquartile Range

1 개요

Day 1: Interquartile Range

1일차: 사분위간 범위

• https://www.hackerrank.com/challenges/s10-interquartile-range/problem

해커랭크 10 Days of Statistics

문제	C	C++	C#	Go	Java	node.js	Perl	PHP	Python	R	Ruby
0-1 Day e
S10 Day 0: Mean, Median, and Mode
S10 Day 0: Weighted Mean
S10 Day 1: Quartiles
S10 Day 1: Interquartile Range
S10 Day 1: Standard Deviation

2 R

R

Copy

data = scan("stdin")
n = data[1]
elem = data[1:n+1]
freq = data[n+1:n+1]
s = c()
for(i in 1:n) {
    for(j in 1:freq[i]) {
        s <- append(s,elem[i])
    }
}
len = length(s)
s = sort(s)
lowers = s[1:floor(len/2)]
uppers = s[ceiling(len/2)+1:floor(len/2)]
cat( format(median(uppers)-median(lowers),nsmall=1) )

R

Copy

data = scan("stdin")
n = data[1]
elem = data[1:n+1]
freq = data[n+1:n+1]
s <- vector(mode="numeric", length=0)
for(i in 1:n) {
    for(j in 1:freq[i]) {
        s <- append(s,elem[i])
    }
}
len = length(s)
s = sort(s)
lowers = s[1:floor(len/2)]
uppers = s[ceiling(len/2)+1:floor(len/2)]
q1 = median(lowers)
q3 = median(uppers)
cat( format(q3-q1,nsmall=1) )