sajith

{-# LANGUAGE PackageImports #-}

-- Fails with "*** Exception: NeedsInfiniteSeed"

module RandomStr2 where

import           "crypto-api" Crypto.Random
import           "crypto-api" Crypto.Types
import           Data.ByteString.Char8 as B
import           System.Entropy

sajith

-- copied from Network.Mail.Mime

module RandomStr where

import           Control.Arrow (first)
import           Data.List     (nub)
import           System.Random

randomString :: RandomGen d => Int -> d -> (String, d)

sajith

module Forever where

import           Control.Concurrent (threadDelay)
import           Control.Monad      (forever)

loop :: Integer -> IO ()
loop i = forever (print i >> threadDelay (10^4) >> loop (i+1))

sajith

Keybase proof

I hereby claim:

• I am sajith on github.
• I am sajith (https://keybase.io/sajith) on keybase.
• I have a public key whose fingerprint is 22D9 BFBA 256B 7BFA 7B16 187C 0C6D A6A2 9D5F 02BA

To claim this, I am signing this object:

sajith

ECDHE-RSA-AES256-GCM-SHA384
ECDHE-ECDSA-AES256-GCM-SHA384
ECDHE-RSA-AES256-SHA384
ECDHE-ECDSA-AES256-SHA384
ECDHE-RSA-AES256-SHA
ECDHE-ECDSA-AES256-SHA
SRP-DSS-AES-256-CBC-SHA
SRP-RSA-AES-256-CBC-SHA
SRP-AES-256-CBC-SHA
DHE-DSS-AES256-GCM-SHA384

sajith

sajith@wheezy:~$ ghc --version
The Glorious Glasgow Haskell Compilation System, version 7.4.1
sajith@wheezy:~$ ghc-pkg list
/var/lib/ghc/package.conf.d
   Cabal-1.14.0
   GLUT-2.1.2.2
   HTTP-4000.2.3
   HUnit-1.2.4.2
   MonadCatchIO-mtl-0.3.0.4
   OpenGL-2.2.3.1

sajith

function loadtimes ( dirname )
    if isempty ( dirname ), return, end

    cmd = sprintf ( 'find %s -iname "*.mat"', dirname );
    [ ~, files ] = system ( cmd ); 
    mfiles = regexp ( files, '\n', 'split');

    for i = 1 : length ( mfiles ) - 1
        s1 = sprintf ( '%s', mfiles{i} );
        s = regexprep ( s1, ',$', '' );