OKlibrary  0.2.1.6
RamseyProblems.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 4.9.2008 (Swansea) */
00002 /* Copyright 2008, 2009, 2010, 2012 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 okltest_ramsey2_ofcs(f) := (
00027   assert(f(0,0,0) = [[colv({})], [{colv({})},{-colv({})}]]),
00028   assert(f(1,0,0) = [[colv({})], []]),
00029   assert(f(0,1,0) = [[], []]),
00030   assert(f(0,0,1) = [[colv({})], [{colv({})},{-colv({})}]]),
00031   assert(f(1,1,0) = [[], []]),
00032   assert(f(1,0,1) = [[colv({})], [{colv({})},{-colv({})}]]),
00033   assert(f(0,1,1) = [[colv({1})], []]),
00034   assert(f(1,1,1) = [[colv({1})], [{colv({1})},{-colv({1})}]]),
00035   true)$
00036 
00037