NicolasT

#include <stdint.h>
#include <stdlib.h>
#include <string.h>

#include <x86intrin.h>
#include <avx2intrin.h>

#ifdef __cplusplus
extern "C" {
void slice_xor(const unsigned char *data, size_t len, uint64_t *p1, uint64_t *p2);

NicolasT

/* Usage:
 *
 *     $ make cryptosplice
 *     cc     cryptosplice.c   -o cryptosplice
 *
 *     $ rm -f cryptosplice.out
 *     $ ./cryptosplice
 *
 * Now, in another terminal:
 *

NicolasT

*.o
*.hi
crc32_bench

NicolasT

module Main where

import Data.Word (Word8, Word32)
import Foreign.C (CUInt(..), CULong(..))
import Foreign.Ptr (Ptr)
import System.IO.Unsafe (unsafePerformIO)

import qualified Data.ByteString as BS

import Test.QuickCheck

NicolasT

.stack-work/

NicolasT

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE StandaloneDeriving #-}

module Langs where

import Data.Proxy

NicolasT

-- https://www.reddit.com/r/haskell/comments/3huexy/what_are_haskellers_critiques_of_f_and_ocaml/cuisrmj

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ViewPatterns #-}

module Main where

import Text.Read (readMaybe)

pattern Even <- ((`mod` 2) -> 0)

NicolasT

main
*.o

NicolasT

preload-statfs.so
test-preload-statfs

NicolasT

import functools
import socket
import sys
import threading
import types
import unittest

class OnException(object):
    '''Wrapper for cleanup actions only to be executed upon exception'''