paf31

module Main where

import Debug.Trace

import Data.Tuple
import Data.Either
import Data.Lazy

class Memo a where
  memo :: forall r. (a -> r) -> a -> Lazy r

EmmanuelOga

// http://stackoverflow.com/questions/52353/in-java-what-is-the-best-way-to-determine-the-size-of-an-object
import java.lang.instrument.Instrumentation;

public class ObjectSizeFetcher {
    private static Instrumentation instrumentation;

    public static void premain(String args, Instrumentation inst) {
        instrumentation = inst;
    }

ice799

#!/custom/ree/bin/ruby

# USAGE:
#
# echo "|/path/to/core_helper.rb %p %s %u %g" > /proc/sys/kernel/core_pattern 
#

require 'etc'
require 'net/smtp'

acdimalev

#!/bin/sh
# Usage: gemcopy [user@]hostname

ruby << LOCAL_RB | sudo sh
require 'rubygems'
specs = Gem.source_index.search ""
local_spec_tuples = specs.map do |spec|
  [spec.name, spec.version.to_s]
end
remote_spec_tuples = `

lucabrunox

pkgs: attrs:
  with pkgs;
  let defaultAttrs = {
    builder = "${bash}/bin/bash";
    args = [ ./builder.sh ];
    setup = ./setup.sh;
    baseInputs = [ gnutar gzip gnumake gcc binutils coreutils gawk gnused gnugrep patchelf findutils ];
    buildInputs = [];
    system = builtins.currentSystem;
  };

hgoldstein95

data Regex
  = Empty
  | Single Char
  | Alt Regex
        Regex
  | Con Regex
        Regex
  | Star Regex
  deriving (Show)

mstepniowski

-- Module implementing a dictionary-like abstract data structure
-- on a 2-3 tree concrete data structure <en.wikipedia.org/wiki/2-3_tree>.
module Tree (Tree,
             empty,
             singleton,
             Tree.lookup,
             insert,
             fromList,
             toList) where

mfikes

If you are curious about the types inferred by ClojureScript, it is easy to get some insight using a macro:

(defmacro inferred-type [form]
  `'~(cljs.analyzer/infer-tag &env
       (cljs.analyzer/no-warn (cljs.analyzer/analyze &env form))))

This is the kind of dev-time macro you could refer using the new user.cljs feature.

cocagne

#!/usr/bin/python

import ctypes
import os
import sys

def err_exit( msg ):
    print >> sys.stderr, msg
    sys.exit(1)

EmmanuelOga

import it.unimi.dsi.fastutil.objects.ObjectAVLTreeSet

data class Quad(val s: String = "", val p: String = "", val o: Comparable<Any>? = null, val c: String = "") :
    Comparable<Quad> {

    override fun compareTo(other: Quad): Int = compareValuesBy(this, other, Quad::s, Quad::p, Quad::o, Quad::c)

    override fun toString(): String = "Q<S=$s P=$p O=$o C=$c>"
}