CRC-32: Difference between revisions
Added Quackery.
(added NOWUT) |
(Added Quackery.) |
||
Line 2,020:
</lang>
{{Out}}
<pre>414FA339</pre>
=={{header|Quackery}}==
{{trans|Forth}}
<lang Quackery> [ table ] is crctable ( n --> n )
256 times
[ i^ 8 times
[ dup 1 >>
swap 1 & if
[ hex EDB88320 ^ ] ]
' crctable put ]
[ hex FFFFFFFF swap
witheach
[ over ^ hex FF &
crctable
swap 8 >> ^ ]
hex FFFFFFFF ^ ] is crc-32 ( [ --> n )
$ "The quick brown fox jumps over the lazy dog" crc-32
16 base put
echo
base release</lang>
{{out}}
<pre>414FA339</pre>
| |||