Narcissist: Difference between revisions
Content added Content deleted
(Narcissist en FreeBASIC) |
|||
| Line 345: | Line 345: | ||
</lang> |
</lang> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
{{in}} |
{{in}} |
||
<lang Mathematica>prog = "prog = ``;\nPrint[InputString[] == \n ToString[StringForm[prog, ToString[prog, InputForm]]]];"; |
<lang Mathematica>prog = "prog = ``;\nPrint[InputString[] == \n ToString[StringForm[prog, ToString[prog, InputForm]]]];"; |
||
Print[InputString[] == |
Print[InputString[] == ToString[StringForm[prog, ToString[prog, InputForm]]]];</lang> |
||
ToString[StringForm[prog, ToString[prog, InputForm]]]];</lang> |
|||
{{out}} |
{{out}} |
||
<pre>True</pre> |
<pre>True</pre> |
||