Обсуждение @ 1230. Интроспективная программа @ Timus Online Judge

Ade My PIBAS program has only 92 char // Задача 1230. Интроспективная программа 2 апр 2023 16:00

Kergan C# - WA1 - Interpreter shows the same string in output, though [1] // Задача 1230. Интроспективная программа 14 ноя 2022 18:13

dood Please help me. Why WE? // Задача 1230. Интроспективная программа 3 июн 2015 00:29

Artem Berezovsky Help! Solution [1] // Задача 1230. Интроспективная программа 23 дек 2014 20:19

laughinghao What's the problem mean? [1] // Задача 1230. Интроспективная программа 9 авг 2013 21:57

DR. Zhihua Lai Online Javascript PIBAS Interpreter here // Задача 1230. Интроспективная программа 27 янв 2013 22:48

Khlyzov Andrew Yeah!!! I wrote it! Now, I'm proud of myself [2] // Задача 1230. Интроспективная программа 2 авг 2004 00:33

Илья Гофман (Ilya Gofman) An algorythm?(+) [5] // Задача 1230. Интроспективная программа 14 ноя 2002 13:40

Please, could you shortly tell me an algo of a introspective
program? In any language:-)

asif Me also. An algorithm for any language? [2] // Задача 1230. Интроспективная программа 14 ноя 2002 14:51

Oberon (Yura Znovyak) Example of an introspective program on Pascal (+) [1] // Задача 1230. Интроспективная программа 16 ноя 2002 13:38

Here is my variant of an introspective program. It is written on
Pascal. I think it will not be hard to convert it to C/C++
But I do not think it is easy make same under PIBAS, because
PIBAS does not have for/while cycles :(.

Some explanations:
1. Every const string (Stgs[ 2] := '...') Has " symbol not '
because Pascal needs doubled '' to mark single ' inside strings.
2. Chr(34) = '
3. Chr(39) = "

----- Cut here -----
program IntrospectiveProgram;
var
    Stgs: array[1..20] of String;
    i, j: Integer;

begin
    Stgs[ 1] := '';
    Stgs[ 2] := '    WriteLn("program IntrospectiveProgram;");';
    Stgs[ 3] := '    WriteLn("var");';
    Stgs[ 4] := '    WriteLn("    Stgs: array[1..20] of String;");';
    Stgs[ 5] := '    WriteLn("    i, j: Integer;");';
    Stgs[ 6] := '    WriteLn;';
    Stgs[ 7] := '    WriteLn("begin");';
    Stgs[ 8] := '';
    Stgs[ 9] := '    for i := 1 to 20 do';
    Stgs[10] := '         WriteLn("    Stgs[",i:2,"] := """, Stgs
[i], """;");';
    Stgs[11] := '    WriteLn;';
    Stgs[12] := '';
    Stgs[13] := '    for i := 1 to 20 do';
    Stgs[14] := '        for j := 1 to Length(Stgs[i]) do';
    Stgs[15] := '            if Stgs[i][j] = Chr(34) then';
    Stgs[16] := '                Stgs[i][j] := Chr(39);';
    Stgs[17] := '';
    Stgs[18] := '    for i := 1 to 20 do';
    Stgs[19] := '        WriteLn(Stgs[i]);';
    Stgs[20] := 'end.';

    WriteLn('program IntrospectiveProgram;');
    WriteLn('var');
    WriteLn('    Stgs: array[1..20] of String;');
    WriteLn('    i, j: Integer;');
    WriteLn;
    WriteLn('begin');

    for i := 1 to 20 do
         WriteLn('    Stgs[',i:2,'] := ''', Stgs[i], ''';');
    WriteLn;

    for i := 1 to 20 do
        for j := 1 to Length(Stgs[i]) do
            if Stgs[i][j] = Chr(34) then
                Stgs[i][j] := Chr(39);

    for i := 1 to 20 do
        WriteLn(Stgs[i]);
end.
---- And here ----

Илья Гофман (Ilya Gofman) Thank you very much. // Задача 1230. Интроспективная программа 16 ноя 2002 19:45

> Here is my variant of an introspective program. It is written on
> Pascal. I think it will not be hard to convert it to C/C++
> But I do not think it is easy make same under PIBAS, because
> PIBAS does not have for/while cycles :(.
>
> Some explanations:
> 1. Every const string (Stgs[ 2] := '...') Has " symbol not '
> because Pascal needs doubled '' to mark single ' inside strings.
> 2. Chr(34) = '
> 3. Chr(39) = "
>
> ----- Cut here -----
> program IntrospectiveProgram;
> var
>     Stgs: array[1..20] of String;
>     i, j: Integer;
>
> begin
>     Stgs[ 1] := '';
>     Stgs[ 2] := '    WriteLn("program IntrospectiveProgram;");';
>     Stgs[ 3] := '    WriteLn("var");';
>     Stgs[ 4] := '    WriteLn("    Stgs: array[1..20] of
String;");';
>     Stgs[ 5] := '    WriteLn("    i, j: Integer;");';
>     Stgs[ 6] := '    WriteLn;';
>     Stgs[ 7] := '    WriteLn("begin");';
>     Stgs[ 8] := '';
>     Stgs[ 9] := '    for i := 1 to 20 do';
>     Stgs[10] := '         WriteLn("    Stgs[",i:2,"] := """, Stgs
> [i], """;");';
>     Stgs[11] := '    WriteLn;';
>     Stgs[12] := '';
>     Stgs[13] := '    for i := 1 to 20 do';
>     Stgs[14] := '        for j := 1 to Length(Stgs[i]) do';
>     Stgs[15] := '            if Stgs[i][j] = Chr(34) then';
>     Stgs[16] := '                Stgs[i][j] := Chr(39);';
>     Stgs[17] := '';
>     Stgs[18] := '    for i := 1 to 20 do';
>     Stgs[19] := '        WriteLn(Stgs[i]);';
>     Stgs[20] := 'end.';
>
>
>     WriteLn('program IntrospectiveProgram;');
>     WriteLn('var');
>     WriteLn('    Stgs: array[1..20] of String;');
>     WriteLn('    i, j: Integer;');
>     WriteLn;
>     WriteLn('begin');
>
>     for i := 1 to 20 do
>          WriteLn('    Stgs[',i:2,'] := ''', Stgs[i], ''';');
>     WriteLn;
>
>     for i := 1 to 20 do
>         for j := 1 to Length(Stgs[i]) do
>             if Stgs[i][j] = Chr(34) then
>                 Stgs[i][j] := Chr(39);
>
>     for i := 1 to 20 do
>         WriteLn(Stgs[i]);
> end.
> ---- And here ----

Gheorghe Stefan Here's a C Quine :-) [1] // Задача 1230. Интроспективная программа 9 дек 2002 00:13

char *f = "char *f = %c%s%c; void main(){printf(f, 34, f, 34, 10);%c"
void main()
{
printf(f, 34, f, 34, 10);
}

marqueewinq Another idea // Задача 1230. Интроспективная программа 5 ноя 2011 03:43

The main point of my solution is, firstly, to become free of constant non-variable strings in output and, secondly, to use substring operator to replicate print.

Let's define double quote as D, and single quote as S, sembol of endline as E:
{{{
D='"';S="'";E=";"
}}}

After defining that, we need to print that string. Let's use support string C:
{{{
C="C=D=S=E=";
...
?$(C,1,2)+D+C+D+E #printed definition of C
+$(C,3,2)+S+D+S+E #printed definition of D
... #print the rest alike
}}}

But how we'll print this particular "?" operation? Let's append all that operator body to our support string C, and then print it's substring, which will represent needed operator:
{{{
C="C=D=S=E=?$(C,1,2)+D+C+D+E+$(C,3,2)+S+D+S+E+$(C,5,2)+D+S+D+E+$(C,7,2)+D+E+D+E+$(C,9,78)";
}}}

You can simply prove by yourself, that this substring is 78 symbols long.

Thus, solution found. My full PIBAS code is 187 lines long.

Edited by author 05.11.2011 03:44

Edited by author 05.11.2011 03:44

.Net, Java - any pcode sucks Let's make is shorter! [3] // Задача 1230. Интроспективная программа 7 май 2005 22:56

ACM.Tolstobrov_Anatoliy[Ivanovo SPU] somebody can help? [2] // Задача 1230. Интроспективная программа 20 фев 2006 02:25

Igor Mihajlovic plz help!!!!!!!!!!!! [1] // Задача 1230. Интроспективная программа 26 июл 2008 23:11

yzlhm For anybody who wa // Задача 1230. Интроспективная программа 24 сен 2009 19:32

yzlhm NO problen can be more interesting than it // Задача 1230. Интроспективная программа 24 сен 2009 19:28

WinAsAlways Please help me!!! [1] // Задача 1230. Интроспективная программа 24 июл 2008 15:35

Ilia Patskalyov Why this program is not correct [2] // Задача 1230. Интроспективная программа 6 мар 2006 06:48

Veselin Georgiev Anyone want interpreter? // Задача 1230. Интроспективная программа 26 фев 2005 21:27

Maigo Akisame (maigoakisame@yahoo.com.cn) How can this get WA? [2] // Задача 1230. Интроспективная программа 18 авг 2004 09:41

UNKNOWN_LAMER Is to write an introspective program possible without $ function? [1] // Задача 1230. Интроспективная программа 5 авг 2004 11:43

XiangGuangTe What wrong? [6] // Задача 1230. Интроспективная программа 10 май 2004 10:39

Ted How to print a " in PIBAS, use """ or '"' // Задача 1230. Интроспективная программа 10 май 2004 20:17

Обсуждение задачи 1230. Интроспективная программа