RosettaCodeData/Task/Narcissist/Mathematica/narcissist.math
2015-11-18 06:14:39 +00:00

3 lines
188 B
Text

prog = "prog = ``;\nPrint[InputString[] == \n ToString[StringForm[prog, ToString[prog, InputForm]]]];";
Print[InputString[] ==
ToString[StringForm[prog, ToString[prog, InputForm]]]];