OKlibrary  0.2.1.6
LatinSquares.mac
Go to the documentation of this file.
```00001 /* Oliver Kullmann, 25.12.2008 (Swansea) */
00002 /* Copyright 2008, 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    * Latin square problems as SAT problems *
00029    *****************************************
00030 */
00031
00032 okltest_ls_var(f) := (
00033   /* XXX */
00034   true)\$
00035
00036 okltest_var_ls(f) := (
00037   /* XXX */
00038   true)\$
00039
00040 okltest_ls_different_rows(f) := (
00041   /* XXX */
00042   true)\$
00043
00044 okltest_ls_different_columns(f) := (
00045   /* XXX */
00046   true)\$
00047
00048 okltest_ls_positions_box(f) := (
00049   /* XXX */
00050   true)\$
00051
00052 okltest_ls_all_fields(f) := (
00053   assert(f(0) = {}),
00054   assert(f(1) = {{ls(1,1,1)}}),
00055   assert(f(2) = {{ls(1,1,1),ls(1,1,2)},{ls(1,2,1),ls(1,2,2)},{ls(2,1,1),ls(2,1,2)},{ls(2,2,1),ls(2,2,2)}}),
00056   true)\$
00057
00058 okltest_weak_ls(f) := (
00059   /* XXX */
00060   true)\$
00061
00062 okltest_ls_all_rows(f) := (
00063   assert(f(0) = {}),
00064   assert(f(1) = {{ls(1,1,1)}}),
00065   assert(f(2) = {{ls(1,1,1),ls(1,2,1)},{ls(1,1,2),ls(1,2,2)},{ls(2,1,1),ls(2,2,1)},{ls(2,1,2),ls(2,2,2)}}),
00066   true)\$
00067
00068 okltest_ls_all_columns(f) := (
00069   assert(f(0) = {}),
00070   assert(f(1) = {{ls(1,1,1)}}),
00071   assert(f(2) = {{ls(1,1,1),ls(2,1,1)},{ls(1,1,2),ls(2,1,2)},{ls(1,2,1),ls(2,2,1)},{ls(1,2,2),ls(2,2,2)}}),
00072   true)\$
00073
00074 okltest_ls_different_fields(f) := (
00075   /* XXX */
00076   true)\$
00077
00078 okltest_dual_weak_ls(f) := (
00079   /* XXX */
00080   true)\$
00081
00082 okltest_strong_ls(f) := (
00083   /* XXX */
00084   true)\$
00085
00086
00087 /* ****************************
00088    * Orthogonality conditions *
00089    ****************************
00090 */
00091
00092 okltest_orthogonality_cond_ls(f) := (
00093   /* XXX */
00094   true)\$
00095
00096 okltest_orthogonality_dualcond_ls(f) := (
00097   /* XXX */
00098   true)\$
00099
00100 okltest_orthogonality_strongcond_ls(f) := (
00101   /* XXX */
00102   true)\$
00103
00104 okltest_row_symmetrybreaking_ls(f) := (
00105   /* XXX */
00106   true)\$
00107
00108 okltest_exluding_solution_ls(f) := (
00109   /* XXX */
00110   true)\$
00111
00112
```