RosettaCodeData/Task/Generic-swap/Perl/generic-swap-2.pl

2 lines
31 B
Perl
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
sub swap {@_[0, 1] = @_[1, 0]}