rmathemata 0.1

data/lib/arithmetic.rb

@@ -0,0 +1,75 @@
+#!/usr/local/bin/ruby -Kuw
+
+module Kernel
+
+   def ∑(values)
+     values.inject(&:+)
+   end
+
+   def √(root)
+      Math.sqrt(root)
+   end
+   
+   def ∏(values)
+     values.inject(:*)
+   end
+   
+   def ∏x(expression, variable, values)
+      ∏ (values.map {|value| eval(expression.gsub(variable, value.to_s))})
+   end
+   
+   def ∑x(expression, variable, values)
+      ∑ (values.map {|value| eval(expression.gsub(variable, value.to_s))})
+   end
+    
+end
+
+module PowerfulInteger
+  require 'mathn'
+  
+  def gcdn integers
+    return self unless integers.any?
+    self.gcd integers.shift.gcdn(integers)
+  end
+  
+  def prime_powers
+    prime_division.map(&:pop)
+  end
+  
+  def is_powerful?
+    return true if self == 1
+    prime_powers.min >= 2
+  end
+  
+  def is_perfect_power?
+    n = 1
+    loop do
+      n += 1
+      root = self**(1/n)
+      return true if  root.is_a?(Integer)
+      return false if root < 2
+    end
+  end
+  
+  def is_achilles_number?
+    is_powerful? and not is_perfect_power?
+  end
+  
+  def euler_totient
+    return 1 if self == 1
+    self *  ∏x("1 - 1/p", "p", prime_division.map(&:first))
+  end
+  
+  def is_strong_achilles_number?
+    is_achilles_number? and euler_totient.is_achilles_number?
+  end
+  
+  def numbers_of_strong_achilles_numbers_below
+    1.upto(self).inject(0) {|total, number| total += 1 if number.is_strong_achilles_number? ; total} 
+  end
+
+end
+
+class Integer
+  include PowerfulInteger
+end

data/lib/rmathemata.rb

@@ -0,0 +1 @@
+require File.join(File.dirname(__FILE__),'arithmetic')

metadata

@@ -0,0 +1,68 @@
+--- !ruby/object:Gem::Specification 
+name: rmathemata
+version: !ruby/object:Gem::Version 
+  hash: 9
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  version: "0.1"
+platform: ruby
+authors: 
+- Philippe Cantin
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-10-11 00:00:00 +02:00
+default_executable: 
+dependencies: []
+
+description: Provide mathematics functions and utilities for Theory of Number. Analysis. Geometry ...
+email: 
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.rdoc
+files: 
+- lib/arithmetic.rb
+- lib/rmathemata.rb
+- README.rdoc
+has_rdoc: true
+homepage: http://github.com/anoiaque/RMathemata
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Mathematic Library written in ruby
+test_files: []
+