new files

Task/Quine/ABAP/quine-1.abap

@@ -0,0 +1,35 @@
+REPORT R NO STANDARD PAGE HEADING LINE-SIZE 67.
+DATA:A(440),B,C,N(3) TYPE N,I TYPE I,S.
+A+000 = 'REPORT R NO STANDARD PAGE HEADING LINE-SIZE 6\7.1DATA:A'.
+A+055 = '(440),B,C,N(\3) TYPE N,I TYPE I,S.?1DO 440 TIMES.3C = A'.
+A+110 = '+I.3IF B = S.5IF C CA `\\\?\1\3\5\7`.7B = C.5ELSEIF C ='.
+A+165 = ' `\``.7WRITE ```` NO-GAP.5ELSE.7WRITE C NO-GAP.5ENDIF.3'.
+A+220 = 'ELSEIF B = `\\`.5WRITE C NO-GAP.5B = S.3ELSEIF B = `\?`'.
+A+275 = '.5DO 8 TIMES.7WRITE:/ `A+` NO-GAP,N,`= ``` NO-GAP,A+N(\'.
+A+330 = '5\5) NO-GAP,```.`.7N = N + \5\5.5ENDDO.5B = C.3ELSE.5WR'.
+A+385 = 'ITE AT /B C NO-GAP.5B = S.3ENDIF.3I = I + \1.1ENDDO.   '.
+DO 440 TIMES.
+  C = A+I.
+  IF B = S.
+    IF C CA '\?1357'.
+      B = C.
+    ELSEIF C = '`'.
+      WRITE '''' NO-GAP.
+    ELSE.
+      WRITE C NO-GAP.
+    ENDIF.
+  ELSEIF B = '\'.
+    WRITE C NO-GAP.
+    B = S.
+  ELSEIF B = '?'.
+    DO 8 TIMES.
+      WRITE:/ 'A+' NO-GAP,N,'= ''' NO-GAP,A+N(55) NO-GAP,'''.'.
+      N = N + 55.
+    ENDDO.
+    B = C.
+  ELSE.
+    WRITE AT /B C NO-GAP.
+    B = S.
+  ENDIF.
+  I = I + 1.
+ENDDO.

Task/Quine/ABAP/quine-2.abap

@@ -0,0 +1,7 @@
+REPORT R NO STANDARD PAGE HEADING.DATA:A TYPE TABLE OF STRING,B(8).APPEND:
+`REPORT.FORM F TABLES T.NEW-PAGE LINE-SIZE 78.WRITE:'REPORT R NO',` TO A,
+`'STANDARD PAGE HEADING.DATA:A TYPE TABLE OF STRING,B(8).APPEND:'.LOOP` TO A,
+`AT T.REPLACE ALL OCCURENCES OF'``' IN T WITH'````'.WRITE:/'``'` TO A,
+`NO-GAP,T NO-GAP,'`` TO A,'.ENDLOOP.WRITE:AT 78'.','GENERATE',` TO A,
+`'SUBROUTINE POOL A NAME B.PERFORM F IN PROGRAM (B) TABLES A.'.ENDFORM.` TO A.
+GENERATE SUBROUTINE POOL A NAME B.PERFORM F IN PROGRAM (B) TABLES A.

Task/Quine/ABAP/quine-3.abap

@@ -0,0 +1,31 @@
+REPORT A NO STANDARD
+PAGE HEADING
+LINE-SIZE
+72.DATA:C(33),A LIKE
+TABLE OF C,X(3333)
+TYPE X,Y TYPE
+XSTRING.DEFINE A.X+C
+='&1'.C = C + 33.
+END-OF-DEFINITION.
+DEFINE B.LOOP AT A
+INTO C &1 &2.WRITE
+/ C.ENDLOOP.
+END-OF-DEFINITION.
+A FF060201020280003431303300000000AC030000121F9D02BB522ADA69108AA1C7 .
+A E8B32FFEC07DD21907936962B28407983089732C8811FC4413FD02A7BFE6690B03 .
+A 262F72B38EF69EB6A7A71C9F82CF44CC11469E081F86785777F269DE372CE9EC4B .
+A 5E0A24D8224781128E290E1B7A0ECFF423BEDFD316B43B456FE9AD98E1F0401B31 .
+A 9E11B3A23F3C865EEB6D028FD532BC69DED831F41DE6F0B59F745E604996373C97 .
+A 982A2FA9F6C81A86164CCC98D4CC91D22E89AB9A1CCBEB6A97A839A5602BA26AFE .
+A 7791BF4C2A9DBE6866134E093BD82CA291CF2A57EC67E81017384740EB33E6102A .
+A 174784531EFEA076A29A7ACAD9EB55CED8316374D3E00D3DEC1CF36E4D4C4EE64E .
+A 75B28DB568C195BA3DE92F9CC48AAAAF3A4DD9CC6BE899E27C18A3B66ECBF65093 .
+A FFF1168545878AD10C4F075F588821EF947739516EBF7D99F5851D52F629E8D5AC .
+A 13EF77291306AA6CABF7B56EC9E273F47997DA3FE146FB2A2C30E3BE22FEA603B4 .
+A EDB5FBEE64A7637B35B46DD79491EEC2D1A19B26C0ADAAB2FB39F9050000000000 .
+Y = X.IMPORT A = A
+FROM DATA BUFFER Y.B
+TO 13.C = 0.DO 12
+TIMES.WRITE:/'A',
+X+C(33),'.'.C = C +
+33.ENDDO.B FROM 14.

Task/Quine/ABAP/quine-4.abap

@@ -0,0 +1,25 @@
+.REPORT Q NO STANDARD PAGE HEADING LINE-SIZE 72
+.DATA QQ(69) OCCURS 0
+.DATA Q LIKE QQ WITH HEADER LINE
+.APPEND 'SYNTAX-TRACE ON.INCLUDE' TO QQ
+.APPEND SY-REPID TO QQ
+.APPEND '.' TO QQ
+.SYNTAX-CHECK FOR QQ MESSAGE Q LINE Q WORD Q TRACE-TABLE Q
+.LOOP AT Q
+.CHECK Q(1) = '#'
+.Q = Q+5
+.IF Q < Q OR SY-SAPRL > '5'
+.SPLIT Q AT '' INTO Q Q
+.ENDIF
+.IF Q < Q OR SY-LINNO < 22
+.CHECK Q CA 'Q.' OR Q+4 = 'F'
+.ENDIF
+.IF Q < Q OR SY-LINNO > 23
+.CHECK Q CA '.'
+.ENDIF
+.CHECK Q(1) NA 'IT+' OR Q+1(1) = 'F'
+.WRITE / '.' NO-GAP
+.WRITE Q
+.ENDLOOP
+.WRITE / '.'
+.

Task/Quine/ACL2/quine-1.acl2

@@ -0,0 +1,6 @@
+(defun print-quine (quine)
+   (cw quine quine))
+(print-quine
+"(defun print-quine (quine)
+  (cw quine quine))
+(print-quine ~x0)~%")

Task/Quine/ACL2/quine-2.acl2

@@ -0,0 +1 @@
+(let((q"(let((q~x0))(cw q q))"))(cw q q))

Task/Quine/Ada/quine.ada

@@ -0,0 +1 @@
+with Ada.Text_IO;procedure Self is Q:Character:='"';A:String:="with Ada.Text_IO;procedure Self is Q:Character:='';A:String:=;begin Ada.Text_IO.Put_Line(A(1..49)&Q&A(50..61)&Q&A&Q&A(62..A'Last));end Self;";begin Ada.Text_IO.Put_Line(A(1..49)&Q&A(50..61)&Q&A&Q&A(62..A'Last));end Self;

Task/Quine/BASIC/quine-1.bas

@@ -0,0 +1 @@
+10 LIST

Task/Quine/Haskell/quine-1.hs

@@ -0,0 +1 @@
+let q s = putStrLn (s ++ show s) in q "let q s = putStrLn (s ++ show s) in q "

Task/Quine/Java/quine-1.java

@@ -0,0 +1 @@
+class S{public static void main(String[]a){String s="class S{public static void main(String[]a){String s=;char c=34;System.out.println(s.substring(0,52)+c+s+c+s.substring(52));}}";char c=34;System.out.println(s.substring(0,52)+c+s+c+s.substring(52));}}

Task/Quine/JavaScript/quine-1.js

@@ -0,0 +1 @@
+(function(){print("("+arguments.callee.toString().replace(/\s/g,'')+")()");})()

Task/Quine/Perl/quine-1.pl

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

Task/Quine/PicoLisp/quine-1.l

@@ -0,0 +1 @@
+('((X) (list (lit X) (lit X))) '((X) (list (lit X) (lit X))))

Task/Quine/Python/quine-1.py

@@ -0,0 +1,2 @@
+x = 'x = %r\nprint(x %% x)'
+print(x % x)

Task/Quine/REXX/quine-1.rexx

@@ -0,0 +1 @@
+/*REXX program outputs itself.*/ do j=1 for sourceline(); say sourceline(j); end

Task/Quine/Ruby/quine-1.rb

@@ -0,0 +1 @@
+x = "x = %p; puts x %% x"; puts x % x

Task/Quine/Scala/quine-1.scala

@@ -0,0 +1,6 @@
+val q = "\"" * 3
+val c = """val q = "\"" * 3
+val c = %s%s%s
+println(c format (q, c, q))
+"""
+println(c format (q, c, q))

Task/Quine/Scheme/quine-1.ss

@@ -0,0 +1 @@
+((lambda (s) (display (list s (list (quote quote) s)))) (quote (lambda (s) (display (list s (list (quote quote) s))))))

Task/Quine/Smalltalk/quine-1.st

@@ -0,0 +1 @@
+[:s| Transcript show: s, s printString; cr ] value: '[:s| Transcript show: s, s printString; cr ] value: '

Task/Quine/Tcl/quine-1.tcl

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