百五減算

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