This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ ipython --version | |
1.1.0 | |
$ python --version | |
Python 2.7.3 | |
$ which IHaskell | |
/home/simon/.cabal/bin/IHaskell | |
$ IHaskell setup | |
$ IHaskell console | |
Python 2.7.3 (default, Sep 26 2013, 16:35:25) | |
Type "copyright", "credits" or "license" for more information. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
fibs = 0 : 1 : zipWith (+) fibs (tail fibs) | |
zipWith' :: (a -> b -> c) -> [a] -> [b] -> [c] | |
zipWith' _ [] _ = [] | |
zipWith' _ _ [] = [] | |
zipWith' f (x:xs) (y:ys) = f x y : zipWith' f xs ys |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import Data.Bits (popCount) | |
import Data.Char (intToDigit) | |
import Data.List (intersperse) | |
import System.Environment (getArgs) | |
digitAt :: Integer -> Char | |
digitAt = intToDigit . (`rem` 3) . popCount | |
main = do | |
(fileName:_) <- getArgs |
This file has been truncated, but you can view the full file.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Wed Apr 27 06:23 2016 Time and Allocation Profiling Report (Final) | |
stack-e6536a-prof +RTS -p -RTS build | |
total time = 1.07 secs (1073 ticks @ 1000 us, 1 processor) | |
total alloc = 918,515,576 bytes (excludes profiling overheads) | |
COST CENTRE MODULE %time %alloc | |
get Data.Vector.Binary 9.4 17.7 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
~/src/stack $ git grep -h "^import" src | grep -v Stack | sed 's/qualified//' | sed 's/import *//' | sed 's/".*" *//' | cut -d' ' -f1 | sort | uniq -c | sort -n -r | |
113 Data.Text | |
56 Data.Set | |
55 Path | |
55 Control.Monad.Catch | |
52 Control.Monad.Logger | |
51 Prelude | |
50 Data.Monoid | |
50 Control.Monad | |
48 Data.Map |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
packages: | |
- '.' | |
- location: | |
git: https://github.com/ekmett/bound | |
commit: 0a3666b | |
extra-dep: true | |
resolver: nightly-2016-11-23 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# language BangPatterns, MagicHash, UnboxedTuples, MultiWayIf #-} | |
module Main (main, spec) where | |
import Test.Hspec | |
import Test.QuickCheck | |
import Data.ByteString | |
import qualified Data.ByteString as BS | |
import qualified Data.ByteString.Internal as BS | |
import Foreign |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# language MagicHash #-} | |
-- | 'Char#' '-#' '<=##' '#' @'succ#'0#@ 'Bool' | |
module Lib where | |
import GHC.Prim | |
succ# :: Int# -> Int# | |
succ# = (+# 1#) |