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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Dynamic-variable-names/Common-Lisp/dynamic-variable-names-1.lisp Normal file
View file

@ -0,0 +1,2 @@
(setq var-name (read)) ; reads a name into var-name
(set var-name 1) ; assigns the value 1 to a variable named as entered by the user

6
Task/Dynamic-variable-names/Common-Lisp/dynamic-variable-names-2.lisp Normal file
View file

@ -0,0 +1,6 @@
(defun rc-create-variable (name initial-value)
"Create a global variable whose name is NAME in the current package and which is bound to INITIAL-VALUE."
(let ((symbol (intern name)))
(proclaim `(special ,symbol))
(setf (symbol-value symbol) initial-value)
symbol))

5
Task/Dynamic-variable-names/Common-Lisp/dynamic-variable-names-3.lisp Normal file
View file

@ -0,0 +1,5 @@
CL-USER> (rc-create-variable "GREETING" "hello")
GREETING
CL-USER> (print greeting)
"hello"