10 lines
No EOL
172 B
Common Lisp
10 lines
No EOL
172 B
Common Lisp
(defun b1 ()
|
|
(let ((x 0))
|
|
(dotimes (n 500000000) (incf x))
|
|
x))
|
|
|
|
(defun b2 ()
|
|
(let ((x 0))
|
|
(declare (fixnum x))
|
|
(dotimes (n 1000000000) (incf x))
|
|
x)) |