тестовое задание

[Gora]

Вычитал в одной книжице следующее - цитата "Многие годы мы предлагаем один и тот же программистский тест каждому разработчику. Он не требует никакого оборудования или обращения к справочникам. Кандидатов просят написать программу, отображающую на экране свой собственный исходный текст, не обращаясь к чтению файлов". У каго какие мысли.

[Вахмурка]

  Называются эти программы куайнами, или квайнами, старо как мир. Можеж про них прочитать в Википедии.

[Джон]

Баяяяяян

[zubr]

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s:Array [1..16] of string;
  i:Integer;

begin
 s[1]:='program Project2;';
 s[2]:='{$APPTYPE CONSOLE}';
 s[3]:='uses SysUtils;';
 s[4]:='var';
 s[5]:='s:Array [1..16] of string;';
 s[6]:='i:Integer;';
 s[7]:='begin';
 s[8]:='For i:=1 to 7 do';
 s[9]:='Writeln(s[i]);';
 s[10]:='For i:=1 to 7 do';
 s[11]:='Write(''s['', IntToStr(i), '']:='', '''''''', s[i], '''''''', #13#10);';
 s[12]:='For i:=1 to 7 do';
 s[13]:='Writeln(s[i]);';
 s[14]:='Readln;';
 s[15]:='end.';
 s[16]:='end.';
 For i:=1 to 7 do
 Writeln(s[i]);
 For i:=1 to 16 do
 Write('s[', IntToStr(i), ']:=', '''', s[i], '''', #13#10);
 For i:=8 to 16 do
 Writeln(s[i]);
 Readln;
end.
end.

[Finch]

Эти задания берут свое начало со времен бейсика. А именно с команды LIST. Потом уже люди стали изврашаться и с другими языками. Например под С++ я видел пример, который написан с применение шаблонов. Честно говоря там без пол литра я бы не разобрался.

[Алексей++]

"Многие годы мы предлагаем один и тот же программистский тест каждому разработчику.

а если тест не прошёл ? Выгоняют ? И теряют ценные кадры - задача то , хоть и бесполезна, но сложна , а человек, может быть, за неделю бы не смог это написать. А вот дай ему другое задание, которое имеет смысл - он бы всё сделал как надо.

По моему, это не тест, а задача для свободных временем

[zubr]

Алексей1153++, что уж тут такого сложного? Дело в том, что при приеме на работу работодатель пытается выбрать работника (имеется в виду программист) с алгоритмическим мышлением, а не просто умеющим применять шаблонные готовые функции, которые можно найти в любом справочнике.
Немного оффтоп, но к теме: У меня есть знакомый директор предприятия, у котрого для его снабженцев есть коронная фраза: "За деньги и дурак сможет приобрести...". Так вот подобные тесты что то типа этой логики.

[Алексей++]

zubr, не вижу аналогии )  Решить то он решит, просто не каждый такой гений, что решит за, скажем, час

кстати, из твоего примера строки

Код:

 s[1]:='program Project2;';
 s[2]:='{$APPTYPE CONSOLE}';
 s[3]:='uses SysUtils;';
 s[4]:='var';
 s[5]:='s:Array [1..16] of string;';
 s[6]:='i:Integer;';
 s[7]:='begin';
 s[8]:='For i:=1 to 7 do';
 s[9]:='Writeln(s[i]);';
 s[10]:='For i:=1 to 7 do';
 s[11]:='Write(''s['', IntToStr(i), '']:='', '''''''', s[i], '''''''', #13#10);';
 s[12]:='For i:=1 to 7 do';
 s[13]:='Writeln(s[i]);';
 s[14]:='Readln;';
 s[15]:='end.';
 s[16]:='end.';

мне кажется, не выведутся

[zubr]

Все выводится. В аттаче скомпилированная программка.

[Алексей++]

теперь видю ) И сколько времени ушло на написание, интересно ?

[zubr]

Около получаса.

[zubr]

Кстати, сейчас забил в поисковике слово "квайн" и почти сразу вышел на ссылку: http://alex-semenov.livejournal.com/1797.html?thread=5893, там есть и пример квайна, почти в точности похож на мой (ну или мой похож на тот ). Так что все уже давно придумано до нас.

[Джон]

В своё время даже проводился конкурс на самую маленькую такую программу. Я же говорю - баян.

[Алексей++]

zubr, ну это просто найдено типовое решение , поэтому пол часа А кто не делал такое раньше ? И сомневаюсь, что во время решения теста можно искать в инете

[zubr]

Алексей1153++, ну что здесь сложного? Я уверен, что в повседневной работе тебе приходится посложнее алгоритмы писать.
То что указано по ссылке я увидел после того как написал программку. А программку написал, потому что стало интересно, я слышал про подобный прикол и знаю что баян, но как-то видеть и делать ранее не доводилось.

[Алексей++]

zubr, ну как сказать, может тот же архиватор можно считать сложнее этого кода, но не поверишь, вот лично мне вот именно за такой код браться влом Я не знаю почему. Вроде бы и интересно самому решить, но как-то неохота. А архиватор было интересно написать и отладить

[Джон]

Лёш, это всё от того, что ты программный материалист. И видишь, что реального выхлопа от этой проги - 0. Поэтому влом.

[Алексей++]

Джон, вот это ты неправильно )  Я могу упорно сидеть и писать какой нибудь кудрявый и бесполезный алгоритм - если мне почему то это интересно, а вот тут почему то скука - это необъяснимо ))

[zubr]

Алексей1153++, да это все под настроение и наличие времени. Я обычно на такие штуки не ведусь, а вчера почему то затянуло, благо время было.

[Алексей++]

zubr, это всё понятно, но признайся, решал раньше такую задачу )

[Вахмурка]

  Вообще по моему у этой истории в книге есть продолжение. Типа программисты сильно удивлялись и говорили что это невозможно. Такой же прикол как вопрос: Какого цвета солнце?

[zubr]

Алексей1153++, зуб даю, что не решал. Более того скажу, что к алгоритму использования массива строк пришел не сразу, сначала пытался через строковые переменные с использованием конкантенации строк, но не получалось.

[Алексей++]

zubr, да я верю, зуб не надо ))

[DrGluck]

Прикольное решение. Мне в свое время один древний программер (35 лет в бизнесе) говорил, что это невозможно. Я не настаивал, т.к. было пофигу.
Маладец.