Skip to content

Instantly share code, notes, and snippets.

View wavewave's full-sized avatar

Ian-Woo Kim wavewave

  • San Francisco, CA, USA
View GitHub Profile
@wavewave
wavewave / relativize.hs
Created March 31, 2013 23:44
relativize url
{-# LANGUAGE StandaloneDeriving, DeriveFunctor, DeriveFoldable, DeriveTraversable #-}
{-# LANGUAGE OverloadedStrings #-}
import Control.Applicative
import Control.Monad
import Data.Attoparsec.Char8 hiding (take)
import qualified Data.ByteString.Char8 as B
import qualified Data.ByteString.Lazy.Char8 as LB
import qualified Data.Foldable as F
import qualified Data.Traversable as T
@wavewave
wavewave / compile.sh
Created March 19, 2013 17:06
qt5 simplest example
g++ -fPIC `pkg-config --cflags --libs Qt5Widgets Qt5Core Qt5Gui` -o hello hello.cpp
@wavewave
wavewave / gist:5180430
Created March 17, 2013 06:52
hmatrix compilable with mkl
$ diff ../hmatrix-0.14.1.0.before/hmatrix.cabal hmatrix.cabal
171a172,174
> -- extra-libraries: gsl mkl_lapack mkl_intel_lp64 mkl_sequential mkl_core
>
>
174c177
< extra-libraries: gsl mkl_lapack mkl_intel_lp64 mkl_sequential mkl_core
---
> extra-libraries: gsl mkl_lapack95_lp64 mkl_intel_lp64 mkl_sequential mkl_core
@wavewave
wavewave / rsatest.hs
Created March 15, 2013 09:39
RSA example
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Crypto.Random
import Codec.Crypto.RSA
import qualified Data.Binary as Bi
import qualified Data.ByteString.Base64.Lazy as LB64
import qualified Data.ByteString.Lazy.Char8 as LB
@wavewave
wavewave / plot.hs
Last active December 14, 2015 12:29
mathematica-data plot using HROOT
import Data.Mathematica
import Data.Mathematica.Parser
import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as C
import Data.Attoparsec
import Data.Maybe
import HROOT.Core
import HROOT.Graf
import HROOT.Hist
@wavewave
wavewave / filelocktest.hs
Created February 20, 2013 03:45
testing file locking
import Control.Concurrent
import System.IO
import System.Posix.Files
import System.Posix.IO
import System.Posix.Types
main = do
putStrLn "file lock test"
let fp = "test.txt"
fd <- openFd fp ReadWrite mode defaultFileFlags
@wavewave
wavewave / parsetest.hs
Created February 19, 2013 16:39
sample LHCOAnalysis
{-# LANGUAGE RecordWildCards, GADTs #-}
import Codec.Compression.GZip
import Control.Applicative
import Control.Monad
import qualified Data.ByteString.Lazy.Char8 as LB
import Data.Function (on)
import Data.List
import Data.Maybe
--
@wavewave
wavewave / madgraphRun.hs
Created February 19, 2013 16:37
madgraph-auto sample running
{-# LANGUAGE PackageImports #-}
module Main where
import Control.Applicative
import Control.Monad
import "mtl" Control.Monad.Reader
import "mtl" Control.Monad.Error
import System.FilePath
import System.Directory
@wavewave
wavewave / dnd.hs
Last active December 12, 2015 10:09
gtk2hs simplest drag and drop test
--
-- drag and drop test gist
--
-- created by D.Wagner
--
import Control.Monad.IO.Class
import Graphics.UI.Gtk
main = do
@wavewave
wavewave / popplerpipe.hs
Created February 2, 2013 19:19
IPC using named pipe with poppler lib
{-# LANGUAGE ScopedTypeVariables #-}
import Control.Concurrent
import Control.Monad
import Control.Monad.Loops
import qualified Data.ByteString.Lazy as B
import Data.Monoid
-- import Data.UUID
import Data.UUID.V4
import Graphics.Rendering.Cairo