Add vim coda to rosalind example files

paultcochrane · paultcochrane · commit 1edd74cef6f4 · 2015-02-28T23:39:24.000+01:00
diff --git a/rosalind/afrq-grondilu.pl b/rosalind/afrq-grondilu.pl
@@ -7,4 +7,5 @@
 say @A».&afrq;
 
 # 0.532 0.75 0.914
-# vim: ft=perl6
+
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/aspc-grondilu.pl b/rosalind/aspc-grondilu.pl
@@ -5,4 +5,4 @@
 for $m+1 .. $n -> $k { $sum += $C = $C * ($n - $k + 1) div $k }
 say $sum % 1_000_000;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/cons-grondilu.pl b/rosalind/cons-grondilu.pl
@@ -21,4 +21,4 @@
 
 say .key, ': ', @profile[.value] for enum <A C G T>;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/conv-grondilu.pl b/rosalind/conv-grondilu.pl
@@ -5,4 +5,4 @@
 my %conv; %conv{$_}++ for $a.split(/\s+/) X- $b.split(/\s+/);
 .say for max(:by(*.value), %conv).kv.reverse;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/cstr-grondilu.pl b/rosalind/cstr-grondilu.pl
@@ -7,4 +7,4 @@
     say @line.join if 1 < ([+] @line) < @dna-1;
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/ctbl-grondilu.pl b/rosalind/ctbl-grondilu.pl
@@ -21,4 +21,4 @@
     $line ~~ s/\( (0+) \)/$0/;
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/dbpr-grondilu.pl b/rosalind/dbpr-grondilu.pl
@@ -6,3 +6,5 @@
         say $/[0].Str
     }
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/dna-gerdr.pl b/rosalind/dna-gerdr.pl
@@ -1,3 +1,5 @@
 use v6;
 
 <A C G T>.map({ +.comb(/$^symbol/) }).say given slurp;
+
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/dna-grondilu.pl b/rosalind/dna-grondilu.pl
@@ -1,3 +1,3 @@
 say get.comb.bag<A C G T>;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/eubt-grondilu.pl b/rosalind/eubt-grondilu.pl
@@ -33,4 +33,4 @@ (@species)
 my $first = @data.shift;
 printf "(%s)%s\n", $_, $first for eubt @data;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/eval-grondilu.pl b/rosalind/eval-grondilu.pl
@@ -18,5 +18,4 @@ (:$dna, :$gc-content)
 
 say @B;
 
-
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/fib-grondilu.pl b/rosalind/fib-grondilu.pl
@@ -4,4 +4,4 @@
 
 say @fib[$n-1];
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/fibd-grondilu.pl b/rosalind/fibd-grondilu.pl
@@ -8,5 +8,4 @@
 
 say [+] @population;
 
-
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/gc-gerdr.pl b/rosalind/gc-gerdr.pl
@@ -18,3 +18,5 @@
 
 FASTA.parse($_, :$actions).ast.sort(*.[1]).[*-1] ~ '%' ==> say()
 	given slurp;
+
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/grph-grondilu.pl b/rosalind/grph-grondilu.pl
@@ -11,4 +11,4 @@
     if $a.value.substr(*-3) eq $b.value.substr(0, 3);
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/hamm-grondilu.pl b/rosalind/hamm-grondilu.pl
@@ -3,4 +3,4 @@
 my ($S, $t) = $*IN.lines;
 say [+] ($S.comb Zeq $t.comb)».not».Int;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/iev-grondilu.pl b/rosalind/iev-grondilu.pl
@@ -2,3 +2,4 @@
 
 say 2 * [+] <1 1 1 3/4 1/2 0> Z*  $*IN.get.split: " ";
 
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/indc-grondilu.pl b/rosalind/indc-grondilu.pl
@@ -12,4 +12,4 @@ ($n, $k)
     take .log / log 10 given 1/2**(2*$n) * [+] map { C 2*$n, $_ }, $k .. 2*$n;
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/ini1-grondilu.pl b/rosalind/ini1-grondilu.pl
@@ -1,3 +1,5 @@
 use v6;
 
 say qx{python -c 'import this'};
+
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/iprb-grondilu.pl b/rosalind/iprb-grondilu.pl
@@ -12,4 +12,5 @@
 	1/2 * .[1] * .[2]    ,   # one heterozygous and one homozygous recessive
     )
 }
-# vim: ft=perl6
+
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/itwv-grondilu.pl b/rosalind/itwv-grondilu.pl
@@ -28,4 +28,4 @@ ($a, $b)
     }
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/lcsq-grondilu.pl b/rosalind/lcsq-grondilu.pl
@@ -6,4 +6,4 @@
     take ~.[0].subst(/\n/,'', :g);
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/lia-grondilu.pl b/rosalind/lia-grondilu.pl
@@ -22,4 +22,4 @@ ($n, $k)
 my $total = 2**$k;
 say [+] map -> $i { (1-$p)**($total - $i)*$p**$i * binomialcoefficient( $total, $i ) }, $N .. $total;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/mmch-grondilu.pl b/rosalind/mmch-grondilu.pl
@@ -18,4 +18,4 @@ sub postfix:<!>(Int $n) { [*] 1 .. $n }
     C(.<C G>.min, .<C G>.max) * .<C G>.min!;
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/mprt-grondilu.pl b/rosalind/mprt-grondilu.pl
@@ -11,4 +11,4 @@
     }
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/mrna-grondilu.pl b/rosalind/mrna-grondilu.pl
@@ -32,4 +32,4 @@ ($rna)
 
 say mrna $*IN.get;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/nwck-grondilu.pl b/rosalind/nwck-grondilu.pl
@@ -15,4 +15,4 @@
     take $climbs + $descents;
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/orf-grondilu.pl b/rosalind/orf-grondilu.pl
@@ -35,4 +35,4 @@ ($dna)
 
 .say for orf $*IN.get;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/pmch-grondilu.pl b/rosalind/pmch-grondilu.pl
@@ -2,4 +2,4 @@
 
 say [*] map { [*] 1 .. $rna.comb(/$_/).elems }, <U C>;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/pper-grondilu.pl b/rosalind/pper-grondilu.pl
@@ -3,4 +3,4 @@
 sub pper($n, $k) { [*] $n-$k+1 .. $n }
 say pper(| $*IN.get.split: " ") % 1_000_000;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/prob-grondilu.pl b/rosalind/prob-grondilu.pl
@@ -14,5 +14,4 @@ (:$dna, :$gc-content)
 
 say @B».fmt: "%.3f";
 
-# vim: ft=perl6
-
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/qrt-grondilu.pl b/rosalind/qrt-grondilu.pl
@@ -33,4 +33,4 @@ ($n, $k)
     }
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/revc-gerdr.pl b/rosalind/revc-gerdr.pl
@@ -1,3 +1,5 @@
 use v6;
 
 .flip.trans('ACGT' => 'TGCA').say given slurp;
+
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/rna-gerdr.pl b/rosalind/rna-gerdr.pl
@@ -1,3 +1,5 @@
 use v6;
 
 .trans('T' => 'U').say given slurp;
+
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/rstr-grondilu.pl b/rosalind/rstr-grondilu.pl
@@ -10,5 +10,4 @@ (:$dna, :$gc-content)
 
 printf "%.3f",  1 - exp ($N * log(1-prob :$dna, :$gc-content));
 
-# vim: ft=perl6
-
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/sexl-grondilu.pl b/rosalind/sexl-grondilu.pl
@@ -2,3 +2,4 @@
 
 say map { 2*$^x*(1-$x) }, get.split(' ')».Num;
 
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/sgra-grondilu.pl b/rosalind/sgra-grondilu.pl
@@ -31,4 +31,4 @@
 
 say max :by(*.chars), map &find-protein, @L;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/spec-grondilu.pl b/rosalind/spec-grondilu.pl
@@ -33,4 +33,4 @@ (@weight, :$accuracy = .01)
 }
 print spec $*IN.lines;
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/sseq-grondilu.pl b/rosalind/sseq-grondilu.pl
@@ -7,4 +7,4 @@
     take $pos = $/.from + 1;
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/subs-grondilu.pl b/rosalind/subs-grondilu.pl
@@ -3,4 +3,4 @@
 my ($S, $t) = $*IN.lines;
 say gather for $S.match(/$t/, :overlap) { take 1+.from }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/suff-grondilu.pl b/rosalind/suff-grondilu.pl
@@ -25,5 +25,4 @@
 
 show-edges suffix-tree suffixes get;
 
-
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/tran-grondilu.pl b/rosalind/tran-grondilu.pl
@@ -14,4 +14,4 @@
     say $transitions/$transversions;
 }
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6
diff --git a/rosalind/trie-grondilu.pl b/rosalind/trie-grondilu.pl
@@ -51,4 +51,4 @@ sub trie {
 
 __END__
 
-# vim: ft=perl6
+# vim: expandtab shiftwidth=4 ft=perl6

Original file line number	Diff line number	Diff line change
`@@ -21,4 +21,4 @@`
`21`	`21`
`22`	`22`	`say .key, ': ', @profile[.value] for enum <A C G T>;`
`23`	`23`
`24`		`-# vim: ft=perl6`
	`24`	`+# vim: expandtab shiftwidth=4 ft=perl6`
Original file line number	Diff line number	Diff line change
`@@ -7,4 +7,4 @@`
`7`	`7`	`say @line.join if 1 < ([+] @line) < @dna-1;`
`8`	`8`	`}`
`9`	`9`
`10`		`-# vim: ft=perl6`
	`10`	`+# vim: expandtab shiftwidth=4 ft=perl6`
Original file line number	Diff line number	Diff line change
`@@ -6,3 +6,5 @@`
`6`	`6`	`say $/[0].Str`
`7`	`7`	`}`
`8`	`8`	`}`
	`9`	`+`
	`10`	`+# vim: expandtab shiftwidth=4 ft=perl6`
-Original file line number
+Diff line change
@@ @@ -1,3 +1,5 @@ @@
 use v6;
 <A C G T>.map({ +.comb(/$^symbol/) }).say given slurp;
++
 +# vim: expandtab shiftwidth=4 ft=perl6
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,3 @@`
`1`	`1`	`say get.comb.bag<A C G T>;`
`2`	`2`
`3`		`-# vim: ft=perl6`
	`3`	`+# vim: expandtab shiftwidth=4 ft=perl6`