edgarmueller

#!/bin/zsh
emulate -L zsh

b=(1 2 2 4 5 10 10 20 25 50 50 100 100 200 200 400 400 800 800 1600 1600 3200 3200 6400 6400 12800)
c=1
rt=5
while [ "$c" -le "${#b}" ]; do
       for i in {$rt..0}; do
               sleep 1
               print -n "Time: ${(l:2::0:)$((i/60))}:${(l:2::0:)$((i%60))} Blinds: $b[$c], $b[$c+1]\r"

edgarmueller

(ns store-credit
  (use [clojure.contrib.str-utils])
  (:import (java.io BufferedReader FileReader)))

(defn sum-items [v i]
	(let [h (first v)
	      r (rest v)
	      j (atom i)]
	      (if (empty? v)
		  []

edgarmueller

(ns reverse-words
  (use [clojure.contrib.str-utils])
  (:import (java.io BufferedReader FileReader)))

(defn reverse-words [file-name]
  (with-open [reader (BufferedReader. (FileReader. file-name))]
    (let [lines (line-seq reader)
	  n     (Integer/parseInt (first lines))]
      (doseq [[xs i] (map vector (rest lines) (range 1 (inc n)))]
	(println (str "Case #" i ":")