1 から 100 までの整数を考えよう。
その数を,3,5,7 で割った余り a, b, c を
百五減算(a, b, c) と入力すると,考えた整数が判明する。
> # 関数の定義
> 百五減算 <- function(a, b, c) (70*a+21*b+15*c) %% 105
> 百五減算(2, 3, 2)
[1] 23
> 百五減算(1, 4, 0)
[1] 49
その数を,3,5,7 で割った余り a, b, c を
百五減算(a, b, c) と入力すると,考えた整数が判明する。
> # 関数の定義
> 百五減算 <- function(a, b, c) (70*a+21*b+15*c) %% 105
> 百五減算(2, 3, 2)
[1] 23
> 百五減算(1, 4, 0)
[1] 49