pvizer

begin -> ( end -> )

lisp with lesser parens and more space.

$ gem install filewatcher
$ ~/bin/pvizer psrc src

begin defn qsort [L]
  begin
    if (empty? L)
      '()
      begin
          let [[pivot & L2] L]
            (lazy-cat (qsort (for [y L2 :when (<  y pivot)] y))
                      (list pivot)
                      (qsort (for [y L2 :when (>= y pivot)] y)))
      end
   end
end

(println (qsort [5 4 6]))