[shootout/revcomp.p6.pl] replace loop with for

no idea why looping didn't work
Raku · May 8, 2012 · dde18a0 · dde18a0
1 parent 1ce1e53
commit dde18a0
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/shootout/revcomp.p6.pl b/shootout/revcomp.p6.pl
@@ -19,12 +19,9 @@
 sub print_revcomp() {
 	return if not $desc;
 	say $desc;
-	#$seq = $seq.flip.trans('wsatugcyrkmbdhvnATUGCYRKMBDHVN' => 'WSTAACGRYMKVHDBNTAACGRYMKVHDBN');
-	$seq = $seq.flip;
-	$seq = $seq.trans('wsatugcyrkmbdhvnATUGCYRKMBDHVN' => 'WSTAACGRYMKVHDBNTAACGRYMKVHDBN');
-
-	my ($i,$stop) = (0,$seq.chars/60);
-	loop ($i=0; $i < $stop; $i++) {
+	$seq = $seq.flip.trans('wsatugcyrkmbdhvnATUGCYRKMBDHVN' => 'WSTAACGRYMKVHDBNTAACGRYMKVHDBN');
+
+	for ^($seq.chars/60) -> $i {
 		say $seq.substr($i*60,60);
 	}
 }