Add vim coda to perlmonks examples

Author: paultcochrane

perlmonks/combinations-731808.pl

@@ -5,13 +5,11 @@
 #    Given a list of URL prefixes, and a list of product IDs, make a list
 #    consisting of each URL prefix concatenated with each product ID.
 
-
 my @urls = ('http://www.something.com/blah.aspx?code=',
             'http://www.somethingelse.com/stuff.aspx?thing=');
 
 my @ids = <375035304 564564774 346464646>;
 
-
 # 1. Cross then map
 # We use the cross operator X to make every combination of pairs from @urls
 # and @ids. We then use map to stringify each pair. $^a is a "placeholder
@@ -27,5 +25,6 @@
 #    You can use any infix operator.
 #    Try (1,2,3) X* (1,2,3) to generate a multiplication table.
 
-
 .say for @urls X~ @ids;
+
+# vim: expandtab shiftwidth=4 ft=perl6

perlmonks/weighted-roll-731696.pl

@@ -37,15 +37,15 @@
 my $total = [+] @weights;
 say "Total Weights $total";
 
-sub pick (@weights, $total) {
+sub pick(@weights, $total) {
    my $rand = (0..^$total).pick;
    for @weights.kv -> $i, $w {
        $rand -= $w;
        return $i if $rand < 0;
    }
 }
 
-sub pickAll (@weights is copy, $total is copy) {
+sub pickAll(@weights is copy, $total is copy) {
    my @order;
    for @weights {
         my $pick = pick(@weights, $total);
@@ -58,5 +58,4 @@ (@weights is copy, $total is copy)
 
 say ~pickAll(@weights,$total) for 1 .. $REPS;
 
-
-
+# vim: expandtab shiftwidth=4 ft=perl6