Problem 3 - Project Euler
素因数分解するメソッドが用意してあるとかそんなのアリなの。
R
target <- 600851475143 ans <- 1 while(target != 1){ ans <- ans + 1 while(target %% ans ==0){ target <- target/ans } } ans
Ruby
require "mathn" 600851475143.prime_division.transpose[0].max
Problem 3 - Project Euler
素因数分解するメソッドが用意してあるとかそんなのアリなの。
target <- 600851475143 ans <- 1 while(target != 1){ ans <- ans + 1 while(target %% ans ==0){ target <- target/ans } } ans
require "mathn" 600851475143.prime_division.transpose[0].max