my $contest = prompt 'Contest';
local $Gruntmaster::Data::contest = $contest if $contest;
my $name = prompt 'Problem name';
- my $level = prompt 'Problem level';
+ my $level = prompt 'Problem level', -menu => "beginner\neasy\nmedium\nhard";
my $statement = read_file prompt 'File with problem statement', -complete => 'filenames';
my %meta;
$meta{generator} = prompt 'Generator', -menu => "File\nRun\nUndef";
$meta{judge} = prompt 'Judge', -menu => "Absolute\nPoints";
$meta{testcnt} = prompt 'Test count', '-i';
+ $meta{timeout} = prompt 'Time limit (seconds)', '-n';
+ delete $meta{timeout} unless $meta{timeout};
+ $meta{olimit} = prompt 'Output limit (bytes)', '-i';
+ delete $meta{olimit} unless $meta{olimit};
+ say 'Memory limits are broken, so I won\'t ask you for one';
+
if ($meta{generator} eq 'File') {
my $prefix = prompt '[Generator::File] Input file prefix';
$meta{infile}[$_ - 1] = read_file "$prefix$_.in" for 1 .. $meta{testcnt};