OKlibrary  0.2.1.6
HindmanProblems.mac
Go to the documentation of this file.
```00001 /* Oliver Kullmann, 8.8.2009 (Swansea) */
00002 /* Copyright 2009 Oliver Kullmann
00003 This file is part of the OKlibrary. OKlibrary is free software; you can redistribute
00004 it and/or modify it under the terms of the GNU General Public License as published by
00005 the Free Software Foundation and included in this library; either version 3 of the
00006 License, or any later version. */
00007
00022 oklib_include("OKlib/ComputerAlgebra/TestSystem/Lisp/Asserts.mac")\$
00023
00024 kill(f)\$
00025
00026
00027 /* ********************
00028    * Hindman problems *
00029    ********************
00030 */
00031
00032 okltest_hindmani_a1k2_nbfcsud(f) := (
00033   assert(f(0,0) = [{},{},{}]),
00034   assert(f(1,2) = [{1,2},{},{1}]),
00035   /* XXX */
00036   true)\$
00037
00038 okltest_hindman_a1k2_nbfcsud(f) := (
00039   assert(f(0,0) = [{},{},{}]),
00040   assert(f(1,2) = [{1,2},{{[1,1],[2,1]}},{1}]),
00041   /* XXX */
00042   true)\$
00043
00044 okltest_hindmani_r2k2_ofcs(f) := (
00045   assert(f(1,0) = [[],[]]),
00046   assert(f(1,2) = [[1,2],[]]),
00047   /* XXX */
00048   true)\$
00049
00050 okltest_hindman_r2k2_ofcs(f) := (
00051   assert(f(1,0) = [[],[]]),
00052   assert(f(1,2) = [[1,2],[{1,2},{-1,-2}]]),
00053   /* XXX */
00054   true)\$
00055
00056
```