ext_fraction 0.3.2

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 4ed86dddf6d09e8de0bbab6119fdf4a6be93e08d5ad37bd089e770369238ca16
+  data.tar.gz: f3a0e34778bed346c3a8e2d0aa14afa8db5957f0ec9b108a2ac69b8c7291d06f
+SHA512:
+  metadata.gz: 01cb5003dae715e05382a663a00e701e6c10df09318089375737320e509bc4ac7e02a94bbc4c801b1d31c3eaa011f3cf3d46fb6e284b36327e4004502c9ce95d
+  data.tar.gz: ba6ec1423db672cff5f63cb2947ef543ba4b612a84dcd58261e473f05f7067bb163cf77b181a525dade65e4ae6e89eea0a82efc347f9ecf117c22b8971141c99

data/ext/fraction/extconf.rb

@@ -0,0 +1,3 @@
+require 'mkmf'
+
+create_makefile("fraction/fraction")

data/ext/fraction/fraction.c

@@ -0,0 +1,95 @@
+/*
+** find rational approximation to given real number
+** David Eppstein / UC Irvine / 8 Aug 1993
+**
+** With corrections from Arno Formella, May 2008
+**
+** Made into a ruby module by Christopher Lord, Nov 2009
+**
+** usage: require 'fraction'
+**
+**        n,d,err = 0.33.fraction
+**
+** based on the theory of continued fractions
+** if x = a1 + 1/(a2 + 1/(a3 + 1/(a4 + ...)))
+** then best approximation is found by truncating this series
+** (with some adjustments in the last term).
+**
+** Note the fraction can be recovered as the first column of the matrix
+**  ( a1 1 ) ( a2 1 ) ( a3 1 ) ...
+**  ( 1  0 ) ( 1  0 ) ( 1  0 )
+** Instead of keeping the sequence of continued fraction terms,
+** we just keep the last partial product of these matrices.
+*/
+
+#include "ruby.h"
+#include <stdio.h>
+
+static VALUE rb_cFraction;
+
+void core_fraction(double val, long maxden, long * n, long * d, double * e)
+{
+   int ai;
+   long sign = 1;
+   long m11 = 1, m22 = 1;
+   long m12 = 0, m21 = 0;
+   if (val < 0.0) {
+      // work in positive space, it seems we can get confused by negatives
+      sign = -1;
+      val *= -1.0;
+   }
+   double x = val;
+   long count = 0;
+
+   // loop finding terms until denom gets too big
+   while (m21 *  ( ai = (long)x ) + m22 <= maxden) {
+      if (++count > 50000000) break; // break after 'too many' iterations
+      long t = m11 * ai + m12;
+      m12 = m11;
+      m11 = t;
+      t = m21 * ai + m22;
+      m22 = m21;
+      m21 = t;
+      if(x==(double)ai) break;
+      x = 1/(x - (double) ai);
+      if(x>(double)0x7FFFFFFF) break;
+   }
+   *n = m11 * sign;
+   *d = m21;
+   *e = val - ((double)m11 / (double)m21);
+}
+
+VALUE fraction_create_fraction_from(int argc, VALUE * argv, VALUE self)
+{
+   VALUE fraction = rb_class_new_instance(0, NULL, rb_cFraction);
+
+   VALUE res = rb_ary_new2(3);
+   VALUE maxdenr;
+   long maxden = 10; // the default
+   rb_scan_args(argc, argv, "01", &maxdenr);
+   if (!NIL_P(maxdenr))
+     maxden = NUM2INT(maxdenr);
+   double x = NUM2DBL(self);
+   long n, d;
+   double e;
+   core_fraction(x, maxden, &n, &d, &e);
+
+   VALUE numer1 = INT2NUM(n);
+   VALUE denom1 = INT2NUM(d);
+   VALUE err1 = rb_float_new(e);
+
+   rb_iv_set(fraction, "@numerator", numer1);
+   rb_iv_set(fraction, "@denominator", denom1);
+   rb_iv_set(fraction, "@error", err1);
+
+   return fraction;
+}
+
+void Init_fraction() {
+
+   rb_cFraction = rb_define_class("Fraction", rb_cObject);
+
+   rb_define_method(rb_cNumeric, "to_fraction", fraction_create_fraction_from, -1);
+   rb_define_method(rb_cFloat,   "to_fraction", fraction_create_fraction_from, -1);
+}
+

data/lib/ext_fraction.rb

@@ -0,0 +1 @@
+require 'fraction'

data/lib/fraction.rb

@@ -0,0 +1,46 @@
+require 'fraction/fraction'
+
+class Fraction
+  attr_reader :numerator, :denominator, :error
+
+  def to_html
+    entity = case self.numerator
+
+    when 1 then
+      case self.denominator
+      when 2 then "½"
+      when 3 then "⅓"
+      when 4 then "¼"
+      when 5 then "⅕"
+      when 6 then "⅙"
+      when 8 then "⅛"
+      end
+
+    when 2 then
+      case self.denominator
+      when 3 then "⅔"
+      when 5 then "⅖"
+      end
+
+    when 3 then
+      case self.denominator
+      when 4 then "¾"
+      when 5 then "⅗"
+      when 8 then "⅜"
+      end
+
+    when 4 then "⅘"
+
+    when 5 then
+      case self.denominator
+      when 6 then "⅚"
+      when 8 then "⅝"
+      end
+      
+    when 7 then "⅞"
+    end
+
+    entity ||= "#{self.numerator}/#{self.denominator}"
+    entity
+  end
+end

metadata

@@ -0,0 +1,49 @@
+--- !ruby/object:Gem::Specification
+name: ext_fraction
+version: !ruby/object:Gem::Version
+  version: 0.3.2
+platform: ruby
+authors:
+- Christopher Lord
+- David Eppstein
+- Arno Formella
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2020-08-19 00:00:00.000000000 Z
+dependencies: []
+description: Provides "to_fraction" and to_whole_fraction methods on all ruby floats
+  and numerics.
+email: christopherlord+fractiongem@gmail.com
+executables: []
+extensions:
+- ext/fraction/extconf.rb
+extra_rdoc_files: []
+files:
+- ext/fraction/extconf.rb
+- ext/fraction/fraction.c
+- lib/ext_fraction.rb
+- lib/fraction.rb
+homepage: https://github.com/clord/fraction
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.0.3
+signing_key: 
+specification_version: 4
+summary: Provides a "to_fraction" method on all ruby floats.
+test_files: []