Skip to content

Instantly share code, notes, and snippets.

@Crest

Crest/xor-shift.fs Secret

Created June 10, 2020 02:38
Show Gist options
  • Save Crest/9b99a12c4cfdafcbe856e9de21e02161 to your computer and use it in GitHub Desktop.
Save Crest/9b99a12c4cfdafcbe856e9de21e02161 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
xor-shift.fs
: xor-shift ( x -- x' )
dup 13 lshift xor
dup 17 rshift xor
dup 5 lshift xor ;
: xor-shift-fill ( seed start count -- )
dup + swap do
xor-shift dup i !
4 +loop drop ;
: swd-init ( -- )
$DEADBEEF swd cell+ 256 2* xor-shift-fill
0 swd ! ;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment