Problem 57

Problem 57 - Project Euler
gmp使うと何の工夫もなく終わるので若干の罪悪感が．
…まあ，使えるものは使っていいよな．

# library(gmp)
numerator <- as.bigz(1)
denominator <- as.bigz(1)

ex.count <- 0

for(i in 1:1000){
  if(length(strsplit(as.character(numerator),"")[[1]]) >
     length(strsplit(as.character(denominator),"")[[1]])){
    ex.count <- ex.count + 1
  }
  old.d <- denominator
  denominator <- numerator + denominator
  numerator <- denominator + old.d
}

ex.count