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

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

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

-- 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

------------------------------------------------------------
/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

{-# 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

{-# LANGUAGE RecordWildCards #-}

import Data.Monoid
import Control.Monad

import qualified Graphics.UI.Threepenny as UI
import Graphics.UI.Threepenny


data Input = Input

HeinrichApfelmus

-- debug log for querying  http://localhost:100000/video.mp4  with  Chrome


Listening on http://0.0.0.0:10000/
Can't open log file "log/access.log".
Exception: log/access.log: openFile: does not exist (No such file or directory)
Logging to stderr instead. **THIS IS BAD, YOU OUGHT TO FIX THIS**

Can't open log file "log/error.log".
Exception: log/error.log: openFile: does not exist (No such file or directory)

HeinrichApfelmus

-- see also
-- http://apfelmus.nfshost.com/blog/2012/06/07-forklift.html

module ForkLift where

import Control.Concurrent
import Control.Monad
import Control.Monad.IO.Class

import Control.Monad.Trans.State

HeinrichApfelmus

/* Eval
   Evaluate the given thunk t into head normal form.
   If the "thunk" we get isn't actually a thunk, just return it.
*/
function E(t) {
    if(t instanceof Thunk) {
        if(t.f) {
            t.x = t.f();
            t.f = 0;
        }