exec 'gmcs', '-d:ONLINE_JUDGE', $name when 'MONO';
exec 'javac', $name when 'JAVA';
exec 'fpc', qw/-dONLINE_JUDGE -O2/, $name when 'PASCAL';
+ exec 'go', qw/build -compiler gc/, $name when 'GOLANG';
+ exec 'go', qw/build -compiler gccgo/, $name, when 'GCCGO';
+ exec 'ghc', qw/-DONLINE_JUDGE -Wall -O2 -o/, $basename, $name when 'HASKELL';
copy $name, $basename when ['PERL', 'PYTHON']
}
}
my ($format, $basename) = @_;
given($format) {
- "./$basename" when [qw/C CPP PASCAL/];
+ "./$basename" when [qw/C CPP GCCGO GOLANG HASKELL PASCAL/];
"./$basename.exe" when 'MONO';
java => $basename when 'JAVA';
perl => $basename when 'PERL';