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

2
Task/Singly-linked-list-Traversal/Clojure/singly-linked-list-traversal.clj
View file

@ -1 +1 @@
(doseq [x xs] (println x)
(doseq [x xs] (println x))

4
Task/Singly-linked-list-Traversal/Common-Lisp/singly-linked-list-traversal-2.lisp
View file

@ -1,3 +1 @@
(loop for ref = list then (rest ref)
until (null ref)
do (print (first ref)))
(loop for x in list do (print x))

1
Task/Singly-linked-list-Traversal/Common-Lisp/singly-linked-list-traversal-3.lisp Normal file
View file

@ -0,0 +1 @@
(mapc #'print list)

1
Task/Singly-linked-list-Traversal/Common-Lisp/singly-linked-list-traversal-4.lisp Normal file
View file

@ -0,0 +1 @@
(map nil #'print list)

3
Task/Singly-linked-list-Traversal/Common-Lisp/singly-linked-list-traversal-5.lisp Normal file
View file

@ -0,0 +1,3 @@
(loop for ref = list then (rest ref)
until (null ref)
do (print (first ref)))

2
Task/Singly-linked-list-Traversal/NewLISP/singly-linked-list-traversal.newlisp Normal file
View file

@ -0,0 +1,2 @@
(dolist (x '(a b c d e))
(println x))

2
Task/Singly-linked-list-Traversal/Perl-6/singly-linked-list-traversal-1.pl6
View file

@ -1,5 +1,5 @@
my $list = 1 => 2 => 3 => 4 => 5 => 6 => Mu;
loop (my $l = $list; $l; $l = $l.value) {
loop (my $l = $list; $l; $l.=value) {
say $l.key;
}

2
Task/Singly-linked-list-Traversal/Perl-6/singly-linked-list-traversal-2.pl6
View file

@ -1,7 +1,7 @@
use MONKEY_TYPING;
augment class Pair {
method traverse () {
gather loop (my $l = self; $l; $l = $l.value) {
gather loop (my $l = self; $l; $l.=value) {
take $l.key;
}
}