aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Variables/Common-Lisp/variables-1.lisp Normal file
View file

@ -0,0 +1 @@
(defparameter *x* nil "nothing")

1
Task/Variables/Common-Lisp/variables-2.lisp Normal file
View file

@ -0,0 +1 @@
(defvar *x* 42 "The answer.")

1
Task/Variables/Common-Lisp/variables-3.lisp Normal file
View file

@ -0,0 +1 @@
(documentation '*x* 'variable)

3
Task/Variables/Common-Lisp/variables-4.lisp Normal file
View file

@ -0,0 +1,3 @@
(let ((jenny (list 8 6 7 5 3 0 9))
hobo-joe)
(apply #'+ jenny))

4
Task/Variables/Common-Lisp/variables-5.lisp Normal file
View file

@ -0,0 +1,4 @@
(progn
(let ((*x* 43))
(print *x*)
(print *x*))

1
Task/Variables/Common-Lisp/variables-6.lisp Normal file
View file

@ -0,0 +1 @@
(setf *x* 625)

4
Task/Variables/Common-Lisp/variables-7.lisp Normal file
View file

@ -0,0 +1,4 @@
(declaim (ftype (function (fixnum) fixnum) frobnicate))
(defun frobnicate (x)
(declare (type fixnum x))
(the fixnum (+ x 128)))