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/Narcissist/Icon/narcissist.icon Normal file
View file

@ -0,0 +1 @@
procedure main();yes:="Accept";no:="Reject";pat:="procedure main();yes:=$;no:=$;pat:=$;a:=[yes,no,pat];narc:=char(0)[0:0];pat?{while narc||:=tab(find(char(36))) do{narc||:=image(get(a));move(1)};narc||:=tab(0)};write(if read()==narc then yes else no);end";a:=[yes,no,pat];narc:=char(0)[0:0];pat?{while narc||:=tab(find(char(36))) do{narc||:=image(get(a));move(1)};narc||:=tab(0)};write(if read()==narc then yes else no);end

6
Task/Narcissist/J/narcissist-1.j Normal file
View file

@ -0,0 +1,6 @@
#!/j602/bin/jconsole
main=:3 : 0
self=: '#!/j602/bin/jconsole',LF,'main=:',(5!:5<'main'),LF,'main''''',LF
echo self -: stdin''
)
main''

2
Task/Narcissist/J/narcissist-2.j Normal file
View file

@ -0,0 +1,2 @@
$ ./narcissist.ijs <narcissist.ijs
1

1
Task/Narcissist/J/narcissist-3.j Normal file
View file

@ -0,0 +1 @@
narcissist=.(-:,~,2#{:)&'(-:,~,2#{:)&'''

4
Task/Narcissist/J/narcissist-4.j Normal file
View file

@ -0,0 +1,4 @@
(-:,~,2#{:)&'(-:,~,2#{:)&''' '(-:,~,2#{:)'
0
(-:,~,2#{:)&'(-:,~,2#{:)&''' '(-:,~,2#{:)&''(-:,~,2#{:)&'''''''
1

1
Task/Narcissist/Liberty-BASIC/narcissist.liberty Normal file
View file

@ -0,0 +1 @@
s$ = "s$ = Input a$ : Print (a$ = Left$(s$, 5) + chr$(34) + s$ + chr$(34) + Mid$(s$, 14, 3) + Mid$(s$, 6, 100)) + Mid$(s$, 23, 3)" : Input a$ : Print (a$ = Left$(s$, 5) + chr$(34) + s$ + chr$(34) + Mid$(s$, 14, 3) + Mid$(s$, 6, 100))