sidef-scripts/Math/unreduced_fractions.sf at master · trizen/sidef-scripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
#!/usr/bin/ruby

# Daniel "Trizen" Șuteu
# License: GPLv3
# Date: 08 November 2016
# Website: https://github.com/trizen

#
## A basic Rational() class, implementing some common fraction identities.
#

class Rational(num, den) {

    method +(Number o) {
        self + Rational(o, 1)
    }

    method +(Rational o) {
        Rational(
            num*o.den + o.num*den,
            den*o.den
        )
    }

    method -(Number o) {
        self + -o
    }

    method -(Rational o) {
        self + -o
    }

    method *(Number o) {
        Rational(num*o, den)
    }

    method *(Rational o) {
        Rational(num*o.num, den*o.den)
    }

    method /(Number o) {
        Rational(
            num,
            den * o
        )
    }

    method /(Rational o) {
        Rational(
            num * o.den,
            den * o.num,
        )
    }

    method **(Number o) {
        if (o < 0) {
            var a = o.abs
            Rational(den**a, num**a)
        }
        else {
            Rational(num**o, den**o)
        }
    }

    method neg {
        Rational(-num, den)
    }

    method to_s {
        "Rational(#{num}, #{den})"
    }
}

class Number {
    method +(Rational o) {
        o + self
    }

    method -(Rational o) {
        -o + self
    }

    method *(Rational o) {
        o * self
    }

    method /(Rational o) {
        o**(-1) * self
    }
}

var r = Rational(1, 1)

prime(10).primes_each {|p|
    r *= (1 - Rational(1, p))
    say r
}