1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
print "\\errorstopmode";
print "\\documentclass{article}\n\\usepackage{amsmath,amsfonts}\n\\usepackage{multicol}\n\\usepackage{a4wide}\n\\usepackage[czech]{babel}\\usepackage[IL2]{fontenc}\n\\begin{document}\n";
print "\\newcount\\cislo\\everymath{\\displaystyle}\n";
print "\\def\\correct#1{\\fbox{\$\\bullet\$} {#1}\\\\ }\n";
print "\\def\\incorrect#1{\\fbox{\$\\times\$} {#1}\\\\ } \n";
print "\\parindent 0pt\n";
print "\\parskip 10pt\n";
print "\\rightskip 0 pt plus 1 fill\n";
print "\\columnseprule 0.4pt\n";
print "\\def\\jednicka{1 }\n";
print "\\def\\sloupce{2 }";
print "\\ifx\\sloupce\\jednicka \\else \\begin{multicols}{\\sloupce} \\fi\n";
@pole=<STDIN>;
foreach $radek (@pole)
{
chomp($radek);
if ((substr($radek,0,1) eq "-"))
{
substr($radek,0,1,"");
print "\\incorrect{",$radek,"}\n";
}
else
{
if ((substr($radek,0,1) eq "+"))
{
substr($radek,0,1,"");
print "\\correct{",$radek,"}\n";
}
else
{
print "\n\n";
if ($radek eq "")
{
print "\n\n";
}
else
{
print "\$\\global\\advance\\cislo by 1\\textbf{\\fbox{\\the \\cislo}}\$ ",$radek,"\\\\ ";
}
}
}
}
print "\\ifx\\sloupce\\jednicka\\else\\end{multicols}\\fi\n";
print "\\end{document}";
|