HeinrichApfelmus

{-# LANGUAGE Rank2Types #-}
{-# LANGUAGE ScopedTypeVariables #-}

import Data.Traversable (sequenceA)
import Reactive.Banana
import Reactive.Banana.Frameworks

newtype Wrapper = Wrapper (forall t. Moment t (Event t () -> Behavior t Integer))

main :: IO ()

HeinrichApfelmus

------------------------------------------------------------
/Users/apfelmus/.ihaskell/ipython/bin/pip run on Sun Jan 19 23:56:41 2014
Obtaining ipython from git+https://github.com/ipython/ipython.git@9c922f54af799704f4000aeee94ec7c74cada194#egg=ipython-dev

  Cloning https://github.com/ipython/ipython.git (to 9c922f54af799704f4000aeee94ec7c74cada194) to /Users/apfelmus/.ihaskell/ipython/src/ipython

  Found command 'git' at '/opt/local/bin/git'
  Running command /opt/local/bin/git clone -q https://github.com/ipython/ipython.git /Users/apfelmus/.ihaskell/ipython/src/ipython
  Running command /opt/local/bin/git submodule update --init --recursive -q
  Running command /opt/local/bin/git tag -l

HeinrichApfelmus

-- http://www.reddit.com/r/haskell/comments/rbgvz/conduits_vs_pipes_using_void_as_an_input_or/

import Control.Monad

data Pipe m i o r =
    NeedInput (i -> Pipe m i o r) (Pipe m () o r)
  | HaveOutput (Pipe m i o r) (m ()) o
  | Finished (Maybe i) r
  | PipeM (m (Pipe m i o r)) (m r)

HeinrichApfelmus

plotSpectrum1 lattice n m = toFile def file $ do
    layout_title .= "Spectrum of '" ++ name ++ "'"
    layout_x_axis . laxis_title .= "momentum k (" ++ show m ++ " points)"
    layout_y_axis . laxis_title .= "energy E"
    setColors $ colorGradient blue (length rows)
    forM_ rows $ \row -> plot (line "band" [row])
    
    where
    ...

HeinrichApfelmus

{------------------------------------------------------------------------------
    reactive-banana

    Implementation of an "industry strength" game loop with fixed time step
    and variable fps.

    See also  http://gafferongames.com/game-physics/fix-your-timestep/
-------------------------------------------------------------------------------}
{-# LANGUAGE NoMonomorphismRestriction #-}
module Main where

HeinrichApfelmus

import Data.Word
import qualified Data.ByteString as B
type ByteString = B.ByteString

data Tree = Leaf [Word8] | Branch Tree Tree deriving (Eq,Show)

parse :: ByteString -> Tree
parse xs = case view xs of
    Cons 0 xs -> case view xs of
        Cons length xs -> Leaf . B.unpack $ B.take (fromIntegral . toInteger $ length) xs