cthom06

using System;

namespace Foo
{
	class Program
	{
		public static void Main(string[] args)
		{
			const int TestSize = 1000000;
			

cthom06

module LazyStuff.Main

open System

(* I dont know if this is actually fast *)
type FastLazy<'a> = {
    mutable Value : 'a option;
    Func : unit -> 'a;
    }
    with

cthom06

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace ConsoleApplication8
{
    class Program
    {

cthom06

module Skim.Main

open System
open System.IO
open System.Linq

type Sexp =
    | Atom of Value
    | List of Sexp list
and Value =

cthom06

open System;

exception ParseError of string

(* A token represent a single element of the parse tree *)
type Token = 
    | EOFToken
    | NumberToken of double
    | IdentifierToken of string
    | OperatorToken of char

cthom06

// ==UserScript==
// @match https://plus.google.com/*
// ==/UserScript==

var s = document.createElement("style");
s.type = "text/css";
s.innerText = ".w5faHc {display: none;} .ncGWdc, .v1WCLe, .SG, .Te { width: auto;}";
document.head.appendChild(s);

cthom06

func wrapHandler(f func(user, request), perm int) func(request) {
    return func(r request) {
        user := getuser(r)
        if user.priv < perm {
            write("no permission foo'!")
        } else {
            f(user, r)
        }
    }
}

cthom06

import pyaudio, threading, base64, speex, audioop, socket, sys

class Packet:
	""" Use this class to parse dAmn packets.
		Data is stored in the attributes cmd, param,
		args, body and raw.
	"""
 
	def __init__(self, data=None, sep='='):
		self.cmd, self.param, self.args, self.body, self.raw = None, None, {}, None, data

cthom06

========= ./examples/1linefac.pet =========

fac:=|x{if(x|{x*fac(x-1)}|{1})}main:=|{x:=2*2y:=6+1print("fac(x)"fac(x)"fac(y)"fac(y))}main()

--------------------------------------

fac(x) 24 fac(y) 5040 

========= ./examples/badscope.pet =========

cthom06

package damn

import (
	"os"
	"bytes"
)

type PacketBody struct {
	Args map[string]string
	Body string