8 lines
354 B
Text
8 lines
354 B
Text
String ← "The quick brown fox jumps over the lazy dog"
|
||
Key ← ⋕₁₆"1db710640"
|
||
InitCRC ← ⋕₁₆"ffffffff"
|
||
Xor ← °⋯⬚0≡≠∩⋯
|
||
ShR ← ⍜⋯(⬚0˜↻)⊃⋅∘∘
|
||
Table ← ≡⍥₈(ShR1 ⍥(Xor Key)⊸◿2)⇡256
|
||
⍢(Xor⊃(ShR8|˜⊡Table Xor◿256)⊙°⊂|>0⧻◌) InitCRC -@\0String
|
||
°⋕₁₆⍜⋯¬⊙◌
|