Problem 124
http://projecteuler.net/index.php?section=problems&id=124
これも、そのまま。
import Number import Data.List rad = product.nub.factors p124 m= sort[(rad n,n)|n<-[1..m]] main = print.snd$p124 (10^5) !!9999
http://projecteuler.net/index.php?section=problems&id=124
これも、そのまま。
import Number import Data.List rad = product.nub.factors p124 m= sort[(rad n,n)|n<-[1..m]] main = print.snd$p124 (10^5) !!9999