Permalink
Browse files

Integer#mertens: Add

  • Loading branch information...
1 parent 2ff0951 commit ad4b1a1f60765212c7f75e8c849f402a7e1b8ede @runpaint committed Mar 27, 2010
Showing with 19 additions and 0 deletions.
  1. +4 −0 lib/numb/mobius.rb
  2. +15 −0 spec/numb/mertens_spec.rb
View
@@ -7,4 +7,8 @@ def mobius
alias :möbius :mobius
alias:mobius
+
+ def mertens
+ (1..self).map(&:μ).reduce(:+)
+ end
end
@@ -0,0 +1,15 @@
+# coding: utf-8
+describe Integer, "#mertens" do
+ # A002321
+ @seq = [1,0,-1,-1,-2,-1,-2,-2,-2,-1,-2,-2,-3,-2,-1,-1,-2,
+ -2,-3,-3,-2,-1,-2,-2,-2,-1,-1,-1,-2,-3,-4,-4,-3,
+ -2,-1,-1,-2,-1,0,0,-1,-2,-3,-3,-3,-2,-3,-3,-3,-3,
+ -2,-2,-3,-3,-2,-2,-1,0,-1,-1,-2,-1,-1,-1,0,-1,-2,
+ -2,-1,-2,-3,-3,-4,-3,-3,-3,-2,-3,-4,-4,-4]
+
+ @seq.to_enum.with_index(1).each do |m, n|
+ it "returns #{m} for #{n}" do
+ n.mertens.should == m
+ end
+ end
+end

0 comments on commit ad4b1a1

Please sign in to comment.