Submission #432697

---

Source Code Expand

#!/usr/bin/perl

my @in = <STDIN>;
foreach (@in) { $_ =~ s/[\r\n]+$//g; }
my @fav = split //,$in[0];
my @list = ();
for(my $i=0;$i<@fav;$i++) {
	for(my $j=0;$j<@fav;$j++) {
		push @list, "$fav[$i]$fav[$j]";
	}
}
print "$list[$in[1]-1]\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result