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

new tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-09 00:46:50 -07:00
parent 2a4d27cea0
commit 80737d5a6a
1194 changed files with 15353 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Arrays/PicoLisp/arrays-2.l Normal file
View file

@ -0,0 +1,2 @@
(set (nth A 2 2) 'B)
(mapc println A)

2
Task/Arrays/PicoLisp/arrays-3.l Normal file
View file

@ -0,0 +1,2 @@
(push (cdr A) 1)
(mapc println A)

2
Task/Arrays/PicoLisp/arrays-4.l Normal file
View file

@ -0,0 +1,2 @@
(queue (cdr A) 9)
(mapc println A)

2
Task/Arrays/PicoLisp/arrays.l Normal file
View file

@ -0,0 +1,2 @@
(setq A '((1 2 3) (a b c) ((d e) NIL 777))) # Create a 3x3 structure
(mapc println A) # Show it