source: to-imperative/trunk/samples/Arithm/gcd.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: 446 bytes
Line 
1$use Arithm StdIO;
2
3Main =
4  {
5    <PrintLN <GCD 22 2>>,
6    <PrintLN <GCD 2147483648 135>>,
7    <PrintLN <GCD 2147483648 -1146>>,
8    <PrintLN <GCD -1245 2147483648>>,
9    <PrintLN <GCD -1156 -2147483648>>,
10    <PrintLN <GCD -1156548745 -2147483648>>,
11    <PrintLN <GCD -1156548745234678 214748364809876>>,
12    <PrintLN <GCD 2147483647 -2147483647>>,
13    <PrintLN <GCD -2147483648 2147483648>>,
14    <PrintLN <GCD 2147483648 2147483648>>;
15
16  };
17
Note: See TracBrowser for help on using the repository browser.