A+B: Difference between revisions
Content added Content deleted
m (Added Klong example) |
|||
Line 2,683: | Line 2,683: | ||
<lang Perl>my ($a,$b) = split(' ', scalar(<STDIN>)); |
<lang Perl>my ($a,$b) = split(' ', scalar(<STDIN>)); |
||
print "$a $b " . ($a + $b) . "\n";</lang> |
print "$a $b " . ($a + $b) . "\n";</lang> |
||
# Or using The List::Util module and a modern perl... |
|||
say sum split /\s+/, scalar <STDIN>; |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |