S10 Day 0: Weighted Mean 문서 원본 보기

==개요==
;<nowiki>Day 0: Weighted Mean</nowiki>
;<nowiki>0일차:</nowiki> [[가중 평균]]
* https://www.hackerrank.com/challenges/s10-weighted-mean/problem

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

==같이 보기==
* [[가중산술평균]]

==Python==
<syntaxhighlight lang='python'>
N = int(input())
X = list(map(int, input().split()))
W = list(map(int, input().split()))
sum_X = sum([a*b for a,b in zip(X,W)])
print(round((sum_X/sum(W)),1))
# 32.0
</syntaxhighlight>

==R==
<syntaxhighlight lang='r'>
a <- scan("stdin")
n <- a[1]
x <- a[1:n+1]
w <- a[n+1:n+1]
cat(sprintf("%.1f", weighted.mean(x,w) ))
</syntaxhighlight>
<syntaxhighlight lang='r'>
a <- scan(file="stdin")
n <- a[1]
x <- a[1:n+1]
w <- a[n+1:n+1]
cat(sprintf("%.1f", weighted.mean(x,w) ))
</syntaxhighlight>
<syntaxhighlight lang='r'>
a <- scan("stdin")
n <- a[1]
x <- a[2:(n+1)]
w <- a[(n+2):(2*n+1)]
cat(sprintf("%.1f", weighted.mean(x,w) ))
</syntaxhighlight>
<syntaxhighlight lang='r'>
a <- scan("stdin")
n <- a[1]
x <- a[2:(n+1)]
w <- a[(n+2):(2*n+1)]
cat( format(sum(x*w)/sum(w),nsmall=1) )
</syntaxhighlight>
<syntaxhighlight lang='r'>
lines <- readLines(file('stdin', open='r'))
x <- as.numeric(unlist(strsplit(lines[2],split=" ")))
w <- as.numeric(unlist(strsplit(lines[3],split=" ")))
cat( format(sum(x*w)/sum(w),nsmall=1) )
</syntaxhighlight>

[[분류: 10 Days of Statistics]]