RosettaCodeData/Task/Narcissist/Mathematica/narcissist.math
2023-07-01 13:44:08 -04:00

2 lines
185 B
Text

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