Test Message

Code:

#ifndef CBLAS_H
#define CBLAS_H
#include <stddef.h>

/*
 * Enumerated and derived types
 */
#define CBLAS_INDEX size_t  /* this may vary between platforms */

enum CBLAS_ORDER {CblasRowMajor=101, CblasColMajor=102};
enum CBLAS_TRANSPOSE {CblasNoTrans=111, CblasTrans=112, CblasConjTrans=113};
enum CBLAS_UPLO {CblasUpper=121, CblasLower=122};
enum CBLAS_DIAG {CblasNonUnit=131, CblasUnit=132};
enum CBLAS_SIDE {CblasLeft=141, CblasRight=142};

/*
 * ===========================================================================
 * Prototypes for level 1 BLAS functions (complex are recast as routines)
 * ===========================================================================
 */
float  cblas_sdsdot(const int N, const float alpha, const float *X,
                    const int incX, const float *Y, const int incY);
double cblas_dsdot(const int N, const float *X, const int incX, const float *Y,
                  const int incY);
float  cblas_sdot(const int N, const float  *X, const int incX,
                  const float  *Y, const int incY);
double cblas_ddot(const int N, const double *X, const int incX,
                  const double *Y, const int incY);

Code:


I guess this will be indented and green.


Code:

(defun epd-test (engine-name epd-file-name &key (min-time 1) (max-time 10))
  "Runs an EPD test suite with the given engine, and returns the number of correct solutions."
  (if (not (probe-file epd-file-name))
      (error "No such file: ~S" epd-file-name)
      (with-running-uci-engine (engine engine-name)
        (iter (for epd-line in-file epd-file-name
                  using #'read-line)
              (counting (search-epd epd-line min-time max-time))))))

Tord Romstad wrote:
[D]rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR w KQkq - 0 1

Tord

Harald Johnsen wrote:

Tord Romstad wrote:
[D]rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR w KQkq - 0 1

Tord

Btw how do we do diagrams ?

HJ.