vishesh

#!/bin/sh

# clean pkg and src

for x in $(ls); do
    if [ -d "$x/src" ]; then
        rm -rf $x/src;
    fi;

    if [ -d "$x/pkg" ]; then

vishesh

(defn fibs []
  "Generate a lazy sequence of fibonacci numbers"
  (lazy-cat '(0 1)
            (map + (fibs ) (rest  (fibs )))))

(println (take 20 (fibs )))

vishesh

(define (subsets s)
  (if (null? s)
      (list null)
      (let ((rest (subsets (cdr s))))
        (append rest (map (lambda (x)
                            (cons (car s) x))
                          rest)))))

(subsets '(1 2 3))

vishesh

#!/bin/env python

""" tryton_shell: A dirty shell for Tryton to quickly interact with it

    usage: tryton_shell.py [-h] --config CONFIG --database DATABASE

    arguments:
      --config CONFIG      Tryton config file.
      --database DATABASE  Tryton database.

vishesh

# Drop all test_* databases in Postgres

function dropalldb()
{
    for db in `psql -l | cat | egrep -o "test_[0-9]*"`; do
        echo "Dropping " $db
        dropdb $db;
    done;
}

vishesh

import threading


def threadify(func):
    "A decorator to run a function asynchronously"
    def run(*fargs, **fkwargs):
        threading.Thread(target=func, args=fargs, kwargs=fkwargs).start()
    return run

vishesh

# -*- coding: utf-8 -*-
"""
    test_sale

    Test Sale

    :copyright: (c) 2013-2014 by Openlabs Technologies & Consulting (P) Limited
    :license: BSD, see LICENSE for more details.
"""
import unittest

vishesh

; Purely functional implementation of Set data structure

(define set-init
  (lambda (x) #false))

(define (set-add set x)
  (lambda (y)
    (if (= x y)
        #true
        (set y))))

vishesh

(define (seq lst last)
  (if (empty? lst)
      0
      (if (< last (first lst))
          (max (add1 (seq (rest lst) (first lst)))
               (seq (rest lst) last))
          (seq (rest lst) last))))

vishesh

open Core.Std

type tree = Empty | Node of int * tree * tree

let rec largest_bst t =
  let min_exn (lst:int list) : int =
    Option.value_exn (List.min_elt lst ~cmp:Int.compare)
  and max_exn (lst:int list) : int =
    Option.value_exn (List.max_elt lst ~cmp:Int.compare)
  in