Anonymous user
Narcissist: Difference between revisions
Added Mathematica
m (Added Sidef language) |
(Added Mathematica) |
||
Line 205:
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))
</lang>
=={{header|Mathematica}}==
{{in}}
<lang Mathematica>prog = "prog = ``;\nPrint[InputString[] == \n ToString[StringForm[prog, ToString[prog, InputForm]]]];";
Print[InputString[] ==
ToString[StringForm[prog, ToString[prog, InputForm]]]];</lang>
{{out}}
<pre>True</pre>
=={{header|Perl}}==
| |||