nandor

--------------------------------------------------------------------------------
-- Huffman coding
--------------------------------------------------------------------------------

import Data.Maybe
import Data.List (nub, sort)


data Huffman a = Tip Int a
               | Node Int (Huffman a) (Huffman a)

nandor

--------------------------------------------------------------------------------
-- Checks if there is a high probability of the number being prime using the
-- Miller-Rabin primality test
-- modPow must be used with the Integer type so that the multiplication won't
-- overflow because n could be >= sqrt(maxInt)
--------------------------------------------------------------------------------
isPrimeMR :: Int -> Bool
isPrimeMR n
  | n < 2 = False
  | n /= 2 && n `mod` 2 == 0 = False

nandor

#include <stdio.h>
#define S(x) char*src=#x;x
S(void main(){printf("#include <stdio.h>\n#define S(x) char*src=#x;x\nS(%s)\n",src);})

nandor

-- |3D Vector
data Vec3 a
  = Vec3 { v3x :: a
         , v3y :: a
         , v3z :: a
         }
  deriving ( Eq, Ord, Show )

-- |Creates a 3D vector

nandor

{-# LANGUAGE NamedFieldPuns, RecordWildCards #-}
--------------------------------------------------------------------------------
-- OpenGL quadrocopter viewer
--------------------------------------------------------------------------------
module Main where


import Data.IORef
import Control.Monad
import Control.Applicative

nandor

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <xmmintrin.h>

typedef float __attribute__((aligned(16))) mat4[16];

void
mat4_mul_sse(mat4 d, mat4 a, mat4 b)
{

nandor

module Main where

import Control.Monad

table :: [ [ Bool ] ]
table
  = sequence $ replicate 4 [False, True]

eval :: [ Bool ] -> [ Bool ]
eval [ d, q2, q1, q0 ]

nandor

/* Lexer for the mini language */
%lex
%%

\s+                     /* skip whitespace */
"func"                  return 'FUNC';
"return"                return 'RETURN';
"if"                    return 'IF';
"else"                  return 'ELSE';
"while"                 return 'WHILE';

nandor

test:
  push %rbp
  mov %rsp, %rbp

  push %rax # d
  push %rbx # b
  push %rcx # c
  push %rdx # Changed by imul

nandor

	.text
	.globl fstrcmp
	.type	fstrcmp, @function
fstrcmp:
	# If the address is already aligned, skip
	testb $15, %dil
	jz 1f

	# If the first string is empty, quit
	movsbl (%rdi), %edx