contrib/bc/tests/bc/scripts/globals.bc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#! /usr/bin/bc -gq

define i(x) {
	ibase=x
	return ibase
}

define o(x) {
	obase=x
	return obase
}

define r(x) {
	scale=x
	return scale
}

i(11)
ibase
o(12)
obase
r(15)
scale