dmitriy/april_day_2026
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp lang examples

Browse source
This commit is contained in:
Дмитрий Голондарев 2026-03-30 12:07:08 +03:00
parent 64f1523778
commit 2d105b2d9b
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/example1.lisp Normal file
View file

@ -0,0 +1,10 @@
(defun b1 ()
(let ((x 0))
(dotimes (n 250000000) (incf x))
x))
(defun b2 ()
(let ((x 0))
(declare (fixnum x))
(dotimes (n 1000000000) (incf x))
x))