Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add vim coda to rosalind example files
  • Loading branch information
Paul Cochrane committed Feb 28, 2015
1 parent f59fdeb commit 1edd74c
Show file tree
Hide file tree
Showing 43 changed files with 51 additions and 40 deletions.
3 changes: 2 additions & 1 deletion rosalind/afrq-grondilu.pl
View file
Expand Up @@ -7,4 +7,5 @@
say @A».&afrq;

# 0.532 0.75 0.914
# vim: ft=perl6

# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/aspc-grondilu.pl
View file
Expand Up @@ -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
2 changes: 1 addition & 1 deletion rosalind/cons-grondilu.pl
View file
Expand Up @@ -21,4 +21,4 @@

say .key, ': ', @profile[.value] for enum <A C G T>;

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/conv-grondilu.pl
View file
Expand Up @@ -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
2 changes: 1 addition & 1 deletion rosalind/cstr-grondilu.pl
View file
Expand Up @@ -7,4 +7,4 @@
say @line.join if 1 < ([+] @line) < @dna-1;
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/ctbl-grondilu.pl
View file
Expand Up @@ -21,4 +21,4 @@
$line ~~ s/\( (0+) \)/$0/;
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 2 additions & 0 deletions rosalind/dbpr-grondilu.pl
View file
Expand Up @@ -6,3 +6,5 @@
say $/[0].Str
}
}

# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 2 additions & 0 deletions rosalind/dna-gerdr.pl
View file
@@ -1,3 +1,5 @@
use v6;

<A C G T>.map({ +.comb(/$^symbol/) }).say given slurp;

# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/dna-grondilu.pl
View file
@@ -1,3 +1,3 @@
say get.comb.bag<A C G T>;

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/eubt-grondilu.pl
View file
Expand Up @@ -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
3 changes: 1 addition & 2 deletions rosalind/eval-grondilu.pl
View file
Expand Up @@ -18,5 +18,4 @@ (:$dna, :$gc-content)

say @B;


# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/fib-grondilu.pl
View file
Expand Up @@ -4,4 +4,4 @@

say @fib[$n-1];

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
3 changes: 1 addition & 2 deletions rosalind/fibd-grondilu.pl
View file
Expand Up @@ -8,5 +8,4 @@

say [+] @population;


# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 2 additions & 0 deletions rosalind/gc-gerdr.pl
View file
Expand Up @@ -18,3 +18,5 @@

FASTA.parse($_, :$actions).ast.sort(*.[1]).[*-1] ~ '%' ==> say()
given slurp;

# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/grph-grondilu.pl
View file
Expand Up @@ -11,4 +11,4 @@
if $a.value.substr(*-3) eq $b.value.substr(0, 3);
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/hamm-grondilu.pl
View file
Expand Up @@ -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
1 change: 1 addition & 0 deletions rosalind/iev-grondilu.pl
View file
Expand Up @@ -2,3 +2,4 @@

say 2 * [+] <1 1 1 3/4 1/2 0> Z* $*IN.get.split: " ";

# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/indc-grondilu.pl
View file
Expand Up @@ -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
2 changes: 2 additions & 0 deletions rosalind/ini1-grondilu.pl
View file
@@ -1,3 +1,5 @@
use v6;

say qx{python -c 'import this'};

# vim: expandtab shiftwidth=4 ft=perl6
3 changes: 2 additions & 1 deletion rosalind/iprb-grondilu.pl
View file
Expand Up @@ -12,4 +12,5 @@
1/2 * .[1] * .[2] , # one heterozygous and one homozygous recessive
)
}
# vim: ft=perl6

# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/itwv-grondilu.pl
View file
Expand Up @@ -28,4 +28,4 @@ ($a, $b)
}
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/lcsq-grondilu.pl
View file
Expand Up @@ -6,4 +6,4 @@
take ~.[0].subst(/\n/,'', :g);
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/lia-grondilu.pl
View file
Expand Up @@ -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
2 changes: 1 addition & 1 deletion rosalind/mmch-grondilu.pl
View file
Expand Up @@ -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
2 changes: 1 addition & 1 deletion rosalind/mprt-grondilu.pl
View file
Expand Up @@ -11,4 +11,4 @@
}
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/mrna-grondilu.pl
View file
Expand Up @@ -32,4 +32,4 @@ ($rna)

say mrna $*IN.get;

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/nwck-grondilu.pl
View file
Expand Up @@ -15,4 +15,4 @@
take $climbs + $descents;
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/orf-grondilu.pl
View file
Expand Up @@ -35,4 +35,4 @@ ($dna)

.say for orf $*IN.get;

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/pmch-grondilu.pl
View file
Expand Up @@ -2,4 +2,4 @@

say [*] map { [*] 1 .. $rna.comb(/$_/).elems }, <U C>;

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/pper-grondilu.pl
View file
Expand Up @@ -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
3 changes: 1 addition & 2 deletions rosalind/prob-grondilu.pl
View file
Expand Up @@ -14,5 +14,4 @@ (:$dna, :$gc-content)

say @B».fmt: "%.3f";

# vim: ft=perl6

# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/qrt-grondilu.pl
View file
Expand Up @@ -33,4 +33,4 @@ ($n, $k)
}
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 2 additions & 0 deletions rosalind/revc-gerdr.pl
View file
@@ -1,3 +1,5 @@
use v6;

.flip.trans('ACGT' => 'TGCA').say given slurp;

# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 2 additions & 0 deletions rosalind/rna-gerdr.pl
View file
@@ -1,3 +1,5 @@
use v6;

.trans('T' => 'U').say given slurp;

# vim: expandtab shiftwidth=4 ft=perl6
3 changes: 1 addition & 2 deletions rosalind/rstr-grondilu.pl
View file
Expand Up @@ -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
1 change: 1 addition & 0 deletions rosalind/sexl-grondilu.pl
View file
Expand Up @@ -2,3 +2,4 @@

say map { 2*$^x*(1-$x) }, get.split(' ')».Num;

# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/sgra-grondilu.pl
View file
Expand Up @@ -31,4 +31,4 @@

say max :by(*.chars), map &find-protein, @L;

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/spec-grondilu.pl
View file
Expand Up @@ -33,4 +33,4 @@ (@weight, :$accuracy = .01)
}
print spec $*IN.lines;

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/sseq-grondilu.pl
View file
Expand Up @@ -7,4 +7,4 @@
take $pos = $/.from + 1;
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/subs-grondilu.pl
View file
Expand Up @@ -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
3 changes: 1 addition & 2 deletions rosalind/suff-grondilu.pl
View file
Expand Up @@ -25,5 +25,4 @@

show-edges suffix-tree suffixes get;


# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/tran-grondilu.pl
View file
Expand Up @@ -14,4 +14,4 @@
say $transitions/$transversions;
}

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6
2 changes: 1 addition & 1 deletion rosalind/trie-grondilu.pl
View file
Expand Up @@ -51,4 +51,4 @@ sub trie {

__END__

# vim: ft=perl6
# vim: expandtab shiftwidth=4 ft=perl6

0 comments on commit 1edd74c

Please sign in to comment.