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

5
Task/Deepcopy/Babel/deepcopy-1.pb Normal file
View file

@ -0,0 +1,5 @@
babel> [1 2 3] dup dup 0 7 0 1 move sd !
---TOS---
[val 0x7 0x2 0x3 ]
[val 0x7 0x2 0x3 ]
---BOS---

5
Task/Deepcopy/Babel/deepcopy-2.pb Normal file
View file

@ -0,0 +1,5 @@
babel> clear [1 2 3] dup cp dup 0 7 0 1 move sd !
---TOS---
[val 0x7 0x2 0x3 ]
[val 0x1 0x2 0x3 ]
---BOS---

5
Task/Deepcopy/Babel/deepcopy-3.pb Normal file
View file

@ -0,0 +1,5 @@
babel> ((1 2) (3 4) (5 6)) cp
babel> {lsnum !} each
( 1 2 )
( 3 4 )
( 5 6 )

3
Task/Deepcopy/Babel/deepcopy-4.pb Normal file
View file

@ -0,0 +1,3 @@
babel> ([map "foo" 3 "bar" 17] [map "foo" 4 "bar" 18] [map "foo" 5 "bar" 19] [map "foo" 0 "bar" 20]) cp
babel> 2 ith "bar" lumap ! itod say !
19

3
Task/Deepcopy/Babel/deepcopy-5.pb Normal file
View file

@ -0,0 +1,3 @@
babel> { { 1 randlf 100 rem itod << " " << } 20 times } cp
babel> eval
86 51 50 43 82 76 13 78 33 45 11 35 84 25 80 36 33 81 43 24

4
Task/Deepcopy/Babel/deepcopy.pb
View file

@ -1,4 +0,0 @@
((main {foo cp bs2gv <<})
(foo (foo bar baz))
(bar (foo bar baz))
(baz (foo bar baz)))