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

First commit of partial RosettaCode contents.

Browse source 
Pushing this for testing purposes. Lots of work still needed.
This commit is contained in:
Ingy döt Net 2013-04-08 13:02:41 -07:00
commit 1e05ecd7ee
781 changed files with 9080 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Quine/Tcl/quine-2.tcl Normal file
View file

@ -0,0 +1,2 @@
join { {} \{ \} } something
=> something{something}

2
Task/Quine/Tcl/quine-3.tcl Normal file
View file

@ -0,0 +1,2 @@
join { {} \{ \} } { join { {} \{ \} } }
=> join { {} \{ \} } { join { {} \{ \} } }

34
Task/Quine/Tcl/quine-4.tcl Normal file
View file

@ -0,0 +1,34 @@
program quine;
const
apos: Char = Chr(39);
comma: Char = Chr(44);
lines: Array[1..17] of String[80] = (
'program quine;',
'',
'const',
' apos: Char = Chr(39);',
' comma: Char = Chr(44);',
' lines: Array[1..17] of String[80] = (',
' );',
'',
'var',
' num: Integer;',
'',
'begin',
' for num := 1 to 6 do writeln(lines[num]);',
' for num := 1 to 16 do writeln(apos, lines[num], apos, comma);',
'% writeln(apos, lines[17], apos);',
' for num := 7 to 17 do writeln(lines[num]);',
'end.'
);
var
num: Integer;
begin
for num := 1 to 6 do writeln(lines[num]);
for num := 1 to 16 do writeln(apos, lines[num], apos, comma);
writeln(apos, lines[17], apos);
for num := 7 to 17 do writeln(lines[num]);
end.

2
Task/Quine/Tcl/quine.tcl Normal file
View file

@ -0,0 +1,2 @@
join { {} A B } any_string
=> any_stringAany_stringB