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