t0yv0

{-# OPTIONS -XDoRec -XDeriveDataTypeable #-}

module Example where

import Text.Earley
import Data.Dynamic
import Control.Applicative

data E = Nat Int
       | Add E E deriving (Show, Typeable)

t0yv0

let mutable section = ""
let mutable status  = 0
let mutable count   = 0

exception Fail of string

let run (name: string) test =
    try
        test ()
        count <- count + 1

t0yv0

(** Packs typed values into boxes preserving equality and hashing. *)
module type HASHED =
sig
  type t
  val hash  : t -> int
  val equal : t -> t -> bool
  val pack  : ('a -> int) -> ('a -> 'a -> bool) -> 'a -> t
end

module Hashed : HASHED =

t0yv0

module type STREAM =
sig
  type 'a delay
  type 'a stream

  val delay     : 'a -> 'a delay
  val next      : ('a -> 'b) -> 'a delay -> 'b delay
  val fix       : ('a delay -> 'a) -> 'a
  val unzip     : ('a * 'b) delay -> 'a delay * 'b delay
  val zip       : ('a delay * 'b delay) -> ('a * 'b) delay

t0yv0

let mapReduce (map    : 'T1 -> Async<'T2>)
              (reduce : 'T2 -> 'T2 -> Async<'T2>)
              (input  : seq<'T1>) : Async<'T2> =
    let run (a: Async<'T>) (k: 'T -> unit) =
        Async.StartWithContinuations(a, k, ignore, ignore)
    Async.FromContinuations <| fun (ok, _, _) ->
        let k = ref 0
        let agent =
            new MailboxProcessor<_>(fun chan ->
                async {

t0yv0

let mapReduce (map    : 'T1 -> Async<'T2>)
              (reduce : 'T2 -> 'T2 -> Async<'T2>)
              (input  : seq<'T1>) : Async<'T2> =
    let run (a: Async<'T>) (k: 'T -> unit) =
        Async.StartWithContinuations(a, k, ignore, ignore)
    Async.FromContinuations <| fun (ok, _, _) ->
        let k = ref 0
        let agent =
            new MailboxProcessor<_>(fun chan ->
                async {

t0yv0

let euler19 () =
    let mutable k = 0
    for y in 1901 .. 2000 do
        for m in 1 .. 12 do
            let date = System.DateTime(y, m, 1)
            if date.DayOfWeek = System.DayOfWeek.Sunday then
                k <- k + 1
    k

stdout.WriteLine(euler19 ())

t0yv0

module My.Regex

exception StackError

type Stack =
    | Branch of Stack * Stack
    | Thread of list<obj>

    member this.Evaluate<'T>() =
        match this with

t0yv0

import Control.Monad.State

-- `Linear a b` reperesents `\x -> a * x + b`.
data Linear = Linear !Int !Int

-- Represents `\x -> x`.
idLinear :: Linear
idLinear = Linear 1 0

-- Interprets the `Linear` value.

t0yv0

testTNFA n =
  let rep 0 p = pure 'a'
      rep n p = rep (n - 1) p *> p
      pat     = rep n (char 'a' <|> pure 'a') *> rep n (char 'a')
  in
   run (compile pat) (take n (repeat 'a'))