lambdataro

module Main exposing (main)

import Browser exposing (Document)
import Browser.Events
import Json.Decode as Dec exposing (Decoder)
import Svg exposing (Svg)
import Svg.Attributes as Attr
import Svg.Events

lambdataro

--------------------------------------------------------------
-- calc.lua - 四則演算プログラム (Version 1.0)
-- 2015/07/05 @lambdataro
--------------------------------------------------------------

--------------------------------
-- 字句解析バッファ
--------------------------------

-- 字句解析バッファの作成

lambdataro

function get_name()
	return "ARBITRARY PRECISION"
end

function get_description()
	return { "SEQUENCES ARE TERMINATED WITH MINUS ONE",
			 "EACH SEQUENCE INDICATES AN ARBITRARY PRECISION INTEGER",
			 "READ INTEGERS FORM IN.A AND IN.B",
			 "WRITE SUM OF THESE TO OUT.S" }
end

lambdataro

-- The function get_name() should return a single string that is the name of the puzzle.
--
function get_name()
	return "XOR GATE"
end

-- The function get_description() should return an array of strings, where each string is
-- a line of description for the puzzle. The text you return from get_description() will 
-- be automatically formatted and wrapped to fit inside the puzzle information box.
--

lambdataro

using System.IO;

type Token = TknInt(Int)
           | TknPls
           | TknMns
           | TknAst
           | TknSls
           | TknLp
           | TknRp
           | TknEof

lambdataro

#include <string.h>
#include <immintrin.h>

#define BN2 480
#define BN1 48

double *alloc_matrix(int height, int width);
void free_matrix(double *matrix);

inline void small_dgemm(double alpha, double *a, int lda, double *b, int ldb,

lambdataro

#include <string.h>
#include <immintrin.h>

#define BN2 480
#define BN1 48

double *alloc_matrix(int height, int width);
void free_matrix(double *matrix);

inline void small_dgemm(double alpha, double *a, int lda, double *b, int ldb,

lambdataro

#include <string.h>
#include <immintrin.h>

#define BN2 480
#define BN1 48

double *alloc_matrix(int height, int width);
void free_matrix(double *matrix);

inline void small_dgemm(double alpha, double *a, int lda, double *b, int ldb,

lambdataro

#include <string.h>
#include <immintrin.h>

#define BN2 480
#define BN1 48

double *alloc_matrix(int height, int width);
void free_matrix(double *matrix);

void small_dgemm(double alpha, double *a, int lda, double *b, int ldb,

lambdataro

#include <string.h>
#include <immintrin.h>

#define BN2 480
#define BN1 48

void small_dgemm(double alpha, double *a, int lda, double *b, int ldb,
  double *c, int ldc)
{
  int mm, nn, kk;