Tener

#!/usr/bin/env runhaskell

-- This is a simple script to convert .a libs into .so ones.
-- More specifically I used it to convert static libs from LLVM for usage with GHCi.

import System.Directory
import System.FilePath
import System.Process
import Control.Applicative
import Data.List ( isSuffixOf )

Tener

/* This program uses the host CURAND API to generate 100
 * pseudorandom floats.
 *
 * Code taken verbatim from CURAND library documentation.
 */
#include <stdio.h>
#include <stdlib.h>
#include <cuda.h>
#include <curand.h>
#define CUDA_CALL(x) do { if((x) != cudaSuccess) { \

Tener

[code]__cuda_local_var_212953_15_non_const_tmp = ((((__T2408 = (((const float3 *)(&(__cuda_local_var_212940_13_non_const_ray.current_point)))->x)) , ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * __T2408) - (1.0F))) - __T2408)) - ((((2.0F) * __T2408) * __T2408) - (1.0F)))) - ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * __T2408) - (1.0F))) - __T2408))) - ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * __T2408) - (1.0F))) - __T2408)) - ((((2.0F) * __T2408) * __T2408) - (1.0F))))) - ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * __T2408) - (1.0F))) - __T2408)) - ((((2.0F) * __T2408) * __T2408) - (1.0F)))) - ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * _

Tener

__cuda_local_var_212953_15_non_const_tmp = 
((((__T2408 = (((const float3 *)(&(__cuda_local_var_212940_13_non_const_ray.current_point)))->x))
 , ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F)
 * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) *
 ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) *
 __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F)
 * __T2408) * __T2408) - (1.0F))) - __T2408)) - ((((2.0F) * __T2408) * __T2408) -
 (1.0F)))) - ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * __T2408) - (1.0F))) - __T2408)))
 - ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * ((((2.0F) * __T2408) * __T2408) -
 (1.0F))) - __T2408)) - ((((2.0F) * __T2408) * __T2408) - (1.0F))))) - ((((2.0F) *

Tener

{-
ghc --make -Odph -fllvm -optlo-globalopt -optlo-loop-unswitch -optlo-mem2reg -optlo-prune-eh -O2 -fllvm -optl-O3 -rtsopts lookandsay.hs
time ./lookandsay > /dev/null
./lookandsay > /dev/null  6,02s user 0,24s system 99% cpu 6,284 total
-}

import System.IO
import Control.DeepSeq

data S = S1 | S2 | S3 -- deriving (Eq,Show,Read,Ord,Enum)

Tener

import Data.List
import System.IO

say :: Integer -> Integer
say = read . concatMap saygroup . group . show
    where saygroup s = (show $ length s) ++ [head s]
look_and_say :: [Integer]
look_and_say = 1 : map say look_and_say

pr (x,y) = do

Tener

/*
g++ -O3 -mtune=native -march=native -fomit-frame-pointer lookandsay.cpp -o lookandsay.out
time ./lookandsay.out > /dev/null
./lookandsay.out > /dev/null  2,88s user 0,05s system 99% cpu 2,948 total
*/



#include <vector>
#include <iostream>

Tener

// Originally based on PyAliasAnalysis from the unladen-swallow project!
#include "llvm/ADT/APInt.h"
#include "llvm/ADT/DenseMap.h"
#include "llvm/ADT/SmallPtrSet.h"
#include "llvm/Analysis/AliasAnalysis.h"
#include "llvm/Analysis/ScalarEvolution.h"
#include "llvm/Analysis/ScalarEvolutionExpressions.h"
#include "llvm/Analysis/Passes.h"
#include "llvm/Argument.h"
#include "llvm/Constants.h"

Tener

# Wtyczka: "P-ytkuj"
# Autor: Krzysztof Skrzŕtnicki
# Licencja: GPLv3
# Wersja: 1.2

# First we pull in the standard API hooks.
require 'sketchup.rb'

# Show the Ruby Console at startup so we can
# see any programming errors we may make.

Tener

# -*- coding: utf-8 -*-
###
###
##### SAVE IN FORMAT: "UTF-8 WITHOUT BOM" OR "ANSI AS UTF-8"
###
###

# Plugin: "BathTiles"
# Author: Krzysztof Skrzetnicki, Dan Rathbun
# License: GPLv3