shangaslammi’s gists

shangaslammi / Orbits.hs

Last active December 30, 2015 17:39

Orbital calculations

shangaslammi / Dockerfile

Created November 27, 2013 08:19

centos6 Haskell container with GHC 7.6

	FROM centos:6.4

	# Install wget for fetching Haskell dependencies
	RUN yum install -y wget

	# Install dependencies for GHC and core Haskell libraries
	RUN yum install -y libbsd-devel gmp-devel gmp zlib-devel

	# Install tools needed for installing GHC and Cabal-install
	RUN yum install -y make perl gcc

shangaslammi / Water.hs

Last active December 28, 2015 00:18

Recursive, single-pass, constant space solution to the watershed problem.

	import Data.Array

	waterVolume :: Array Int Int -> Int
	waterVolume arr = go 0 minB maxB where
	(minB,maxB) = bounds arr

	go !acc lpos rpos
	\| lpos >= rpos = acc
	\| leftHeight < rightHeight = segment leftHeight 1 acc lpos contLeft
	\| otherwise = segment rightHeight (-1) acc rpos contRight

shangaslammi / ConcurrencyExamples.hs

Last active March 17, 2022 11:03

Direct Haskell translations of the concurrency examples at http://blog.drewolson.org/blog/2013/07/04/clojure-core-dot-async-and-go-a-code-comparison/

	module ConcurrencyExamples where

	import Control.Concurrent
	import Control.Concurrent.STM
	import Control.Monad
	import Control.Applicative
	import System.Random

	example1 :: IO ()
	example1 = do

shangaslammi / grunt.coffee

Created October 20, 2012 16:57

Common grunt-file template

	module.exports = (grunt) ->
	grunt.initConfig
	coffee:
	compile:
	files:
	"public/js/modules/.js": "src/coffee//.coffee"

	options:
	flatten: false
	bare: false

shangaslammi / hello-ski.hs

Created August 23, 2012 16:53

Hello World using SKI combinator calculus

	s x y z = x z (y z)
	k x y = x
	i = s k k
	c = s (s (k (s (k s) k)) s) (k k)
	b = s (k s) k

	hello =
	s(s(k s)(s(k k)(s(k s)(s(k(s(k s)))(s(s(k s)(s(k k)(s(k b)i)))(k(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s
	b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(c k))))))))))))))))))))))))))))))))))))))))))
	)))))))))))))))))))))))))))(s(s(k s)(s(k k)(s(k s)(s(k(s(k s)))(s(s(k s)(s(k k)(s(k b)i)))(k(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s b(s

shangaslammi / Parser.hs

Created March 3, 2012 20:56

Example: parsing quoted strings with an applicative parser

	quotedString :: Parser String
	quotedString = char '"' > many (escaped <\|> nonQuote) < char '"' where
	escaped = char '\\' *> anyChar
	nonQuote = charIf (/= '"')

shangaslammi / concatenative.hs

Created February 17, 2012 06:01

Concatenative Programming in Haskell

	{-# LANGUAGE TypeOperators, NoImplicitPrelude #-}

	import qualified Data.List as L
	import Control.Arrow
	import Control.Monad
	import Prelude (Bool, Int, Float, fst, snd, flip, ($), uncurry, Show(..), String, (.), otherwise, IO)
	import qualified Prelude as P

	data s :. a = !s :. !a
	infixl 1 :.

shangaslammi / dsl-example.hs

Created January 26, 2012 16:26

Digraph template-DSL example

	{-# LANGUAGE TemplateHaskell, QuasiQuotes #-}

	import Data.Graphs.DSL.TH

	thExample = [digraph\|
	a
	b -> c
	e <-> c
	\|]

shangaslammi / CustomShow.hs

Created December 27, 2011 19:59

Template Haskell Example

	{-# LANGUAGE TemplateHaskell, FlexibleInstances #-}

	module CustomShow where

	import Language.Haskell.TH
	import Data.List (intercalate)

	emptyShow :: Name -> Q [Dec]
	emptyShow name = [d\|instance Show $(conT name) where show _ = ""\|]

Sami Hangaslammi shangaslammi