tom-galvin

import Control.Monad
import Data.Char
import Data.List
import Data.Ord
import System.IO

type Time = Double
type User = (String, Time)

readUser :: String -> User

tom-galvin

module C208i
  class Gradient
    def initialize(gradient)
      if gradient.length > 0
        @chars = gradient.chars
      else
        raise Exception.new("Gradient string must not be empty.")
      end
    end

tom-galvin

#!/usr/bin/env ruby

module Machine
  class Tape
    def initialize(alphabet, initial='')
      @alphabet = ('_' + alphabet).chars.uniq.join ''
      @head     = 0
      @tape     = Hash.new
      initial.each_char do |c|
        self.write c

tom-galvin

-- My eyes! The goggles do nothing!

import Data.Char
import Data.List
import Data.Maybe
import qualified Data.Map.Strict as Dm

type Symbol = Char
type Alphabet = [Symbol]
type State = String

tom-galvin

#!/bin/bash

if [ $# -eq 0 -o "$1" == "--help" ]; then
	echo "Usage: $(basename $0) device screen [-q]"
	echo "device  The device to set the screen for."
	echo "        Possible devices:"
	xsetwacom --list devices | sed -n 's/\(.*\)id:.*/        * \1/p'
	echo "screen  The screen to set the given device's region to."
	echo "        Possible screens:"
	echo "        * screen (the entire display)"

tom-galvin

import Data.Maybe
import Data.List
import Data.Char

data Successor = Literal Double
               | Previous Int
               | Binary (Double -> Double -> Double) Successor Successor
               | Unary (Double -> Double) Successor

type Term = (Int, Double)

tom-galvin

import Data.Maybe
import Data.List
import Data.Char

-- AST structure for successors
data Successor = Literal Double
               | Previous Int
               | Binary (Double -> Double -> Double) Successor Successor
               | Unary (Double -> Double) Successor

tom-galvin

// Don't know why these functions aren't part of the language but there you are.

module Util

module String =
    let splitArray (delimiters: string list) (s: string) =
        s.Split((Array.ofList delimiters), System.StringSplitOptions.None)

    let splitArrayMax (delimiters: string list) max (s: string) =
        s.Split((Array.ofList delimiters), max, System.StringSplitOptions.None)

tom-galvin

open Util // fs-util available at https://gist.github.com/Quackmatic/2309d4f7b93631c99f22

/// Relation tree structure.
type Relation =
| Add of left: Relation * right: Relation
| Subtract of left: Relation * right: Relation
| Multiply of left: Relation * right: Relation
| Divide of left: Relation * right: Relation
| Constant of value: float
| Relative of offset: int

tom-galvin

open System
open System.Text.RegularExpressions

type Passage = { speakers: string list; lines: string list }

type Scene = { numeral: string; setting: string; speakers: string list; passages: Passage list }
type Act = { numeral: string; scenes: Scene list }

type Token =
    | OpenAct of numeral: string