Changes in src/libcfa/rational [630a82a:3d9b5da]

File:

• src/libcfa/rational (modified) (3 diffs)

src/libcfa/rational

@@ -5 +5 @@
 // file "LICENCE" distributed with Cforall.
 // 
-// rational -- Rational numbers are numbers written as a ratio, i.e., as a fraction, where the numerator (top number)
-//     and the denominator (bottom number) are whole numbers. When creating and computing with rational numbers, results
-//     are constantly reduced to keep the numerator and denominator as small as possible.
+// rational -- 
 // 
 // Author           : Peter A. Buhr
 // Created On       : Wed Apr  6 17:56:25 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Apr  8 11:38:27 2016
-// Update Count     : 15
+// Last Modified On : Thu Apr  7 17:23:36 2016
+// Update Count     : 9
 // 
 
 #include "iostream"
 
-// implementation
 struct Rational {
         long int numerator, denominator;                                        // invariant: denominator > 0
 }; // Rational
 
-// constants
 extern struct Rational 0;
 extern struct Rational 1;
 
-// constructors
-Rational rational();
-Rational rational( long int n );
-Rational rational( long int n, long int d );
-
-// getter/setter for numerator/denominator
+long int gcd( long int a, long int b );
+long int simplify( long int *n, long int *d );
+Rational rational();                                                                    // constructor
+Rational rational( long int n );                                                // constructor
+Rational rational( long int n, long int d );                    // constructor
 long int numerator( Rational r );
 long int numerator( Rational r, long int n );
-long int denominator( Rational r );
 long int denominator( Rational r, long int d );
-
-// comparison
 int ?==?( Rational l, Rational r );
 int ?!=?( Rational l, Rational r );
@@ -45 +37 @@
 int ?>?( Rational l, Rational r );
 int ?>=?( Rational l, Rational r );
-
-// arithmetic
 Rational -?( Rational r );
 Rational ?+?( Rational l, Rational r );
@@ -52 +42 @@
 Rational ?*?( Rational l, Rational r );
 Rational ?/?( Rational l, Rational r );
-
-// conversion
 double widen( Rational r );
 Rational narrow( double f, long int md );
-
-// I/O
 forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, Rational * );
 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, Rational );