Автопортрет (для программистов)

[Seamew]

а зачем он?

[mayer]

а зачем он?

Показать скрытый текст

Чтоб был замкнутый цикл ,ИХМО

.  Я ж в этом нифига не шарю,если честно.

[Вилли ☂]

а поподробнее? что не так?

Код:

Код:

begin
i="print i"
print "begin i="print i""
print i "end"
end

Результат выполнения (даже, если закрыть глаза на все кавычки):

begin
i="print i"
print i
end

отсутствуют третья и пятая строчки

[☭-Изделие 20Д]

это называется куайн

я могу написать куайн на языке hq9+:

Код:

q

Было уже

http://nazva.net/forum/in....msg154155.html#msg154155

[☭-Изделие 20Д]

я как проженный програмист отвечу - низя такую программу написать

http://nazva.net/forum/in....msg154155.html#msg154155

[Seamew]

а поподробнее? что не так?

Код:

Код:

begin
i="print i"
print "begin i="print i""
print i "end"
end

Результат выполнения (даже, если закрыть глаза на все кавычки):

begin
i="print i"
print i
end

отсутствуют третья и пятая строчки

ну тогда как-то так?

begin
i="print a"
a="print "begin i="print a"""
print "begin i="print a" a="" a """ - вот эти последние три кавычки.. ну это я кавычку в кавычках написала)))
print a "a=""a""  end"
end

[Вилли ☂]

Ну не получиться так.

Вот посмотри свои последние строчки:

...
print a "a=""a""  end"
end

END тут 2 раза
а на выходе только один:

[тут я не разобрал, что получится, но второго END там точно нет]
end

Да и с кавычками тут не так всё просто.
И сцеплять параметры PRINT так неверно.
Но ты молодец! 

[moonlight]

Когда-то давно писал я эту программу на Delphi. Это на C#, идея та же.

Код:

using System;
namespace Avtoportret
{
    class Program
    {
        static void Main()
        {
            char[] ch = { ' ', (char)34, 's', '[', ']', '=', ';' };
            string[] s = new string[ch.Length];
            for (int i = 0; i < s.Length; i++) s[i] = ch[i].ToString();
            string s0 = s[0];
            for (int i = 0; i < 11; i++) s0 += s[0];
            string[] ss = new string[21];
            ss[0] = "using System;";
            ss[1] = "namespace Avtoportret";
            ss[2] = "{";
            ss[3] = "    class Program";
            ss[4] = "    {";
            ss[5] = "        static void Main()";
            ss[6] = "        {";
            ss[7] = "            char[] ch = { ' ', (char)34, 's', '[', ']', '=', ';' };";
            ss[8] = "            string[] s = new string[ch.Length];";
            ss[9] = "            for (int i = 0; i < s.Length; i++) s[i] = ch[i].ToString();";
            ss[10] = "            string s0 = s[0];";
            ss[11] = "            for (int i = 0; i < 11; i++) s0 += s[0];";
            ss[12] = "            string[] ss = new string[21];";
            ss[13] = "            for (int i = 0; i < 13; i++) Console.WriteLine(ss[i]);";
            ss[14] = "            for (int i = 0; i < ss.Length; i++)";
            ss[15] = "            { Console.WriteLine(s0 + s[2] + s[2] + s[3] + i + s[4] + s[0] + s[5] + s[0] + s[1] + ss[i] + s[1] + s[6]); }";
            ss[16] = "            for (int i = 13; i < ss.Length; i++) Console.WriteLine(ss[i]);";
            ss[17] = "            Console.ReadLine();";
            ss[18] = "        }";
            ss[19] = "    }";
            ss[20] = "}";
            for (int i = 0; i < 13; i++) Console.WriteLine(ss[i]);
            for (int i = 0; i < ss.Length; i++)
            { Console.WriteLine(s0 + s[2] + s[2] + s[3] + i + s[4] + s[0] + s[5] + s[0] + s[1] + ss[i] + s[1] + s[6]); }
            for (int i = 13; i < ss.Length; i++) Console.WriteLine(ss[i]);
            Console.ReadLine();
        }
    }
}

[moonlight]

а вот для такого языка придумайте квин:

в языке есть единственный тип данных - строка
нельзя конвертировать ASCII-коды в строку, т.к. в языке нет чисел
нельзя брать подстроку
нельзя брать конкатенацию двух строк
можно только присваивать строки и печатать их

в языке всего 3 оператора:

1) присваивание строки:
X="строка"
присваивать можно только строки, не содержащие кавычек
Вместо X можно подставить любое однобуквенное имя переменной

2) печать строки из переменной X:
PX
можно заменить переменную X любой другой буквой

3) печать одной кавычки:
Q

программа - это одна строка (нет переносов строк, пробелов, точек с запятой и т.д.)

пример программы, печатающей слово Привет
X="Привет"PX

пример программы, печатающей фразу Привет, "Назва"
Y="Привет, "Z="Назва"PYQPZQ
кавычку нельзя включить в строку, поэтому приходится печатать одну строку, потом печатать кавычку, потом печатать другую строку и завершающую кавычку

Напишите для этого языка квин

Могут ли P и Q быть именами переменных?
Можно ли одной строке присваивать значение другой строки?
Если да то результатом программы QP="P=Q"Q=PPPPQQ будет "P=QP=Q" ?

[iPhonograph]

Могут ли P и Q быть именами переменных?

да
строка программы разбивается на последовательность операторов единственным способом, даже если переменные называются P и Q

Можно ли одной строке присваивать значение другой строки?

пусть будет можно
это расширение языка не упростит задачу

результатом программы QP="P=Q"Q=PPPPQQ будет "P=QP=Q" ?

да

[Вилли ☂]

Когда-то давно писал я эту программу на Delphi. Это на C#, идея та же.

похоже.