Представляю вам тест! Ваш тест должен проверить. Тест состоит в том, чтобы проверить тестируемого с помощью тестов, которые вам дает тестер, в коротком тестовом объеме кода. В частности, вы дадите тест с множественным выбором, который вы получили в качестве входных данных.

В этом соревновании вы должны принять такой вклад:

1. Our site is called Programming Puzzles & Code ________.
A: Debugging
*B: Golf
C: Hockey
D: Programming
2. What is the *most* popular tag on our site?
A: [debug]
B: [program]
*C: [code-golf]
D: [number]
E: [c++]
3. We are part of the ________ Exchange network.
*A: Stack
B: Code
C: Programmer
D: Hockey
4. Is this the first question?
A: Yes
*B: No
5. Is this the last question?
*A: Yes
B: No

И вот пример прохождения теста:

1. Our site is called Programming Puzzles & Code ________.
A: Debugging
B: Golf
C: Hockey
D: Programming
answer: B
correct!

2. What is the *most* popular tag on our site?
A: [debug]
B: [program]
C: [code-golf]
D: [number]
E: [c++]
answer: C
correct!

3. We are part of the ________ Exchange network.
A: Stack
B: Code
C: Programmer
D: Hockey
answer: B
incorrect! the answer was A

4. Is this the first question?
A: Yes
B: No
answer: B
correct!

5. Is this the last question?
A: Yes
B: No
answer: B
incorrect! the answer was A

overview:
3 correct, 2 incorrect (60%)

3. We are part of the ________ Exchange network.
you chose B: Code
the answer was A: Stack

5. Is this the last question?
you chose B: No
the answer was A: Yes

Формальная спецификация:

• вход
  • Если строка начинается с числа, за которым следуют точка и пробел, это вопрос с этим числом. Числа всегда будут начинаться с 1 и увеличиваться на 1 каждый вопрос.
  • Если строка начинается с необязательной звездочки, буквы, двоеточия, а затем пробела, это ответ. Ответы также всегда будут последовательными. На каждый вопрос будет только один правильный ответ.
  • Строка не будет начинаться каким-либо иным способом, кроме упомянутых ранее.
  • Ввод может быть принят любым способом (чтение из файла, стандартный ввод и т. Д.), Но не должен быть жестко задан в вашей программе.
• Выход (фаза прохождения теста)
  • Сначала распечатайте каждый вопрос последовательно. Напечатайте вопрос и его ответы, полученные на входе, но не печатайте звездочку, указывающую правильные ответы.
  • Затем выведите новую строку и "answer: ". Ждите ввода пользователя. Пользовательский ввод всегда будет соответствовать ответу.
  • Если правильный ответ (со звездочкой) совпадает с ответом, введенным пользователем, выведите "correct!". В противном случае вывод "incorrect! the answer was " + correct_letter.
  • Разделите каждый вопрос пустой строкой, затем повторяйте предыдущие шаги вывода до тех пор, пока больше не будет вопросов.
• Выход (обзорная фаза)
  • Распечатать "overview: "и затем новую строку.
  • Печать "{number of correct answers} correct, {incorrect answers} incorrect ({percent correct, rounded to the nearest whole number}%)"(конечно, подставляя фразы в фигурные скобки с соответствующими значениями). Затем напечатайте пустую строку для пробелов.
  • Теперь для каждого неправильного вопроса выведите вопрос (не его ответы), затем в новой строке "you chose " + answer_you_choseи в другой строке "the answer was " + correct_answer. Разделите обзор каждого неправильного ответа пустой строкой.
• Чтобы уменьшить мошенничество путем буквального толкования, при наличии того же вывода здесь и того же ввода в фазе тестирования, ваша программа должна выводить то же самое, что и пример вывода.

Это код-гольф ; самый короткий код выигрывает! (И получает A + (зеленая галочка)!)

Perl 5, 279

$y=correct;@w=(the,$n=answer,was);map{s/^\*((.+?):.+)/$a=$1/me;print"$_$n: ";chop($@=<>);print$@eq($l=$2)?++$d&&"$y!

":(/^\d.+/,$o.=$&,/^$@.+/m,$o.="
you chose: $&
@w $a

")&&"in$y! @w $l

"}@_=split/(?=^\d)/m,join"",<>;printf"overview:
$d $y, %d in$y (%d%)

$o",@_-$d,$d/@_*100

Примечание. Новые строки необходимы для форматирования вывода.

Каждый раз, когда я думаю, что больше не могу играть в гольф, я узнаю что-то новое! Это постепенно становится больше пунктуации, чем разборчивый текст ... Я думаю, что это хорошо?

Использование: perl -e '...' test.txtили perl test.pl test.txt.

Если вы выберете опцию, не представленную в списке, вы получите неверный вывод в обзоре (скажем, you chose: 1. Our site is called Programming Puzzles & Code ________.например).

Пример запуска

Mathematica 144

Это может быть неверной попыткой. Я отделил вопрос от каждого ответа на входе. Я также указал правильный ответ письмом в отдельном поле, а не звездочкой перед альтернативой.

Тем не мение...

Данные

questions={{{"\n1. Our site is called Programming Puzzles & Code ________.\n","A: Bugging\n","B: Golf\n","C: Hockey\n","D: Programming\n"},"B"},{{"\n2. What is the most popular tag on our site? \n","A: [debug]\n","B: [program]\n","C: [code golf]\n","D: [number]\n"},"C"},{{"\n3. We are part of the _______ Exchange network. \n","A: Stack\n","B: Code\n","C: Programmer\n","D: Hockey\n"},"A"},{{"\n4. Is this the first question? \n","A: Yes\n","B: No\n"},"B"},{{"\n5. Is this the last question? \n","A: Yes\n","B: No\n"},"A"}};

Код

Ответ на каждый вопрос вводится через диалоговое окно. Вопросы, ответы и отзывы печатаются.

f@x_:=
Print[If[((r=ChoiceDialog[Print[""<>#,"\nanswer: "];""<>#,StringTake[Rest@#,1]])==#2),
r<>"\ncorrect!", r<>"\nincorrect, the answer is "<>#2]&@@x] 

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

f /@ questions

Ява - 1210

int i,o;String q;String[]s={"1. Our site is called Programming Puzzles & Code ________.\n","2. What is the most popular tag on our site?\n","3. We are part of the ________ Exchange network.\n","4. Is this the first question?\n","5. Is this the last question?\n"},b={"B","C","A","B","A"},p=new String[5];String[][]a={{"A: Debugging\n","B: Golf\n","C: Hockey\n","D: Programming\n","answer: "},{"A: [debug]\n","B: [program]\n","C: [code-golf]\n","D: [number]\n","E: [c++]\n","answer: "},{"A: Stack\n","B: Code\n","C: Programmer\n","D: Hockey\n","answer: "},{"A: Yes\n","B: No\n","answer: "},{"A: Yes\n","B: No\n","answer: "}};java.util.Map<String,Integer>m=new java.util.HashMap(){{put("A",0);put("B",1);put("C",2);put("D",3);put("E",4);}};java.util.Scanner u=new java.util.Scanner(System.in);for(i=0;i<5;i++){q=s[i];for(o=0;o<a[i].length;)q+=a[i][o++];System.out.print(q);if(b[i].equals(p[i]=u.nextLine()))q="correct!";else q="incorrect! the answer was "+b[i];System.out.println(q+"\n");}q="";o=0;for(i=0;i<5;i++)if(b[i].equals(p[i]))o++;else q+=s[i]+"you chose "+a[i][m.get(p[i])]+"the answer was "+a[i][m.get(b[i])]+"\n";System.out.println("overview:\n"+o+" correct, "+(5-o)+" incorrect ("+o*100/5+"%)\n\n"+q);

отформатирован: 1980

String[] s = {"1. Our site is called Programming Puzzles & Code ________.\n",
        "2. What is the most popular tag on our site?\n",
        "3. We are part of the ________ Exchange network.\n",
        "4. Is this the first question?\n",
        "5. Is this the last question?\n"};
    String[][] a = {
        {"A: Debugging\n", "B: Golf\n", "C: Hockey\n", "D: Programming\n", "answer: "},
        {"A: [debug]\n", "B: [program]\n", "C: [code-golf]\n", "D: [number]\n", "E: [c++]\n", "answer: "},
        {"A: Stack\n", "B: Code\n", "C: Programmer\n", "D: Hockey\n", "answer: "},
        {"A: Yes\n", "B: No\n", "answer: "},
        {"A: Yes\n", "B: No\n", "answer: "}};

    java.util.Map<String, Integer> m = new java.util.HashMap<String, Integer>() {
        {
            put("A", 0);
            put("B", 1);
            put("C", 2);
            put("D", 3);
            put("E", 4);
        }
    };
    String[] b = {"B", "C", "A", "B", "A"};
    String[] p = new String[5];
    java.util.Scanner u = new java.util.Scanner(System.in);
    String q;
    int i;
    int o;
    for (i = 0; i < 5; i++) {
        q = s[i];
        for (o = 0; o < a[i].length;) {
            q += a[i][o++];
        }
        System.out.print(q);
        if (b[i].equals(p[i] = u.nextLine())) {
            q = "correct!";
        } else {
            q = "incorrect! the answer was " + b[i];
        }
        System.out.println(q + "\n");
    }
    q = "";
    o = 0;
    for (i = 0; i < 5; i++) {
        if (b[i].equals(p[i])) {
            o++;
        } else {
            q += s[i] + "you chose " + a[i][m.get(p[i])] + "the answer was " + a[i][m.get(b[i])] + "\n";
        }
    }
    System.out.println("overview:\n" + " correct, " + (5 - o) + " incorrect (" + o * 100 / 5 + "%)\n\n" + q);

Это, конечно, не будет самым коротким, но все это автономно

Хаскелл, 598

import System.Environment
import System.IO
n=putStrLn
p=putStr
d#s=p$show d++s
v&(m:a)=n m>>q[]""a>>= \(r,(s,t))->n s>>n"">>b v m t&r
(r,w,s)&[]=n"overview:">>r#" correct, ">>w#" incorrect (">>((100*r)`div`(r+w))#"%)\n">>mapM_ n s
b(r,w,s)m t|null t=(r+1,w,s)|1<3=(r,w+1,s++"":m:t)
q u c(('*':a):r)=q u a(a:r)
q u c(a@(o:':':_):r)=n a>>q(([o],a):u)c r
q u c r=p"answer: ">>hFlush stdout>>(\i->(r,a(maybe i id$lookup i u)c))`fmap`getLine
a j c|j==c=("correct!",[])|1<3=("incorrect! the answer was "++[head c],["you choose "++j,"the answer was "++c])
main=getArgs>>=readFile.head>>=((0,0,[])&).lines

Намного дольше, чем хотелось бы. Это вики, так что имейте это!

Увы, мы теряем 32 символа из-за сброса стандартного вывода. Еще 38 символов могут быть сохранены, если тестовый скрипт был прочитан из фиксированного файла с именем «t», а не указан в командной строке.

При запуске на входе дано в вопросе:

& runhaskell 15961-Tester.hs 15961-test.txt 
1. Our site is called Programming Puzzles & Code ________.
A: Debugging
B: Golf
C: Hockey
D: Programming
answer: B
correct!

2. What is the *most* popular tag on our site?
A: [debug]
B: [program]
C: [code-golf]
D: [number]
E: [c++]
answer: C
correct!

3. We are part of the ________ Exchange network.
A: Stack
B: Code
C: Programmer
D: Hockey
answer: B
incorrect! the answer was A

4. Is this the first question?
A: Yes
B: No
answer: B
correct!

5. Is this the last question?
A: Yes
B: No
answer: B
incorrect! the answer was A

overview:
3 correct, 2 incorrect (60%)

3. We are part of the ________ Exchange network.
you choose B: Code
the answer was A: Stack

5. Is this the last question?
you choose B: No
the answer was A: Yes