Wnętrze autora

Na życzenie miłośników jelit i innych ważnych części ciała artysty, przedstawiam wnętrze autora femtopowieści pt."Powiedział, powiedziała".

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace Dialog
{
    class Program
    {
        static void Main(string[] args)
        {
            var title = "Powiedziała, powiedział";
            var by = "Program.cs";
            var dramatis_personae = new[] { "Jan", "Anna", "Marian" };
            var dramatis_personae_sex = new[] { "M","F","M" };
            var cur_person = 0;
            var questions = new[] { "Czy mięso już doszło", "Czy jestem dobrze uczesan[y/a/e]", "Czy twoja matka jest Żydówką", "Czy jesteś głodn[y/a/e]" };
            var cur_question = 0;
            var answers = new[] { "Nie jestem pew[ien/na/ne]","Nie wiem","Tak","Nie","Być może" };
            var cur_answer = 0;
            var sentences = new[] { "Jestem głodn[y/a/e]", "Wątpię", "Czuję się świetnie", "Chyba będzie padać" };
            var cur_sentence = 0;
            var random_events = new[] { "Ktoś zakaszlał","Wszyscy zamilkli","Jakiś pies zaszczekał","Chmury rozpierzchły się","Nikt nic nie powiedział","Wszyscy się uśmiechnęli" };
            var cur_event = 0;
            var events = new[] { "Słońce wschodziło", "Słońce stało wysoko na niebie", "Było coraz ciemniej", "Słońce zaszło" };
            var next_event = 0;
            var joints = new[] {" i",", jednak",", mimo że"};
            var cur_joint = 0;
            var adverbs = new[] { "z miłością", "wściekle", "cicho", "niczym oszalały pies", "z uśmiechem", "otwarcie", "z pewnym zaskoczeniem", "z pasją", "z drwiną" };
            var next_adverb = 0;
            var last_sentence = dramatis_personae.Select((x,i)=>i).ToDictionary(i=>i,i=>-1);
            var pre_last_sentence = dramatis_personae.Select((x, i) => i).ToDictionary(i => i, i => -1);
            var last_question = dramatis_personae.Select((x, i) => i).ToDictionary(i => i, i => -1);
            var pre_last_question = dramatis_personae.Select((x, i) => i).ToDictionary(i => i, i => -1);
            var r = new Random();
            Console.WriteLine(title);
            Console.WriteLine(by);
            var was_question = false;
            Console.WriteLine();
            while (next_event < events.Length-1)
            {
                Console.WriteLine(events[next_event]+".");
                var len = 10;
                do
                {
                    if (r.Next(10) <1 data-blogger-escaped-br="">                     {
                        Console.Write(Next(random_events, ref cur_event, r));
                    }
                    else if (was_question)
                    {
                        was_question = false;
                        if (r.Next(2) == 0)
                        {
                            var answer = Next(answers, ref cur_answer, r);
                            var person = Next(dramatis_personae, ref cur_person, r);
                            var sex = dramatis_personae_sex[cur_person];
                            var joint = "odparł[/a/o] {0}";
                            Console.Write("- {0} - {1}", Apply(answer,sex), Apply(joint, sex, person));
                            if (r.Next(3) == 0)
                                Console.Write(" " + Next(adverbs, ref next_adverb, r));
                        }
                        else
                        {
                            continue;
                        }
                    }
                    else if (r.Next(3) == 0)
                    {
                        was_question =true;
                        //question
                        var question = Next(questions, ref cur_question, r);
                        var person = Next(dramatis_personae, ref cur_person, r);
                        var sex = dramatis_personae_sex[cur_person];
                        var joint = last_question[cur_person] == cur_question ?
                                    pre_last_question[cur_person] == cur_question ?
                                    "powtórzył[/a/o] {0} znów" : Next(r, "powtórzył[/a/o] {0}", "zapytał[/a/o] {0} znów") : "zapytał[/a/o] {0}";
                        pre_last_question[cur_person] = last_question[cur_person];
                        last_question[cur_person] = cur_question;
                        Console.Write("- {0}? - {1}", Apply(question, sex), Apply(joint, sex, person));
                        if (r.Next(4) == 0)
                            Console.Write(" " + Next(adverbs, ref next_adverb, r));
                    }
                    else
                    {
                        var sentence = Next(sentences, ref cur_sentence, r);
                        var person = Next(dramatis_personae, ref cur_person, r);
                        var sex = dramatis_personae_sex[cur_person];
                        var joint = last_sentence[cur_person] == cur_sentence ?
                                    pre_last_sentence[cur_person] == cur_sentence ?
                                   "powtórzył[/a/o] {0} znów" : Next(r, "powtórzył[/a/o] {0}", "powiedział[/a/o] {0} znów") : "powiedział[/a/o] {0}";
                        pre_last_sentence[cur_person] = last_sentence[cur_person];
                        last_sentence[cur_person] = cur_sentence;
                        Console.Write("- {0} - {1}", Apply(sentence,sex), Apply(joint, sex, person));
                        if (r.Next(4) == 0)
                            Console.Write(" " + Next(adverbs, ref next_adverb, r));
                    }
                    if (r.Next(5) == 0)
                    {
                        var n2 = Next(random_events, ref cur_event, r);
                        var j = Next(joints, ref cur_joint, r);
                        var s = String.Format("{0} {1}{2}", j, n2.Substring(0, 1).ToLower(), n2.Substring(1));
                        Console.Write(s);
                    }
                    Console.WriteLine(".");
                } while (len-->0 && r.Next(9) != 0);
                next_event++;
            }
            Console.WriteLine(events[next_event] + ".");
            Console.ReadLine();
        }

        private static string Apply(string joint, string sex, params string[] args)
        {
            //"powtórzył[/a/o] {0}";
            var ptn = String.Format(joint, args);
            var sexvar0 = ptn.IndexOf('[');
            var sexvar1 = ptn.IndexOf(']');
            if (sexvar0 == -1) return ptn;
            var sv = ptn.Substring(sexvar0 + 1, sexvar1 - sexvar0-1).Split('/');
            var sexact = sex=="M"?sv[0]:sex=="F"?sv[1]:sv[2];
            return ptn.Substring(0, sexvar0) + sexact+ptn.Substring(1+sexvar1);

        }

        private static string Next(Random r, params string []choice)
        {
            var cur = 0;
            return Next(choice, ref cur, r);
        }

        private static string Next(string[] choice, ref int cur, Random r)
        {
            cur = (cur + 1 + r.Next(choice.Length - 1)) % choice.Length;
            return choice[cur];
        }
    }
}

Powiedział, powiedziała

Ponieważ polskie komputery nie gęsi i też umieją pisać prozę, postanowiłem udzielić głosu mojej maszynie i pozwolić jej wyrazić się w sposób zrozumiały dla ogółu społeczeństwa. Nie ukrywam, że inspiracją było dzieło Nicka Montforta pt. "Zegar światowy".

Eksperymentalna femtopowieść mojego komputera pt. "Powiedział, powiedziała" traktuje o banalności doświadczanej przez ludzi, którzy nie potrafią wziąć się do porządnej roboty, a życie wydaje im się miałkie i pozbawione sensu.

Wszelakim malkontentom od razu wyjaśnię, że powtórzenia są zamierzone i symbolizują banalność i powtarzalność rozmów, zaś brak logicznego związku pomiędzy kwestiami wyraża problem niezrozumienia pomiędzy ludźmi i nieskuteczności rozmowy jako środka na nawiązanie komunikacji.

Oto dzieło:

Powiedział, powiedziała

Słońce wschodziło.

- Wątpię - powiedziała Anna.

- Jestem głodny - powiedział Jan.

Chmury rozpierzchły się.

- Czuję się świetnie - powiedział Marian z pewnym zaskoczeniem.

Nikt nic nie powiedział, mimo że ktoś zakaszlał.

- Wątpię - powiedziała Anna znów.

Wszyscy zamilkli i wszyscy się uśmiechnęli.

- Jestem głodny - powiedział Jan znów.

- Chyba będzie padać - powiedziała Anna otwarcie.

- Czy jestem dobrze uczesany? - zapytał Marian z miłością.

- Nie - odparła Anna otwarcie.

Słońce stało wysoko na niebie.

- Czy jesteś głodny? - zapytał Jan.

- Czy jestem dobrze uczesana? - zapytała Anna.

Wszyscy zamilkli.

Ktoś zakaszlał.

- Czy jesteś głodny? - zapytał Jan znów.

- Czy twoja matka jest Żydówką? - zapytała Anna.

Wszyscy się uśmiechnęli, jednak wszyscy zamilkli.

Było coraz ciemniej.

- Czy jestem dobrze uczesany? - zapytał Marian znów.

- Czy mięso już doszło? - zapytała Anna z miłością.

- Jestem głodny - powtórzył Jan znów.

- Czuję się świetnie - powiedział Marian znów niczym oszalały pies.

Ktoś zakaszlał, mimo że nikt nic nie powiedział.

- Wątpię - powiedział Jan cicho.

- Chyba będzie padać - powiedziała Anna znów.

Wszyscy się uśmiechnęli.

- Wątpię - powiedział Marian.

Słońce zaszło.

Program.cs - rocznik 2014, absolwent przedszkola komputerowego im. Jadwigi Ćwiklińskiej. Pisze od urodzenia, jednak to jego debiut w blogosferze.