share/contrib/gf/rtest_gf.mac

   1
   2 /* Roots in finite fields */
   3
   4 (load(gf), 0);
   5 0;
   6
   7 /* msqrt */
   8 msqrt(289, 1789);
   9 [1772, 17];
  10
  11 gf_sqrt(289, 1789);
  12 [1772, 17];
  13
  14
  15 /* ssqrt */
  16 ssqrt(289, 1234567891);
  17 [1234567874, 17];
  18
  19 gf_sqrt(289, 1234567891);
  20 [1234567874, 17];
  21
  22 /* mcbrt */
  23 mcbrt(1331, 1789);
  24 [1672, 106, 11];
  25
  26
  27 /* scbrt */
  28 scbrt(1331, 1234567891);
  29 [330264042, 11, 904303838];
  30
  31 gf_cbrt(1331, 1234567891);
  32 [330264042, 904303838, 11];
  33
  34
  35 /* qsplit */
  36 qsplit(1789);
  37 [5, 42];
  38
  39 /* csplit */
  40 csplit(1789);
  41 [12, 35];
  42
  43