高校数学の質問スレ Part411at MATH
高校数学の質問スレ Part411 - 暇つぶし2ch873:132人目の素数さん
21/04/25 15:23:14.16 hSBcRYjl.net
rm(list=ls())
GCD <- function(...){
x=c(...)
sub <- function(a,b){
if (a > b) {
t = b
b = a
a = t
}
while (a > 0) {
t = b
b = a
a = t%%a
}
return(b)
}
re=sub(x[1],x[2])
for(i in 3:length(x)) re=sub(re,x[i])
return(re)
}
> GCD(1428,510,816,272)
[1] 34


次ページ
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch