source: to-imperative/trunk/samples/Arithm/mult.rf @ 1050

Last change on this file since 1050 was 1050, checked in by luba, 18 years ago
  • tests for long arithmetic
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 672 bytes
Line 
1$use Arithm StdIO;
2
3Main =
4  {
5    <PrintLN <"*" 22 -2>>,
6    <PrintLN <"*" 2147483647 1>>,
7    <PrintLN <"*" 2147483647 -1>>,
8    <PrintLN <"*" -2147483647 1>>,
9    <PrintLN <"*" -2147483647 -1>>,
10
11    <PrintLN <"*" 2147483648 10>>,
12    <PrintLN <"*" 2147483648 -11>>,
13    <PrintLN <"*" -10 2147483648>>,
14    <PrintLN <"*" -11 -2147483648>>,
15
16    <PrintLN <"*" 614189 47349>>,
17    <PrintLN <"*" -456889  -23491>>,
18    <PrintLN <"*" -582598 59873>>,
19    <PrintLN <"*" -998998 -6984899>>,
20
21    <PrintLN <"*" 2147483648 2147483648>>,
22    <PrintLN <"*" 2147483648 -2147483648>>,
23    <PrintLN <"*" -2147483648 2147483648>>,
24    <PrintLN <"*" -2147483648 -2147483648>>;
25
26  };
27
Note: See TracBrowser for help on using the repository browser.