nan.xiao 简单的任务就 gcd <- function(a,b) ifelse (b==0, a, gcd(b, a %% b)) 处理很大的数字用gmp包中的 gcd.bigz() 和 lcm.bigz() 函数. 此包使用了GNU Multiple Precision Arithmetic Library, 能够处理相当大的整数 .. 一般来说应该可以满足比较bt的需求了.