UNPKG

algebrite

Version:

Computer Algebra System in Coffeescript

github.com/davidedc/Algebrite

davidedc/Algebrite

121 lines (80 loc) • 1.24 kB
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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
test_gcd = -> run_test [ "gcd(30,42)", "6", "gcd(42,30)", "6", "gcd(-30,42)", "6", "gcd(42,-30)", "6", "gcd(30,-42)", "6", "gcd(-42,30)", "6", "gcd(-30,-42)", "6", "gcd(-42,-30)", "6", "gcd(x,x)", "x", "gcd(-x,x)", "x", "gcd(x,-x)", "x", "gcd(-x,-x)", "-x", "gcd(x^2,x^3)", "x^2", "gcd(x,y)", "1", "gcd(y,x)", "1", "gcd(x*y,y)", "y", "gcd(x*y,y^2)", "y", "gcd(x^2*y^2,x^3*y^3)", "x^2*y^2", "gcd(x^2,x^3)", "x^2", # gcd of expr "gcd(x+y,x+z)", "1", "gcd(x+y,x+y)", "x+y", "gcd(x+y,2*x+2*y)", "x+y", "gcd(-x-y,x+y)", "x+y", "gcd(4*x+4*y,6*x+6*y)", "2*x+2*y", "gcd(4*x+4*y+4,6*x+6*y+6)", "2+2*x+2*y", "gcd(4*x+4*y+4,6*x+6*y+12)", "1", "gcd(27*t^3+y^3+9*t*y^2+27*t^2*y,t+y)", "1", # gcd expr factor "gcd(2*a^2*x^2+a*x+a*b,a)", "a", "gcd(2*a^2*x^2+a*x+a*b,a^2)", "a", "gcd(2*a^2*x^2+2*a*x+2*a*b,a)", "a", # gcd expr term "gcd(2*a^2*x^2+2*a*x+2*a*b,2*a)", "2*a", "gcd(2*a^2*x^2+2*a*x+2*a*b,3*a)", "a", "gcd(2*a^2*x^2+2*a*x+2*a*b,4*a)", "2*a", # gcd factor factor "gcd(x,x^2)", "x", "gcd(x,x^a)", "1", # multiple arguments "gcd(12,18,9)", "3", ]