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

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Quine/Factor/quine-1.factor Normal file
View file

@ -0,0 +1 @@
"%s [ 34 1string dup surround ] keep printf" [ 34 1string dup surround ] keep printf

1
Task/Quine/Factor/quine-2.factor Normal file
View file

@ -0,0 +1 @@
"[ pprint ] [ write ] bi"[ pprint ] [ write ] bi

1
Task/Quine/GW-BASIC/quine.bas Normal file
View file

@ -0,0 +1 @@
10 LIST

1
Task/Quine/Gema/quine.gema Normal file
View file

@ -0,0 +1 @@
*=$1@quote{$1}\}\n@abort;@{\*\=\$1\@quote\{\$1\}\\\}\\n\@abort\;\@\{}

1
Task/Quine/Groovy/quine-1.groovy Normal file
View file

@ -0,0 +1 @@
s="s=%s;printf s,s.inspect()";printf s,s.inspect()

1
Task/Quine/Groovy/quine-2.groovy Normal file
View file

@ -0,0 +1 @@
evaluate s='char q=39;print"evaluate s=$q$s$q"'

1
Task/Quine/Groovy/quine-3.groovy Normal file
View file

@ -0,0 +1 @@
s="s=%c%s%c;printf s,34,s,34";printf s,34,s,34

1
Task/Quine/Groovy/quine-4.groovy Normal file
View file

@ -0,0 +1 @@
s='s=%c%s%1$c;printf s,39,s';printf s,39,s

1
Task/Quine/Groovy/quine-5.groovy Normal file
View file

@ -0,0 +1 @@
printf _='printf _=%c%s%1$c,39,_',39,_

1
Task/Quine/HQ9+/quine.hq9p Normal file
View file

@ -0,0 +1 @@
Q

2
Task/Quine/Icon/quine.icon Normal file
View file

@ -0,0 +1,2 @@
procedure main();x:="write(\"procedure main();x:=\",image(x));write(x);end"
write("procedure main();x:=",image(x));write(x);end

1
Task/Quine/Inform-7/quine.inf Normal file
View file

@ -0,0 +1 @@
R is a room. To quit: (- quit; -). When play begins: say entry 1 in Q; say Q in brace notation; quit. Q is a list of text variable. Q is {"R is a room. To quit: (- quit; -). When play begins: say entry 1 in Q; say Q in brace notation; quit. Q is a list of text variable. Q is "}

1
Task/Quine/Io/quine.io Normal file
View file

@ -0,0 +1 @@
thisMessage print

1
Task/Quine/J/quine.j Normal file
View file

@ -0,0 +1 @@
0

1
Task/Quine/Joy/quine.joy Normal file
View file

@ -0,0 +1 @@
"dup put putchars 10 putch." dup put putchars 10 putch.

1
Task/Quine/Liberty-BASIC/quine.liberty Normal file
View file

@ -0,0 +1 @@
s$ = "s$ = : Print Left$(s$, 5) + chr$(34) + s$ + chr$(34) + Mid$(s$, 5)" : Print Left$(s$, 5) + chr$(34) + s$ + chr$(34) + Mid$(s$, 5)

2
Task/Quine/Lisp/quine.lisp Normal file
View file

@ -0,0 +1,2 @@
((lambda (x) (list x (list 'quote x)))
'(lambda (x) (list x (list 'quote x))))

3
Task/Quine/M4/quine.m4 Normal file
View file

@ -0,0 +1,3 @@
define(`quine',``$1(`$1')'')
quine(`define(`quine',``$1(`$1')'')
quine')

8
Task/Quine/MUMPS/quine.mumps Normal file
View file

@ -0,0 +1,8 @@
QUINE
NEW I,L SET I=0
FOR SET I=I+1,L=$TEXT(+I) Q:L="" WRITE $TEXT(+I),!
KILL I,L
QUIT
SMALL
S %=0 F W $T(+$I(%)),! Q:$T(+%)=""

1
Task/Quine/Mathematica/quine.mathematica Normal file
View file

@ -0,0 +1 @@
a="Print[\"a=\",InputForm[a],\";\",a]";Print["a=",InputForm[a],";",a]

3
Task/Quine/Maxima/quine.maxima Normal file
View file

@ -0,0 +1,3 @@
/* Using ?format from the unerlying Lisp system */
lambda([],block([q:ascii(34),s:"lambda([],block([q:ascii(34),s:~A~A~A],print(?format(false,s,q,s,q))))()$"],print(?format(false,s,q,s,q))))()$