[perl] Primes.pmHEADmaster

1 files changed, 2 insertions, 1 deletions

diff --git a/perl/p6.pl b/perl/p6.pl
index 74ebbef..b93da35 100755
--- a/perl/p6.pl
+++ b/perl/p6.pl
@@ -19,9 +19,10 @@ sub iter {
 ($sum_of_squares, $sum) = @{+reduce { iter($a, $b) } [0, 0], (1..100)};
 print $sum_of_squares - ($sum**2), "\n";
 
+# Imperative
 $sum_of_squares = 0;
 $sum = 0;
-# imperative
+
 for my $n (1..100) {
     $sum_of_squares += $n**2;
     $sum += $n;