ghoseb

(ns pascal)

(defn next-row
  "Given one row, generate the next one."
  [row]
  (vec (map + (concat [0] row) (concat row [0]))))

(defn pascal
  "Generate an infinite lazy sequence of Pascal rows."
  []

ghoseb

from gevent import monkey; monkey.patch_all()
import gevent
import gevent.greenlet
from functools import partial
from random import random

import urllib
import urllib2

def on_exception(fun, greenlet):

ghoseb

(ns tetris.core
  (:import (java.awt Color Dimension BorderLayout)
    (javax.swing JPanel JFrame JOptionPane JButton JLabel)
    (java.awt.event KeyListener))
  (:use clojure.contrib.import-static deflayout.core
        clojure.contrib.swing-utils)
  (:gen-class))

(import-static java.awt.event.KeyEvent VK_LEFT VK_RIGHT VK_DOWN VK_UP VK_SPACE)

ghoseb

(defn my-flatten
  "Flatten a nested collection using Tail Recursion."
  [coll]
  (letfn [(step [[fst & more :as coll] res]
            (if (seq coll)
              (if (coll? fst)
                (recur (concat fst more) res)
                (recur more (cons fst res)))
              (reverse res)))]
    (step coll nil)))

ghoseb

(fn [n]
  (nth
   (iterate (fn [row] 
              (let [prow (partition 2 1 row)]
                (concat [1] (map #(apply + %) prow) [1])))
            [1])
   (dec n)))

ghoseb

(let [chr (zipmap (range) "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
      encode (fn [n acc]
               (if (< n 26)
                 (cons n acc)
                 (recur (dec (quot n 26)) (cons (rem n 26) acc))))]
  (defn col-str
    "Convert numbers to Excel headers."
    [n]
    (apply str (map chr (encode n '())))))

ghoseb

import operator

# naive recursive solution
def fact1(n):
    if n <= 1:
        return 1
    return n * fact1(n - 1)

fact2 = lambda n: reduce(operator.mul, xrange(1, n + 1))

ghoseb

(defn scaffold
  "Print the ancestor method signatures of a given interface."
  [iface]
  (doseq [[iface methods] (->> iface
                               .getMethods
                               (map #(vector (.getName (.getDeclaringClass %))
                                             (symbol (.getName %))
                                             (count (.getParameterTypes %))))
                               (group-by first))]
    (println (str "  " iface))

ghoseb

;   Copyright (c) Rich Hickey. All rights reserved.
;   The use and distribution terms for this software are covered by the
;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;   which can be found in the file epl-v10.html at the root of this distribution.
;   By using this software in any fashion, you are agreeing to be bound by
;   the terms of this license.
;   You must not remove this notice, or any other, from this software.

(set! *warn-on-reflection* true)

ghoseb

;;; http://srfi.schemers.org/srfi-26/srfi-26.html

(defn ^:private cut*
  [[a f] form]
  (cond
   (nil? form) [a f]

   (seq? (first form))
   (let [[arg-list xform] (cut* [[] '()] (first form))]
     (recur [(reduce conj a arg-list) (concat f (list xform))] (next form)))