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

4
Task/Arrays/Common-Lisp/arrays-1.lisp Normal file
View file

@ -0,0 +1,4 @@
(let ((array (make-array 10)))
(setf (aref array 0) 1
(aref array 1) 3)
(print array))

5
Task/Arrays/Common-Lisp/arrays-2.lisp Normal file
View file

@ -0,0 +1,5 @@
(let ((array (make-array 0 :adjustable t :fill-pointer 0)))
(vector-push-extend 1 array)
(vector-push-extend 3 array)
(setf (aref array 0) 2)
(print array))

1
Task/Arrays/Common-Lisp/arrays-3.lisp Normal file
View file

@ -0,0 +1 @@
(make-array 10)

1
Task/Arrays/Common-Lisp/arrays-4.lisp Normal file
View file

@ -0,0 +1 @@
(make-array '(10 20))

4
Task/Arrays/Common-Lisp/arrays-5.lisp Normal file
View file

@ -0,0 +1,4 @@
; Makes an array of 20 objects initialized to nil
(make-array 20 :initial-element nil)
; Makes an integer array of 4 elements containing 1 2 3 and 4 initially which can be resized
(make-array 4 :element-type 'integer :initial-contents '(1 2 3 4) :adjustable t)