darkf

import Data.Maybe (fromJust)

data Type = IntTy
		  | ArrowTy Type Type
	deriving (Show, Eq)

data Term = Const Int
		  | Var String
		  | Abs String Type Term
		  | App Term Term

darkf

#include <functional>
#include <map>
#include <typeinfo>
#include <iostream>

struct Event {
	virtual ~Event() {}
};
struct TestEvent : Event {
	std::string msg;

darkf

import math
import sdl

const
    WIDTH = 1024
    HEIGHT = 768

    TIMESTEP = 1000 div 30 # 30 fps

    THING_WIDTH = 32

darkf

-- Interpreter for a simple dynamically typed pattern matching language
-- Copyright (c) 2013 darkf
-- Written on 10/18/2013

import Control.Monad.State (State, runState, evalState, get, put)
import qualified Data.Map as M

data AST = Add AST AST
     | Def String AST
		 | Var String

darkf

import Control.Monad.State (State, runState, evalState, get, put)
import qualified Data.Map as M

data AST = Add AST AST
		 | Def String AST
		 | Var String
		 | StrConst String
		 | IntConst Int
		 deriving (Show, Eq)

darkf

If we extend the Possum language to include optional parentheses, which group together tokens (atoms and constants), and when evaluated act as function applications, and when quoted act as homoiconic representations of a program.

Consider the following pseudo-Possum program:

defun compose f g is
  -> x is
    f g x
  end
end

darkf

module Eval (bf_eval) where
import qualified Data.Vector.Mutable as MV
import Control.Monad.ST (runST)
import Data.Char (chr)
import Reducer

bf_eval :: [ISC] -> String
bf_eval instrs =
  runST $ bf_eval' instrs
	where

darkf

let eval str =
  let cells = Array.make 4096 0 in
	let ptr = ref 0 in
	let len = String.length str in

	let rec evalbf c =
		if c >= len then
			c
		else
			match String.get str c with

darkf

# Let's define a hypothetical Entity-Component System for a one-dimensional text-based game.
# Copyright (c) 2013 darkf
# First authored 5/14/2013
# Licensed under the terms of the WTFPL

from magic import Game, Entity, Component, system, query

# Components are pure-data models

PositionC = Component(x=0)

darkf

import math

def sumPoint(nums, n):
	acc = 0
	for i,x in enumerate(nums):
		acc += x
		if acc == n:
			return i
	return None