過去ログ

「数学」小旅行
rubyプログラムです。互いに素な組の個数だけなら、
require 'prime'
a=720
p a.prime_division.map{|x,y|(0..y).to_a}.inject(:product).map{|z|z.flatten}.combination(2).map{|v,u|[v,u].transpose}.map{|s|s.map{|t|t.inject(:*)}.inject(:+)}.count(0)

約数の配列をもとめるなら、
require 'prime'
a=720
p a.prime_division.map{|x,y|(0..y).map{|i|x**i}}.inject(:product).map{|z|z.flatten.inject(:*)}.sort

aにいろんな数を入れて遊べます。
   9月24日(土) 13:15:53     51845

過去問題一覧へ戻る