mmitou

{-# LANGUAGE NoMonomorphismRestriction, OverloadedStrings #-}

import qualified Data.ByteString.Char8 as BS
import qualified Data.Attoparsec.ByteString as AB
import qualified Data.Attoparsec.ByteString.Char8 as AC
import Control.Applicative ((<*), (*>), (<$>), (<|>))
import Data.Conduit.Attoparsec
import Data.Conduit
import Data.Char

mmitou

package waptest;

import static org.junit.Assert.*;
import static org.hamcrest.CoreMatchers.*;
import org.junit.*;
import java.util.Comparator;
import java.util.List;
import java.util.Arrays;

import waptest.util.*;

mmitou

module Bindings (idle
                , display
                , reshape
                , keyboardMouse) where

import qualified Graphics.Rendering.OpenGL as GL
import qualified Graphics.UI.GLUT as GLUT
import Data.IORef
import Display

mmitou

import Data.Complex
import Graphics.Gnuplot.Simple (linearScale)
import Control.Monad (forM_)
import Data.Maybe (isJust)
import qualified Graphics.Rendering.OpenGL as GL
import qualified Graphics.UI.GLUT as GLUT
import Data.IORef

f :: Complex Double -> Complex Double -> Complex Double
f c z = z * z + c

mmitou

{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}

module Main where

import Prelude hiding (catch)
import Data.Text ()
import Data.Conduit
import qualified Data.Conduit.List as CL
import Control.Applicative
import Control.Concurrent (threadDelay)

mmitou

{-# LANGUAGE OverloadedStrings #-}

module Twitter.Types.IDs (
  IDs
  , get_ids) where

import Twitter.Types.Json
import Data.Aeson
import Control.Monad (mzero)
import Control.Applicative ((<$>), (<*>))

mmitou

import Graphics.Gnuplot.Simple
import Data.IORef
import Control.Monad

forwardEulerMethod :: Fractional a => (a -> a) -> Integer -> (a, a) -> [(a, a)]
forwardEulerMethod f divNum range = zip (tail xs) accums
  where
    xs = linearScale divNum range
    ys = map f xs
    dx = xs !! 1 - xs !! 0

mmitou

#include <stdio.h>

void dump_char(const char c) {
   size_t i = 0;
   char buf[8] = {0};
   for(i = 0; i < 8; ++i) {
      buf[7-i] = ((c >> i) & 0x01);
   }
   for(i = 0; i < 8; ++i) {
      printf("%d", buf[i]);

mmitou

ghcのインストール

ここでghc-7.4.2-src.tar.bz2を落とす。

sudo yum install ncurses-devel sudo mkdir -p /usr/local/haskell/ghc/7.4.2 ./configure --prefix=/usr/local/haskell/ghc/7.4.2 make sudo make install

mmitou

var jarsec = new Jarsec("   123 ");

var x = jarsec.space().integer().many(Jarsec.space).run();
var y = jarsec.space().choice(Jarsec.character("01"), Jarsec.integer, Jarsec.return).run();

function spaces() {
    this.many(spaces);
    return this;
};