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

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Associative-array-Iteration/Babel/associative-array-iteration-1.pb Normal file
View file

@ -0,0 +1 @@
births (('Washington' 1732) ('Lincoln' 1809) ('Roosevelt' 1882) ('Kennedy' 1917)) ls2map ! <

1
Task/Associative-array-Iteration/Babel/associative-array-iteration-2.pb Normal file
View file

@ -0,0 +1 @@
births cp dup {1 +} overmap !

1
Task/Associative-array-Iteration/Babel/associative-array-iteration-3.pb Normal file
View file

@ -0,0 +1 @@
valmap ! lsnum !

1
Task/Associative-array-Iteration/Babel/associative-array-iteration-4.pb Normal file
View file

@ -0,0 +1 @@
births ('Roosevelt' 'Kennedy') lumapls ! lsnum !

1
Task/Associative-array-Iteration/Babel/associative-array-iteration-5.pb Normal file
View file

@ -0,0 +1 @@
births map2ls !

1
Task/Associative-array-Iteration/Babel/associative-array-iteration-6.pb Normal file
View file

@ -0,0 +1 @@
{give swap << " " << itod << "\n" <<} each

2
Task/Associative-array-Iteration/Babel/associative-array-iteration-7.pb Normal file
View file

@ -0,0 +1,2 @@
foo (("bar" 17) ("baz" 42)) ls2map ! <
births foo mergemap !

1
Task/Associative-array-Iteration/Babel/associative-array-iteration-8.pb Normal file
View file

@ -0,0 +1 @@
births map2ls ! {give swap << " " << itod << "\n" <<} each

21
Task/Associative-array-Iteration/Babel/associative-array-iteration.pb
View file

@ -1,21 +0,0 @@
((main
{ (('foo' 12)
('bar' 33)
('baz' 42))
mkhash !
entsha
dup
{1 ith nl <<} each
"-----\n" <<
{2 ith %d nl <<} each})
(mkhash
{ <- newha ->
{ <- dup ->
dup 1 ith
<- 0 ith ->
inskha }
each }))