home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
cs.rhul.ac.uk
/
www.cs.rhul.ac.uk.zip
/
www.cs.rhul.ac.uk
/
pub
/
rdp
/
rdp_cs3470.tar
/
testcalc.m
< prev
next >
Wrap
Text File
|
1998-05-07
|
571b
|
24 lines
(*******************************************************************************
*
* RDP release 1.50 by Adrian Johnstone (A.Johnstone@rhbnc.ac.uk) 20 December 1997
*
* testcalc.m - a piece of Mini source to test the Minicalc interpreter
*
* This file may be freely distributed. Please mail improvements to the author.
*
*******************************************************************************)
int a=3+4, b=1;
print("a is ", a, "\n");
b=a*2;
print("b is ", b, ", -b is ", -b, "\n");
int z = a ** 3;
print(a, " cubed is ", z, "\n");
(* End of testcalc.m *)