文字列 "a/b" の形式で表される 2 つの分数の和を，同じ形式で表示する分母が 1 の場合は，分子だけを表示するfunc = function(s1, s2) { euclid = function(m, n) { # ユークリッドの互除法 while ( (temp = n%%m) != 0) { n = m m = temp } return(m) } a …