[other/revcomp.pl] fix whitespace

Raku · May 8, 2012 · dd8202a · dd8202a
1 parent ccbd2c0
commit dd8202a
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/other/revcomp.pl b/other/revcomp.pl
@@ -1,22 +1,22 @@
 use v6;
 
-my %trans = 'wsatugcyrkmbdhvnATUGCYRKMBDHVN'.comb  Z=>
-	'WSTAACGRYMKVHDBNTAACGRYMKVHDBN'.comb;
+my %trans = 'wsatugcyrkmbdhvnATUGCYRKMBDHVN'.comb Z=>
+    'WSTAACGRYMKVHDBNTAACGRYMKVHDBN'.comb;
 
 my ($desc, @seq);
 
 for lines() {
-	dump, $desc = $_, next if /^ \>/;
-	@seq.unshift(.comb.reverse.map({ %trans{$^c} // $^c }));
-	LAST dump;
+    dump, $desc = $_, next if /^ \>/;
+    @seq.unshift(.comb.reverse.map({ %trans{$^c} // $^c }));
+    LAST dump;
 }
 
 sub dump {
-	LEAVE @seq = Nil;
-	return unless $desc.defined;
+    LEAVE @seq = Nil;
+    return unless $desc.defined;
 
-	@seq.splice($_, 0, "\n")
-		for (60, 120 ...^ * >= +@seq).reverse;
+    @seq.splice($_, 0, "\n")
+        for (60, 120 ...^ * >= +@seq).reverse;
 
-	say $desc, "\n", @seq.join;
+    say $desc, "\n", @seq.join;
 }