S10 Day 1: Quartiles 문서 원본 보기

==개요==
;<nowiki>Day 1: Quartiles</nowiki>
;<nowiki>1일차:</nowiki> [[사분위수]]
* https://www.hackerrank.com/challenges/s10-quartiles/problem

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

==R==
<syntaxhighlight lang='r'>
a = scan("stdin")
n = a[1]
x = a[2:(n+1)]
m = median(x)
q1 = median(x[x<m])
q3 = median(x[x>m])
cat( q1, "\n" )
cat( m, "\n" )
cat( q3, "\n" )
</syntaxhighlight>
<syntaxhighlight lang='r'>
a = scan("stdin")
n = a[1]
x = a[2:(n+1)]
x = sort(x)
lowers = x[1:floor(n/2)]
uppers = x[ceiling(n/2)+1:floor(n/2)]
q1 = median(lowers)
m = median(x)
q3 = median(uppers)
cat( q1, "\n" )
cat( m, "\n" )
cat( q3, "\n" )
</syntaxhighlight>