Voker57

class ConstHash < Hash
	def []=(name, value)
		if has_key? name
			raise "Can't rebind #{name}"
		else
			super name, value
		end
	end
end

Voker57

fn1 = fn2
fn2 = fn1
a = a

-- try to evaluate any of variables

Voker57

import Prelude hiding((.))

a . b = b a

main = do {
"-*-Hello world-*-".splitAt(3).snd.splitAt(11).fst.print
}

Voker57

-- statusd_eee.lua
--
-- Public domain
--
-- Uses the /proc/acpi interface to get eeePC devices' status
-- b is for bluetooth, c is for camera, w is for wifi
-- uppercase letter means that device is on, lowercase - off

local defaults={
	update_interval = 10*1000,

Voker57

module Clusterizer (clusterValues, Pair, Cluster, massCenter) where

import Data.List

type Pair = (Int, Int)
type Cluster = [Pair]

compareFirst a b = compare (fst a) (fst b)

box :: a -> [a]

Voker57

require 'benchmark'
include Benchmark
n = 10000000
Benchmark.bm do |test|
 
  test.report("Double quotes:") do
    n.times do |x|
      str = "A string without newline"
    end
  end

Voker57

import Data.List

toBool 0 = False
toBool 1 = True
fromBool True = 1
fromBool False = 0

toList (a,b) = [a,b]

prettyShow False = "0"

Voker57

#!/bin/bash

gem1.8 list --local --no-versions > 1.8.txt
gem1.9 list --local --no-versions > 1.9.txt
diff gem1.8.txt gem1.9.txt

Voker57

This is very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very long string

Voker57

#!/usr/bin/ruby

# Hackage [http://hackage.haskell.org] documentation downloader
# Fetches documentation for installed only (or all available) Cabal packages in current directory
# Use --all to download docs for all packages
# Requires wget and cabal to be installed
# by Voker57 <[email protected]>
#
# Public domain