RosettaCodeData/Task/A+B/Perl/a+b-1.pl
2017-09-25 22:28:19 +02:00

2 lines
77 B
Perl

my ($a,$b) = split(' ', scalar(<STDIN>));
print "$a $b " . ($a + $b) . "\n";