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

import Data.List

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

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

prettyShow False = "0"

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

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

-- 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

import Prelude hiding((.))

a . b = b a

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

Voker57

fn1 = fn2
fn2 = fn1
a = a

-- try to evaluate any of variables

Voker57

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