SHA-256: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: style: having &init return a lazy list as well) |
m (→{{header|Perl 6}}: cosmetic change) |
||
| Line 169: | Line 169: | ||
<lang Perl 6>say .list».fmt("%02x").join given sha256 "Rosetta code"; |
<lang Perl 6>say .list».fmt("%02x").join given sha256 "Rosetta code"; |
||
constant primes = grep |
constant primes = grep &is-prime, 2 .. *; |
||
sub init(&f) { |
sub init(&f) { |
||
map { my $f = $^p.&f; (($f - $f.Int)*2**32).Int }, primes |
map { my $f = $^p.&f; (($f - $f.Int)*2**32).Int }, primes |
||