Commits

Shlomi Fish committed 6487bef

More.

  • Participants
  • Parent commits e01cefb

Comments (0)

Files changed (3)

File project-euler/148/148-analysis.txt

     + Int[ (k + (7**2-1) - n%(7**2)) / 7**2]
     + Int[ (k + (7**3-1) - n%(7**3)) / 7**3]
 
+For
+
+

File project-euler/148/calc-num-Y-in-row.pl

+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Math::BigInt lib => 'GMP', ':constant';
+
+sub fact
+{
+    return shift->copy->bfac;
+}
+
+sub nCr
+{
+    my ($n, $k) = @_;
+    $n += 0;
+    $k += 0;
+    return fact($n) / (fact($n-$k) * fact($k));
+}
+
+my $n = shift(@ARGV);
+
+print join(' ', map { +(nCr($n+1, $_) % 7 == 0 ) ? 'Y' : 'N' } (1 .. $n)), "\n";

File project-euler/148/print-row.pl

+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Math::BigInt lib => 'GMP', ':constant';
+
+sub fact
+{
+    return shift->copy->bfac;
+}
+
+sub nCr
+{
+    my ($n, $k) = @_;
+    $n += 0;
+    $k += 0;
+    return fact($n) / (fact($n-$k) * fact($k));
+}
+
+my $n = shift(@ARGV);
+
+print join(' ', map { +(nCr($n, $_) % 7 == 0 ) ? 'Y' : 'N' } (1 .. $n-1)), "\n";