aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/SHA-1/J/sha-1-1.j
View file

@ -17,10 +17,11 @@ K=: ((32#2) #: 16b5a827999 16b6ed9eba1 16b8f1bbcdc 16bca62c1d6) {~ <.@%&20
plus=:+&.((32#2)&#.)
process=:3 :0
H=. #: 16b67452301 16befcdab89 16b98badcfe 16b10325476 16bc3d2e1f0
W=. (, [: , 1 |."#. _3 _8 _14 _16 ~:/@:{ ])^:64 y ]\~ _32
'A B C D E'=. H
H=: #: 16b67452301 16befcdab89 16b98badcfe 16b10325476 16bc3d2e1f0
process=:4 :0
W=. (, [: , 1 |."#. _3 _8 _14 _16 ~:/@:{ ])^:64 x ]\~ _32
'A B C D E'=. y=._32[\,y
for_t. i.80 do.
TEMP=. (5|.A) plus (t f B,C,D) plus E plus (W{~t) plus K t
E=. D
@ -29,7 +30,7 @@ process=:3 :0
B=. A
A=. TEMP
end.
,H plus A,B,C,D,:E
,y plus A,B,C,D,:E
)
sha1=: _512 process\ pad
sha1=: [:> [: process&.>/ (<H) (,~ |.) _512<\ pad