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

new files

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 12:38:42 -07:00
parent 3af7344581
commit 86c034bb8b
1364 changed files with 21352 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Narcissist/Ada/narcissist.ada Normal file
View file

@ -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:=;B:String:=A(1..49)&Q&A(50..61)&Q&A&Q&A(62..A'Last);C:String:=Ada.Text_IO.Get_Line;begin Ada.Text_IO.Put_Line(Boolean'Image(B=C));end Self;";B:String:=A(1..49)&Q&A(50..61)&Q&A&Q&A(62..A'Last);C:String:=Ada.Text_IO.Get_Line;begin Ada.Text_IO.Put_Line(Boolean'Image(B=C));end Self;

1
Task/Narcissist/Go/narcissist-1.go Normal file
View file

@ -0,0 +1 @@
package main; import "os"; import "fmt"; import "bytes"; import "io/ioutil"; func main() {ios := "os"; ifmt := "fmt"; ibytes := "bytes"; iioutil := "io/ioutil"; zero := "Reject"; one := "Accept"; x := "package main; import %q; import %q; import %q; import %q; func main() {ios := %q; ifmt := %q; ibytes := %q; iioutil := %q; zero := %q; one := %q; x := %q; s := fmt.Sprintf(x, ios, ifmt, ibytes, iioutil, ios, ifmt, ibytes, iioutil, zero, one, x); in, _ := ioutil.ReadAll(os.Stdin); if bytes.Equal(in, []byte(s)) {fmt.Println(one);} else {fmt.Println(zero);};}\n"; s := fmt.Sprintf(x, ios, ifmt, ibytes, iioutil, ios, ifmt, ibytes, iioutil, zero, one, x); in, _ := ioutil.ReadAll(os.Stdin); if bytes.Equal(in, []byte(s)) {fmt.Println(one);} else {fmt.Println(zero);};}

2
Task/Narcissist/Perl/narcissist-1.pl Normal file
View file

@ -0,0 +1,2 @@
# this is file narc.pl
print do { local $/; open 0, $0 or die $!; <0> } eq <> ? "accept" : "reject"

1
Task/Narcissist/REXX/narcissist-1.rexx Normal file
View file

@ -0,0 +1 @@
/*REXX*/ say arg(1)=sourceline(1)

1
Task/Narcissist/Tcl/narcissist-1.tcl Normal file
View file

@ -0,0 +1 @@
apply {{} {puts [expr {[gets stdin] eq [info level 0]}]}}