多肢選択式テストを行う

14

私はあなたにテストを提示します！あなたのテストはテストすることです。テストは、短いテスト量のコードで、テスターが提供するテストで受験者をテストすることです。具体的には、入力として受け取った多肢選択テストを行います。

この課題では、次のような入力を行う必要があります。

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ずつ上がります。
    • 行がオプションのアスタリスク、文字、コロン、そしてスペースで始まる場合、それは答えです。回答も常に連続します。質問ごとに正解は1つだけです。
    • 行は、前述の方法以外の方法では開始しません。
    • 入力はどのような方法（ファイル、標準入力などからの読み取り）でも受け入れられますが、プログラムにハードコーディングしてはなりません。
  • 出力（受験段階）
    • まず、各質問を順番に印刷します。入力で受け取った質問とその回答を印刷しますが、正解を示すアスタリスクは印刷しません。
    • 次に、改行とを印刷します"answer: "。ユーザーの入力を待ちます。ユーザー入力は常に回答に対応します。
    • 正解（アスタリスクが付いたもの）がユーザーが入力したものと同じ場合、output "correct!"。それ以外の場合は、output "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ます。間違った回答の概要を空白行で区切ります。
  • 文字通りに物事を解釈して不正を減らすために、ここで同じ出力とテスト受験段階で同じ入力が与えられた場合、プログラムはサンプル出力とまったく同じものを出力する必要があります。

これはcode-golfです。最短のコードが勝ちます！（そして、A +（緑色のチェックマーク）を取得します！）

code-golf 
— ドアノブ
ソース
2
いいチャレンジですが、サンプルテストに、のような\d\. 、\w: そして\*質問/回答の途中にあるトリッキーな状況を含めることを望みます。（例えば、現在、*y/*//s/^\*//
— はで
2
行の継続を許可する必要がありますか？つまり、「1。」または「A：」？はいの場合、サンプルテストにそのような場合を含めてください。
— マナトワーク
@manatwork（最初のコメント）OK、編集（2番目のコメント）いいえ、あなたはしません。明確にします。
— ドアノブ
1
それでは、このテストテストをどのようにテストしますか？
— ジョーZ.
2
@JoeZ。うーんあなたは何を意味するか...私はあなたのテスターをテストするためのテストのためのテストのテストケースを提供したのではない
— ドアノブ

回答:

2

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 ________.たとえば、表示されます）。

実行例

— ドムヘイスティングス
ソース
入力と出力の例を示してください。
— DavidC
@DavidCarraherは介して出力に更新されたリンクを追加しましたshowterm.io。それは静的出力よりもわずかに優れていると思いますが、それはまだ端末にあるのとまったく同じようにキャプチャしません。
— ドムヘイスティングス
それはあなたのプログラムがどのように動作するかについてかなり良い見方を与えます。
— DavidC
3

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

ダイアログの選択

— DavidC
ソース
うわー、印象的！しかし、入力は正しい形式ではありません...それでも、それはコードの簡潔さと、それがどれだけするかについて非常に注目に値します！
— ドアノブ
ありがとう。入力文字列をMathematicaに優しい構造にマッサージすることはもちろん可能ですが、現在の不適格なソリューションの根底にある優雅さを隠していたでしょう。
— DavidC
いいね 短い4文字：g@{a_,b_}:=Print[If[(r=ChoiceDialog[Print[""<>a,"\nanswer: "];""<>a,Rest@a~StringTake~1])==b,r<>"\ncorrect!",r<>"\nincorrect, the answer is "<>b]]
— Mr.Wizard
そして、Print@If[...]ではなくを使用してもう1つ保存しPrint[If[...]]ます。
— Mr.Wizard
2

Java-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);

これは確かに最短ではありませんが、すべて自己完結型です

— 反乱軍
ソース
0

ハスケル、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

私が望むよりもずっと長い。wikiが設定されているので、ぜひ試してください！

残念ながら、標準出力をフラッシュすると32文字が失われます。テストスクリプトがコマンドラインで指定されたのではなく「t」という名前の固定ファイルから読み取られた場合、さらに38文字を保存できます。

質問で与えられた入力で実行した場合：

& 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
— MtnViewMark
ソース
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.