Ticket #1126: q.lisp

File q.lisp, 137 bytes (added by vi1, 9 months ago)
Line 
1
2(require :asdf)
3(require :debug)
4
5(declaim (optimize (speed 3)))
6
7(defun f (x)
8  (if (= x 100000)
9    1
10    (f (1+ x))))
11
12(print (f 0))