Add tasks for all the new languages

Task/Quine/Ceylon/quine.ceylon

@@ -0,0 +1 @@
+shared void run() {print(let (x = """shared void run() {print(let (x = $) x.replaceFirst("$", "\"\"\"" + x + "\"\"\""));}""") x.replaceFirst("$", "\"\"\"" + x + "\"\"\""));}

Task/Quine/Commodore-BASIC/quine.commodore

@@ -0,0 +1,31 @@
+10 DATA 49,54,48,32,78,61,51,51,48,13,49,55,48,32,68,73,77,32,65,40,78,41,13
+20 DATA 49,56,48,32,70,79,82,32,73,61,48,32,84,79,32,78,13,49,57,48,32,58,32
+30 DATA 82,69,65,68,32,65,40,73,41,13,50,48,48,32,78,69,88,84,32,73,13,50,49
+40 DATA 48,32,70,79,82,32,73,61,48,32,84,79,32,49,52,32,13,50,50,48,32,58,32
+50 DATA 80,82,73,78,84,32,77,73,68,36,40,83,84,82,36,40,40,73,43,49,41,42,49
+60 DATA 48,41,44,50,41,59,34,32,68,65,84,65,32,34,59,77,73,68,36,40,83,84,82
+70 DATA 36,40,65,40,73,42,50,51,41,41,44,50,41,59,13,50,51,48,32,58,32,70,79
+80 DATA 82,32,74,61,49,32,84,79,32,50,50,13,50,52,48,32,58,32,32,32,75,61,73
+90 DATA 42,50,51,43,74,13,50,53,48,32,58,32,32,32,73,70,32,75,32,60,61,32,78
+100 DATA 32,84,72,69,78,32,80,82,73,78,84,32,34,44,34,59,77,73,68,36,40,83,84
+110 DATA 82,36,40,65,40,75,41,41,44,50,41,59,13,50,54,48,32,58,32,78,69,88,84
+120 DATA 32,74,13,50,55,48,32,58,32,80,82,73,78,84,13,50,56,48,32,78,69,88,84
+130 DATA 32,73,13,50,57,48,32,70,79,82,32,73,61,48,32,84,79,32,78,13,51,48,48
+140 DATA 32,58,32,80,82,73,78,84,32,67,72,82,36,40,65,40,73,41,41,59,13,51,49
+150 DATA 48,32,78,69,88,84,32,73,13
+160 N=330
+170 DIM A(N)
+180 FOR I=0 TO N
+190 : READ A(I)
+200 NEXT I
+210 FOR I=0 TO 14
+220 : PRINT MID$(STR$((I+1)*10),2);" DATA ";MID$(STR$(A(I*23)),2);
+230 : FOR J=1 TO 22
+240 :   K=I*23+J
+250 :   IF K <= N THEN PRINT ",";MID$(STR$(A(K)),2);
+260 : NEXT J
+270 : PRINT
+280 NEXT I
+290 FOR I=0 TO N
+300 : PRINT CHR$(A(I));
+310 NEXT I

Task/Quine/ERRE/quine.erre

@@ -0,0 +1,36 @@
+PROGRAM QUINE
+BEGIN
+READ(D$,Y$)
+LOOP
+    READ(X$)
+    EXIT IF LEN(X$)<1
+    PRINT(X$)
+END LOOP
+RESTORE
+LOOP
+    READ(X$)
+    EXIT IF LEN(X$)<1
+    PRINT(D$;CHR$(34);X$;CHR$(34);CHR$(41))
+END LOOP
+PRINT(D$;CHR$(34);CHR$(34);CHR$(41))
+PRINT(Y$)
+DATA("DATA(")
+DATA("END PROGRAM")
+DATA("PROGRAM QUINE")
+DATA("BEGIN")
+DATA("READ(D$,Y$)")
+DATA("LOOP")
+DATA("    READ(X$)")
+DATA("    EXIT IF LEN(X$)<1")
+DATA("    PRINT(X$)")
+DATA("END LOOP")
+DATA("RESTORE")
+DATA("LOOP")
+DATA("    READ(X$)")
+DATA("    EXIT IF LEN(X$)<1")
+DATA("    PRINT(D$;CHR$(34);X$;CHR$(34);CHR$(41))")
+DATA("END LOOP")
+DATA("PRINT(D$;CHR$(34);CHR$(34);CHR$(41))")
+DATA("PRINT(Y$)")
+DATA("")
+END PROGRAM

Task/Quine/Free-Pascal/quine.free

@@ -0,0 +1 @@
+const s=';begin writeln(#99#111#110#115#116#32#115#61#39,s,#39,s);readln;end.';begin writeln(#99#111#110#115#116#32#115#61#39,s,#39,s);readln;end.

Task/Quine/Hoon/quine-1.hoon

@@ -0,0 +1 @@
+!:  :-  %say  |=  [^ [~ ~]]  =+  ^=  s  ((list ,@tas) ~['!:  :-  %say  |=  [^ [~ ~]]  =+  ^=  s  ((list ,@tas) ~[' 'x' '])  :-  %noun  (,tape (turn s |=(a=@tas ?:(=(a %x) (crip `(list ,@tas)`(turn s |=(b=@tas =+([s=?:(=(b %x) " " "") m=(trip ~~~27.)] (crip :(welp s m (trip b) m s)))))) a))))'])  :-  %noun  (,tape (turn s |=(a=@tas ?:(=(a %x) (crip `(list ,@tas)`(turn s |=(b=@tas =+([s=?:(=(b %x) " " "") m=(trip ~~~27.)] (crip :(welp s m (trip b) m s)))))) a))))

Task/Quine/Hoon/quine-2.hoon

@@ -0,0 +1 @@
+=-(`@t`(rap 3 - (scot %uw -) ")") 0wwai8F.8y0Fb.i1Tti.kwt6Z.zsOww.bi0P8.71xsy.xwt41.wa2QZ)

Task/Quine/Hoon/quine-3.hoon

@@ -0,0 +1 @@
+=<(`_""`~[. `@`39 . `@`10.535] '=<(`_""`~[. `@`39 . `@`10.535] ')

Task/Quine/Lasso/quine.lasso

@@ -0,0 +1,7 @@
+var(a=(:10,39,118,97,114,40,97,61,40,58,39,10,36,97,45,62,106,111,105,110,40,39,44,39,41,10,39,41,41,39,10,118,97,114,40,98,61,98,121,116,101,115,41,10,36,97,45,62,102,111,114,101,97,99,104,32,61,62,32,123,32,36,98,45,62,105,109,112,111,114,116,56,98,105,116,115,40,35,49,41,32,125,10,36,98,45,62,97,115,83,116,114,105,110,103))
+'var(a=(:'
+$a->join(',')
+'))'
+var(b=bytes)
+$a->foreach => { $b->import8bits(#1) }
+$b->asString

Task/Quine/Nim/quine-2.nim

@@ -0,0 +1,2 @@
+const x = "var x = echo x[0..7],chr(34),x,chr(34),chr(10),x[8 .. -1]"
+echo x[0..7],chr(34),x,chr(34),chr(10),x[8 .. -1]

Task/Quine/Nim/quine-3.nim

@@ -0,0 +1,4 @@
+const x = "const x = |const y = x[0..9]&34.chr&x&34.chr&10.chr&x[11..100]&10.chr&x[102..115]&10.chr&x[117 .. -1]|static: echo y|echo y"
+const y = x[0..9]&34.chr&x&34.chr&10.chr&x[11..100]&10.chr&x[102..115]&10.chr&x[117 .. -1]
+static: echo y
+echo y

Task/Quine/Oforth/quine.oforth

@@ -0,0 +1 @@
+"dup 34 emit print 34 emit BL emit print" dup 34 emit print 34 emit BL emit print

Task/Quine/Phix/quine.phix

@@ -0,0 +1 @@
+constant c="constant c=%sprintf(1,c,{34&c&34})"printf(1,c,{34&c&34})

Task/Quine/Ring/quine.ring

@@ -0,0 +1,2 @@
+v = "see substr(`v = ` + char(34) + `@` + char(34) + nl + `@` ,`@`,v)"
+see substr(`v = ` + char(34) + `@` + char(34) + nl + `@` ,`@`,v)

Task/Quine/Sidef/quine-1.sidef

@@ -0,0 +1,2 @@
+s = %(s = %%(%s); printf(s, s);
+); printf(s, s);

Task/Quine/Sidef/quine-2.sidef

@@ -0,0 +1,3 @@
+say(<<e*2, 'e')
+say(<<e*2, 'e')
+e

Task/Quine/Swift/quine-1.swift

@@ -0,0 +1 @@
+({print($0+$0.debugDescription+")")})("({print($0+$0.debugDescription+\")\")})(")

Task/Quine/Swift/quine-2.swift

@@ -0,0 +1 @@
+{println($0+$0.debugDescription+")")}("{println($0+$0.debugDescription+\")\")}(")