003 File Manager
Current Path:
/usr/src/contrib/bc/tests/bc/scripts
usr
/
src
/
contrib
/
bc
/
tests
/
bc
/
scripts
/
📁
..
📄
add.bc
(228 B)
📄
all.txt
(149 B)
📄
array.bc
(554 B)
📄
array.txt
(1.33 KB)
📄
atan.bc
(134 B)
📄
atan.txt
(2.34 KB)
📄
bessel.bc
(700 B)
📄
divide.bc
(298 B)
📄
functions.bc
(42 B)
📄
functions.txt
(26 B)
📄
globals.bc
(176 B)
📄
globals.txt
(18 B)
📄
len.bc
(623 B)
📄
len.txt
(6 B)
📄
multiply.bc
(285 B)
📄
parse.bc
(314 B)
📄
print.bc
(397 B)
📄
rand.bc
(852 B)
📄
rand.txt
(462 B)
📄
references.bc
(4.73 KB)
📄
references.txt
(3.33 KB)
📄
screen.bc
(247 B)
📄
screen.txt
(4 B)
📄
subtract.bc
(228 B)
Editing: len.bc
define fast_gcd(a, b) { if (a == b) return a; if (a > b) return fast_gcd(a - b, b) return fast_gcd(a, b - a); } define void r_reduce(*r[]) { auto g,s; if (length(r[]) != 2) sqrt(-1); if (scale(r[0])) 2^r[0]; if (scale(r[1])) 2^r[1]; if (r[0] >= 0 && r[1] >= 0) g = fast_gcd(r[0], r[1]); else g = gcd(r[0], r[1]); s = scale; scale = 0; r[0] /= g; r[1] /= g; scale = s; } define void r_init(*r[], a, b) { r[0] = a; r[1] = b; r_reduce(r[]); } define void r_initi(*r[], i, a, b) { length(r[]); r[0] = i * b + a; r[1] = b; length(r[]); r_reduce(r[]); } length(a[]) r_initi(a[], 5, 63, 94);
Upload File
Create Folder