source: to-imperative/trunk/samples/Arithm/div_rem.rf @ 1056

Last change on this file since 1056 was 1056, checked in by luba, 18 years ago
  • tests for GCD and Div-Rem functions
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1003 bytes
Line 
1$use Arithm StdIO;
2
3Main =
4  { 
5    <PrintLN <Div-Rem -22 11>>,
6    <PrintLN <Div-Rem -2147483647 -2147483647>>,
7    <PrintLN <Div-Rem 2147483647 -2147483647>>,
8    <PrintLN <Div-Rem -2147483647 2147483647>>,
9    <PrintLN <Div-Rem 2147483647 2147483647>>,
10
11    <PrintLN <Div-Rem 2147483648 2>>,
12    <PrintLN <Div-Rem 2147483648 2222222>>,
13    <PrintLN <Div-Rem 22345 -2147483648>>,
14    <PrintLN <Div-Rem -2147483649 2147483648>>,
15    <PrintLN <Div-Rem -2147483648123456789078654321 -2147483648>>,
16
17    <PrintLN <Div-Rem -23 -11>>,
18    <PrintLN <Div-Rem -23 -11111111111>>,
19    <PrintLN <Div-Rem -2147483649 -2147483647>>,
20    <PrintLN <Div-Rem 2147483649 -2147483647>>,
21    <PrintLN <Div-Rem -2147483649 2147483647>>,
22    <PrintLN <Div-Rem 2147483649 2147483647>>,
23
24    <PrintLN <Div-Rem 2147483648 2>>,
25    <PrintLN <Div-Rem 2147483648 2222222>>,
26    <PrintLN <Div-Rem 22345 -2147483648>>,
27    <PrintLN <Div-Rem -2147483649 2147483648>>,
28    <PrintLN <Div-Rem -21474836481234567890786543 -2>>;
29
30  };
31
Note: See TracBrowser for help on using the repository browser.