S10 Day 1: Interquartile Range 문서 원본 보기

==개요==
;<nowiki>Day 1: Interquartile Range</nowiki>
;<nowiki>1일차:</nowiki> [[사분위간 범위]]
* https://www.hackerrank.com/challenges/s10-interquartile-range/problem

{{S10 헤더}}
{{S10 0-1}}
|}

==R==
<syntaxhighlight lang='r'>
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) )
</syntaxhighlight>
<syntaxhighlight lang='r'>
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) )
</syntaxhighlight>