SHA-256: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix comment: Perl 6 --> Raku) |
||
Line 1,633: | Line 1,633: | ||
next if ("1" x $p) =~ /^(11+?)\1+$/; |
next if ("1" x $p) =~ /^(11+?)\1+$/; |
||
# The choice to generate h and k instead of hard coding |
# The choice to generate h and k instead of hard coding |
||
# them is inspired by the |
# them is inspired by the Raku implementation. |
||
my $c = $p ** ( 1/3 ); |
my $c = $p ** ( 1/3 ); |
||
push @k, int( ($c - int $c) * WORD ); |
push @k, int( ($c - int $c) * WORD ); |