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

6
Task/Binary_strings/PicoLisp/binary_strings-2.l Normal file
View file

@ -0,0 +1,6 @@
: (hd "rawfile")
00000000 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ................
00000010 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F ................
00000020 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 2F !"#$%&'()*+,-./
00000030 30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 0123456789:;<=>?
...

5
Task/Binary_strings/PicoLisp/binary_strings-3.l Normal file
View file

@ -0,0 +1,5 @@
: (in '(dd "skip=32" "bs=1" "count=16" "if=rawfile")
(make
(while (rd 1)
(link @) ) ) )
-> (32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47)

2
Task/Binary_strings/PicoLisp/binary_strings-4.l Normal file
View file

@ -0,0 +1,2 @@
: (pack (mapcar char (32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47)))
-> " !\"#$%&'()*+,-./"

2
Task/Binary_strings/PicoLisp/binary_strings.l Normal file
View file

@ -0,0 +1,2 @@
: (out "rawfile"
(mapc wr (range 0 255)) )