Anonymous user
Execute HQ9+: Difference between revisions
m
→{{header|Perl}}: space removed
m (→{{header|Perl}}: space removed) |
|||
Line 702:
=={{header|Perl}}==
This implementation uses the ''switch'' feature.
<lang perl>#!/usr/bin/perl
use warnings;
use strict;
Line 754 ⟶ 753:
return 'Take one down and pass it around' if $n > 0;
return 'Go to the store and buy some more';
}</lang>▼
▲</lang>
=={{header|Perl 6}}==
| |||