Public Scratchpad
Download
,
Select Code To D/L
#!/usr/bin/perl $lines = <STDIN>; @numbers = ''; for ($lines;$lines>0;$lines--) { chomp($newelement = <STDIN>); $newelement+=1; $reverse = reverse($newelement); while($reverse ne $newelement) { $newelement++; $reverse = reverse($newelement); } print "$reverse\n"; $|=1; } file 2: #!/usr/bin/perl $lines = <STDIN>; for ($lines;$lines>0;$lines--) { chomp($newelement = <STDIN>); push(@numbers,$newelement); } my $numbers_element ; foreach $numbers_element(@numbers) { $numbers_element+=1; $reverse = reverse($numbers_element); while($reverse ne $numbers_element) { $numbers_element++; $reverse = reverse($numbers_element); } print "$reverse\n"; }