16 lines
402 B
Text
16 lines
402 B
Text
#define maincode main: {1}do
|
|
#define this {1}do
|
|
#defn out {"\n"}print
|
|
#define dotp mul;stats(0)
|
|
#defn lst(*) {"\033"} *;mklist;
|
|
#define ready {0}return
|
|
#define decim _X_DECIM=0, mov(_X_DECIM),prec(_X_DECIM),{1}do
|
|
|
|
main code{
|
|
{0}decim{
|
|
"A.B = "
|
|
this{
|
|
lst (1,3,(-5)), lst (4,(-2),(-1))
|
|
} dotp
|
|
} out
|
|
} ready
|