frickn' lisp in frickn' python

gistfile1.clj

; vim: tabstop=2 expandtab shiftwidth=2 softtabstop=2 filetype=lisp
; Copyright (c) Paul Tagliamonte, in sofar as any of this is at all
;  copyrightable.


(def hello "World!")


(def square (fn [arg]
  (* arg arg)))


(def factorial (fn [n]
  (if (<= n 1)
   1
   (* n (factorial (- n 1))))))


(def fib (fn [n]
  (if (< n 2)
    n
    (+ (fib (- n 1)) (fib (- n 2))))))

gistfile2.py

import hy.lang.importer
import really_lisp


print really_lisp.hello
# "World!"

print really_lisp.square(4)
# 16

print really_lisp.factorial(10)
# 3628800

print [really_lisp.fib(x) for x in range(1, 20)]
# [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144,
#        233, 377, 610, 987, 1597, 2584, 4181]