Программа, печатающая свой код

Классическое упражнение по программированию.

Прежде чем смотреть решение, попробуйте написать сами, проверьте свой уровень.

Мне понадобилось 20 минут, чтобы набросать костяк и еще 10 минут, чтобы добиться точного соответствия.

Результат с исходным кодом сравнивал с помощью сравнения файлов. Тексты действительно идентичны.

Можно, конечно, попробовать вариант с оператором «Выполнить», но и так неплохо.

Суть решения понятна.

Код = "

|Для Инд = 1 По 2 Цикл

| Если Инд = 2 Тогда

| Сообщить(Код);

| Иначе

| Р = ""Код = """""";

| Для ИндС = 1 По СтрДлина(Код) Цикл

| Символ = Сред(Код, ИндС, 1);

| Если Символ = Символы.ПС Тогда

| Р = Р + Символы.ПС + ""|"";

| ИначеЕсли Символ = """""""" Тогда

| Р = Р + """""""""""";

| Иначе

| Р = Р + Символ;

| КонецЕсли;

|

| КонецЦикла;

| Р = Р + """""";"";

| Сообщить(Р);

| КонецЕсли;

|КонецЦикла;";

Для Инд = 1 По 2 Цикл

Если Инд = 2 Тогда

Сообщить(Код);

Иначе

Р = "Код = """;

Для ИндС = 1 По СтрДлина(Код) Цикл

Символ = Сред(Код, ИндС, 1);

Если Символ = Символы.ПС Тогда

Р = Р + Символы.ПС + "|";

ИначеЕсли Символ = """" Тогда

Р = Р + """""";

Иначе

Р = Р + Символ;

КонецЕсли;

КонецЦикла;

Р = Р + """;";

Сообщить(Р);

КонецЕсли;

КонецЦикла;

Идея написать такую программу возникла у меня, когда я прочитал про сборник программ "Hello World" на разных языках программирования, в том числе и на 1с.

А вы за сколько написали такую программу?

Может есть варианты покороче (кроме Выполнить - неспортивно), хотя для коллекции можете написать и с Выполнить - включу в статью.

По здравому размышлению я подумал, что первый цикл в моем коде лишний. А второй цикл можно заменить на функцию "СтрЗаменить".

Путем оптимизации у меня получилась вот такая программка в две строчки:

Код = "Сообщить(""Код = """""" + СтрЗаменить(Код, """""""", """""""""""") + """""";""); Сообщить(Код);";

Сообщить("Код = """ + СтрЗаменить(Код, """", """""") + """;"); Сообщить(Код);