[other/n-body.pl] use given instead of explicit $_

Raku · May 8, 2012 · 1ce1e53 · 1ce1e53
1 parent d147721
commit 1ce1e53
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/other/n-body.pl b/other/n-body.pl
@@ -103,8 +103,8 @@ (Num $dt)
      .r.addmul(.v, $dt) for @bodies;
 }
 
-$_ = @bodies[Sun];
-.v.addmul(total-momentum, -1e0 / .m);
+.v.addmul(total-momentum, -1e0 / .m)
+    given @bodies[Sun];
 
 sub MAIN(Int $n, Num $dt = 1e-2) {
     printf "%.9f\n", total-energy;