table_test.cpp

/******************************************************************************
* MODULE     : table_test.cc
* DESCRIPTION: Test tables
* COPYRIGHT  : (C) 2003  Joris van der Hoeven
*******************************************************************************
* This software falls under the GNU general public license and comes WITHOUT
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for more details.
* If you don't have this file, write to the Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
******************************************************************************/

#include <basix/table.hpp>
using namespace mmx;

int
main () {
  pair<int,int> x1 (1, 2), x2 (7, 7);
  table<int,int> t (seq (x1, x2));
  table<int,int> u (0); u[1]= 8; u[2]= 7; u[3]= 6; u[4]= 5;
  mmout << "t\t= " << t << "\n";
  mmout << "u\t= " << u << "\n";
  mmout << "-t\t= " << -t << "\n";
  mmout << "t+u\t= " << t+u << "\n";
  mmout << "t-u\t= " << t-u << "\n";
  mmout << "u-t\t= " << u-t << "\n";
  mmout << "t*u\t= " << t*u << "\n";
  mmout << "2*t\t= " << 2*t << "\n";
  mmout << "t*2\t= " << t*2 << "\n";
  //mmout << "t/u\t= " << t/u << "\n";
  //mmout << "t/3\t= " << t/3 << "\n";
  mmout << "t+=u\t= " << (t+=u) << "\n";
  mmout << "t-=u\t= " << (t-=u) << "\n";
  //mmout << "t*=u\t= " << (t*=u) << "\n";
  //mmout << "t/=u\t= " << (t/=u) << "\n";
  mmout << "t*=11\t= " << (t*=11) << "\n";
  mmout << "t/=11\t= " << (t/=11) << "\n";
  mmout << "t=u\t= " << (t==u) << "\n";
  mmout << "t!=u\t= " << (t!=u) << "\n";
  mmout << "t<u\t= " << (t<u) << "\n";
  mmout << "t<=u\t= " << (t<=u) << "\n";
  mmout << "t>u\t= " << (t>u) << "\n";
  mmout << "t>=u\t= " << (t>=u) << "\n";
  reset (u, 3); mmout << "-> reset (u, 3)\n";
  mmout << "u\t= " << u << "\n";
  mmout << "sum(t)\t= " << big_add (t) << "\n";
  mmout << "prod(u)\t= " << big_mul (u) << "\n";
  mmout << "u...\t= " << iterate (u) << "\n";
  return 0;
}