SHA-1: Difference between revisions
→{{header|Perl 6}}: Add a library based implementation
(Added rust solution) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a library based implementation) |
||
Line 1,167:
=={{header|Perl 6}}==
===Pure Perl 6===
A pure Perl 6 implementation that closely follows the description of SHA-1 in FIPS 180-1. Slow.
Line 1,219:
Buf:0x<48 c9 8f 7e 5a 6e 73 6d 79 0a b7 40 df c3 f5 1a 61 ab e2 b5> Rosetta Code
Buf:0x<e6 40 d2 85 24 28 86 eb 96 ab 80 cb f8 58 38 9b 3d f5 2f 43> Ars longa, vita brevis</pre>
===Library based implementation===
Quite speedy.
<lang perl6>use Digest::SHA1::Native;
# use sha1-hex() if you want a hex string
say sha1($_), " $_" for
'abc',
'abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq',
'Rosetta Code',
'Ars longa, vita brevis'
;</lang>
{{Out}}
<pre>Blob:0x<A9 99 3E 36 47 06 81 6A BA 3E 25 71 78 50 C2 6C 9C D0 D8 9D> abc
Blob:0x<84 98 3E 44 1C 3B D2 6E BA AE 4A A1 F9 51 29 E5 E5 46 70 F1> abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq
Blob:0x<48 C9 8F 7E 5A 6E 73 6D 79 0A B7 40 DF C3 F5 1A 61 AB E2 B5> Rosetta Code
Blob:0x<E6 40 D2 85 24 28 86 EB 96 AB 80 CB F8 58 38 9B 3D F5 2F 43> Ars longa, vita brevis</pre>
=={{header|Phix}}==
| |||