sinelaw

;;(load "/local-home/user18/repos/thirdparty/emacs-haskell-config/init.el")
(add-to-list 'load-path "~/repos/thirdparty/emacs-haskell-config/packages/haskell-mode/")
(require 'haskell-mode-autoloads)
(add-to-list 'Info-default-directory-list "~/repos/thirdparty/emacs-haskell-config/packages/haskell-mode/")

(require 'cl)

(add-to-list 'load-path "~/.emacs.d/lisp")

(require 'cask "~/.cask/cask.el")

sinelaw

#include <rfftw.h>
#include <math.h>
#include <stdio.h>
/* the out format is: */
/* r0, r1, r2, ..., rn/2, i(n+1)/2-1, ..., i2, i1 */

void fft(int n, fftw_real in[n], fftw_real power_spectrum[n/2+1])
{
    fftw_real out[n];
    rfftw_plan p;

sinelaw

module Main where

import System.Directory (getDirectoryContents)
import Control.Monad (forM_)
import Data.Functor ((<$>))
import System.Posix.Files (getSymbolicLinkStatus, isDirectory)

withIsLast :: [a] -> [(a, Bool)]
withIsLast [] = []
withIsLast [x] = [(x, True)]

sinelaw

{-# LANGUAGE FlexibleContexts, FlexibleInstances #-}
module FixT where

data Expr = Val
          | Divide Expr Expr
          | Times Expr Expr
          deriving Show

flipDivide :: Expr -> Expr
flipDivide Val = Val

sinelaw

//       (c -> c)
//                            c
var id = function(x) { return x; };
//        (i -> i)
//           TNumber
var num = id(3);
//        (n -> n)
//           TString
var str = id('a');

sinelaw

function debounce(f, millis) {
    var ready = true;
    var timeoutId;
    var lastMissed;
    function resetTimeout(){
        window.clearTimeout(timeoutId);
        timeoutId = window.setTimeout(function() {
            if (lastMissed) {
                lastMissed();
            }

sinelaw

module WikiNews where

import Network.HTTP(simpleHTTP, getRequest, getResponseBody)
import Data.List(isInfixOf, intersperse)
import Data.Char(isSpace, toLower)
import Control.Category((>>>))

import System.Random(getStdGen)

-- from package tagsoup:

sinelaw

Started GET "/api/system_status?_=1412070154562" for 127.0.0.1 at 2014-09-30 12:42:34 +0300
Processing by Api::V1::SystemStatusesController#index as JSON
  Parameters: {"_"=>"1412070154562"}
  LocalUser Load (0.2ms)  SELECT  "users".* FROM "users"  WHERE "users"."type" IN ('LocalUser') AND "users"."id" = 2  ORDER BY "users"."id" ASC LIMIT 1
Completed 500 Internal Server Error in 2ms (Views: 0.1ms | ActiveRecord: 0.2ms)

sinelaw

module Test where

import Data.Maybe
import Control.Monad
import Control.Monad.Trans
import Control.Monad.Trans.Maybe
import Control.Monad.Trans.Maybe(MaybeT(..))
import Control.Monad.State(State, runState, forM, get, put)

positiveOnly :: Int -> Maybe Int

sinelaw

Expr (Call (Expr (LitFunc ["x"]
                          (Expr (Var "x")
                                (Right Context {parent = Context {parent = Context {parent = Global,
                                                                                    vars = [],
                                                                                    curType = Top},
                                                                  vars = [("x",
                                                                           TVar "x")],
                                                                  curType = Top},
                                                vars = [],
                                                curType = TVar "x"})))