cgrand

; http://groups.google.com/group/clojure/browse_thread/thread/974e2c7f89e27231/5f4bff3e58dfa36f
; output images http://i.imgur.com/gSASS.png (square maze)
;               http://i.imgur.com/uEqaq.png (hex maze)

;; generic Wilson's algorithm implementation
(defn maze 
 "Returns a random maze carved out of walls; walls is a set of
  2-item sets #{a b} where a and b are locations.
  The returned maze is a set of the remaining walls."
 [walls]

nu7hatch

...

module Helpers
  # Replace standard input with faked one StringIO. 
  def fake_stdin(*args)
    begin
      $stdin = StringIO.new
      $stdin.puts(args.shift) until args.empty?
      $stdin.rewind
      yield