daily pastebin goal
47%
SHARE
TWEET

Untitled

a guest Aug 15th, 2018 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/env perl
  2. use strict;
  3. use warnings;
  4.  
  5. my $count = <>;
  6. chomp($count);
  7. x(\$count, scalar <>);
  8.  
  9. sub x{
  10.     my ($count, $word) = @_;
  11.     my $next = <>;
  12.     x($count, $next) if $next;
  13.     print $word if $$count-- > 0;
  14. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top