misc.cc

   1 /*
   2  *  mlp-mnist is an implementation of a multi-layer neural network.
   3  *
   4  *  Copyright (c) 2006 École Polytechnique Fédérale de Lausanne,
   5  *  http://www.epfl.ch
   6  *
   7  *  Written by Francois Fleuret <francois@fleuret.org>
   8  *
   9  *  This file is part of mlp-mnist.
  10  *
  11  *  mlp-mnist is free software: you can redistribute it and/or modify
  12  *  it under the terms of the GNU General Public License version 3 as
  13  *  published by the Free Software Foundation.
  14  *
  15  *  mlp-mnist is distributed in the hope that it will be useful, but
  16  *  WITHOUT ANY WARRANTY; without even the implied warranty of
  17  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18  *  General Public License for more details.
  19  *
  20  *  You should have received a copy of the GNU General Public License
  21  *  along with mlp-mnist.  If not, see <http://www.gnu.org/licenses/>.
  22  *
  23  */
  24
  25 // $Id: misc.cc,v 1.1 2005-12-13 17:19:11 fleuret Exp $
  26
  27 #include "misc.h"
  28
  29 int compare_couple(const void *a, const void *b) {
  30   if(((Couple *) a)->value < ((Couple *) b)->value) return -1;
  31   else if(((Couple *) a)->value > ((Couple *) b)->value) return 1;
  32   else return 0;
  33 }
  34
  35 int factorial(int k) {
  36   int n = 1;
  37   for(int l = 1; l <= k; l++) n *= l;
  38   return n;
  39 }