Submission #7506357

---

Source Code Expand

use List::Util qw/ sum /;
my $n = <>; say sum( map { $_ * 10000 } 1 .. $n ) * 1 / $n

Submission Info

Compile Error

Unquoted string "say" may clash with future reserved word at ./Main.pl line 2.
Bareword found where operator expected at ./Main.pl line 2, near "say sum"
	(Do you need to predeclare say?)
syntax error at ./Main.pl line 2, near "say sum"
./Main.pl had compilation errors.

Judge Result