mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
rng: move xorshift and mersenne into the examples
FossilOrigin-Name: 78d70988db343fada5bb205cc23fd5ad0282d9e5dc7305eaef607cb941e19db1
This commit is contained in:
crc
parent
ec71c4bd69
commit
078d98e8cf
9 changed files with 1271 additions and 1461 deletions
|
|
@ -1,13 +1,49 @@
|
|||
# RETRO 2019.tbd
|
||||
# RETRO 2019.10
|
||||
|
||||
This is the current changelog for the next release of RETRO, which
|
||||
is currently targetting a late fall release.
|
||||
The next release will be 2019.10.
|
||||
|
||||
This is a worthwhile release, bringing changes and improvements
|
||||
in several areas.
|
||||
|
||||
64-Bit
|
||||
|
||||
RETRO has been 32-bit only since the days of RETRO2 apart from
|
||||
some limited experiments with RETRO11. I'm pleased to say that
|
||||
this release of RETRO12 adds support for building a system with
|
||||
64-bit cells.
|
||||
|
||||
This carries the same limitations regarding instruction packing,
|
||||
addressing, etc as the standard 32-bit system, and is not built
|
||||
by default. If you want to build a 64-bit system, do:
|
||||
|
||||
make clean; make CFLAGS="-O2 -DBIT64"
|
||||
|
||||
Compatibility
|
||||
|
||||
There are a few small breaks in compatibility.
|
||||
|
||||
`unix:time` was removed. There is some discussion ongoing about
|
||||
this, but leaving it in would be problematic on 32-bit systems
|
||||
in a couple of years when the counter overflows. For now, I have
|
||||
added `clock:timestamp`, but the value of the epoch this uses
|
||||
may change in the future.
|
||||
|
||||
Interface
|
||||
|
||||
The 'ok' prompt has been removed.
|
||||
|
||||
----
|
||||
|
||||
## Bug Fixes
|
||||
|
||||
- all
|
||||
|
||||
- build
|
||||
|
||||
- retro-unix
|
||||
|
||||
- fix an issue when using custom images
|
||||
|
||||
- examples
|
||||
|
||||
## Build
|
||||
|
|
@ -51,24 +87,3 @@ New queries via fetch:
|
|||
|
||||
-4 for min integer
|
||||
-5 for max integer
|
||||
|
||||
## Notes for the future:
|
||||
|
||||
You can now build a 64-bit RETRO by doing:
|
||||
|
||||
make clean; make CFLAGS="-O2 -DBIT64"
|
||||
|
||||
This is not well tested yet, but everything should work as
|
||||
normal, you just get a much larger integer range. Note that
|
||||
this requires a newer version of the VM with added queries
|
||||
via fetch to fully support.
|
||||
|
||||
----
|
||||
|
||||
This release changes a few things.
|
||||
|
||||
(1) `unix:time` is now removed
|
||||
(2) `clock:timestamp` is added
|
||||
(3) the system can now be built as a fully 64-bit system
|
||||
with minimal changes
|
||||
(4) the `ok` prompt has been removed
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
|
|
@ -1,502 +1,496 @@
|
|||
" D: -s A: - F: -
|
||||
$ D: -c A: - F: -
|
||||
' D: -s A: - F: -
|
||||
( D: - A: - F: -
|
||||
) D: - A: - F: -
|
||||
* D: nn-n A: - F: -
|
||||
+ D: nn-n A: - F: -
|
||||
, D: n- A: - F: -
|
||||
- D: nn-n A: - F: -
|
||||
---reveal--- D: - A: - F: -
|
||||
-eq? D: nn-f A: - F: -
|
||||
-if D: fq- A: - F: -
|
||||
-if; D: fq- A: - F: -
|
||||
/ D: nm-q A: - F: -
|
||||
/mod D: nm-rq A: - F: -
|
||||
0; D: n-n || n- A: - F: -
|
||||
; D: - A: - F: -
|
||||
?dup D: n-nn || n-n A: - F: -
|
||||
ASCII:ACK D: -n A: - F: -
|
||||
ASCII:BEL D: -n A: - F: -
|
||||
ASCII:BS D: -n A: - F: -
|
||||
ASCII:CAN D: -n A: - F: -
|
||||
ASCII:CR D: -n A: - F: -
|
||||
ASCII:DC1 D: -n A: - F: -
|
||||
ASCII:DC2 D: -n A: - F: -
|
||||
ASCII:DC3 D: -n A: - F: -
|
||||
ASCII:DC4 D: -n A: - F: -
|
||||
ASCII:DEL D: -n A: - F: -
|
||||
ASCII:DLE D: -n A: - F: -
|
||||
ASCII:EM D: -n A: - F: -
|
||||
ASCII:ENQ D: -n A: - F: -
|
||||
ASCII:EOT D: -n A: - F: -
|
||||
ASCII:ESC D: -n A: - F: -
|
||||
ASCII:ETB D: -n A: - F: -
|
||||
ASCII:ETX D: -n A: - F: -
|
||||
ASCII:FF D: -n A: - F: -
|
||||
ASCII:FS D: -n A: - F: -
|
||||
ASCII:GS D: -n A: - F: -
|
||||
ASCII:HT D: -n A: - F: -
|
||||
ASCII:LF D: -n A: - F: -
|
||||
ASCII:NAK D: -n A: - F: -
|
||||
ASCII:NUL D: -n A: - F: -
|
||||
ASCII:RS D: -n A: - F: -
|
||||
ASCII:SI D: -n A: - F: -
|
||||
ASCII:SO D: -n A: - F: -
|
||||
ASCII:SOH D: -n A: - F: -
|
||||
ASCII:SPACE D: -n A: - F: -
|
||||
ASCII:STX D: -n A: - F: -
|
||||
ASCII:SUB D: -n A: - F: -
|
||||
ASCII:SYN D: -n A: - F: -
|
||||
ASCII:US D: -n A: - F: -
|
||||
ASCII:VT D: -n A: - F: -
|
||||
Compiler D: -a A: - F: -
|
||||
Dictionary D: -a A: - F: -
|
||||
EOM D: -a A: - F: -
|
||||
FALSE D: -n A: - F: -
|
||||
FREE D: -n A: - F: -
|
||||
Heap D: -a A: - F: -
|
||||
I D: -n A: - F: -
|
||||
J D: -n A: - F: -
|
||||
K D: -n A: - F: -
|
||||
NoEcho D: -a A: - F: -
|
||||
RewriteUnderscores D: -a A: - F: -
|
||||
STRINGS D: -a A: - F: -
|
||||
ScopeList D: -a A: - F: -
|
||||
TIB D: -a A: - F: -
|
||||
TRUE D: -n A: - F: -
|
||||
TempStringMax D: -a A: - F: -
|
||||
TempStrings D: -a A: - F: -
|
||||
Version D: -a A: - F: -
|
||||
[ D: - A: - F: -
|
||||
] D: - A: - F: -
|
||||
a:-eq? D: aa-f A: - F: -
|
||||
a:append D: aa-a A: - F: -
|
||||
a:begins-with? D: aa-f A: - F: -
|
||||
a:chop D: a-a A: - F: -
|
||||
a:contains-string? D: sa-f A: - F: -
|
||||
a:contains? D: na-f A: - F: -
|
||||
a:copy D: aa- A: - F: -
|
||||
a:counted-results D: q-a A: - F: -
|
||||
a:dup D: a-b A: - F: -
|
||||
a:ends-with? D: aa-f A: - F: -
|
||||
a:eq? D: aa-f A: - F: -
|
||||
a:fetch D: an-n A: - F: -
|
||||
a:filter D: aq-b A: - F: -
|
||||
a:for-each D: aq- A: - F: -
|
||||
a:from-string D: s-a A: - F: -
|
||||
a:index-of D: an-n A: - F: -
|
||||
a:left D: an-a A: - F: -
|
||||
a:length D: a-n A: - F: -
|
||||
a:make D: q-a A: - F: -
|
||||
a:map D: aq-b A: - F: -
|
||||
a:middle D: afl-a A: - F: -
|
||||
a:prepend D: aa-a A: - F: -
|
||||
a:reduce D: pnq-n A: - F: -
|
||||
a:reverse D: a-b A: - F: -
|
||||
a:right D: an-a A: - F: -
|
||||
a:store D: vna- A: - F: -
|
||||
a:th D: an-b A: - F: -
|
||||
a:to-string D: a-s A: - F: -
|
||||
again D: - A: - F: -
|
||||
allot D: n- A: - F: -
|
||||
and D: nm-o A: - F: -
|
||||
as{ D: -f A: - F: -
|
||||
banner D: - A: - F: -
|
||||
bi D: xqq-? A: - F: -
|
||||
bi* D: xyqq-? A: - F: -
|
||||
bi@ D: xyq-? A: - F: -
|
||||
buffer:add D: n- A: - F: -
|
||||
buffer:empty D: - A: - F: -
|
||||
buffer:end D: -a A: - F: -
|
||||
buffer:get D: -n A: - F: -
|
||||
buffer:preserve D: q- A: - F: -
|
||||
buffer:set D: a- A: - F: -
|
||||
buffer:size D: -n A: - F: -
|
||||
buffer:start D: -a A: - F: -
|
||||
bye D: - A: - F: -
|
||||
c:-consonant? D: c-f A: - F: -
|
||||
c:-digit? D: c-f A: - F: -
|
||||
c:-lowercase? D: c-f A: - F: -
|
||||
c:-uppercase? D: c-f A: - F: -
|
||||
c:-visible? D: c-f A: - F: -
|
||||
c:-vowel? D: c-f A: - F: -
|
||||
c:-whitespace? D: c-f A: - F: -
|
||||
c:consonant? D: c-f A: - F: -
|
||||
c:digit? D: c-f A: - F: -
|
||||
c:get D: -c A: - F: -
|
||||
c:letter? D: c-f A: - F: -
|
||||
c:lowercase? D: c-f A: - F: -
|
||||
c:put D: c- A: - F: -
|
||||
c:to-lower D: c-c A: - F: -
|
||||
c:to-number D: c-n A: - F: -
|
||||
c:to-string D: c-s A: - F: -
|
||||
c:to-upper D: c-c A: - F: -
|
||||
c:toggle-case D: c-c A: - F: -
|
||||
c:uppercase? D: c-f A: - F: -
|
||||
c:visible? D: c-f A: - F: -
|
||||
c:vowel? D: c-f A: - F: -
|
||||
c:whitespace? D: c-f A: - F: -
|
||||
call D: a- A: - F: -
|
||||
case D: nmq- || nmq-n A: - F: -
|
||||
choose D: fqq- A: - F: -
|
||||
class:data D: n- || n-n A: - F: -
|
||||
class:macro D: a- A: - F: -
|
||||
class:primitive D: a- A: - F: -
|
||||
class:word D: a- A: - F: -
|
||||
clear D: - A: - F: -
|
||||
clock:day D: -n A: - F: -
|
||||
clock:hour D: -n A: - F: -
|
||||
clock:minute D: -n A: - F: -
|
||||
clock:month D: -n A: - F: -
|
||||
clock:second D: -n A: - F: -
|
||||
clock:timestamp D: -n A: - F: -
|
||||
clock:utc:day D: -n A: - F: -
|
||||
clock:utc:hour D: -n A: - F: -
|
||||
clock:utc:minute D: -n A: - F: -
|
||||
clock:utc:month D: -n A: - F: -
|
||||
clock:utc:second D: -n A: - F: -
|
||||
clock:utc:year D: -n A: - F: -
|
||||
clock:year D: -n A: - F: -
|
||||
compile:call D: a- A: - F: -
|
||||
compile:jump D: a- A: - F: -
|
||||
compile:lit D: n- A: - F: -
|
||||
compile:ret D: - A: - F: -
|
||||
compiling? D: -f A: - F: -
|
||||
const D: ns- A: - F: -
|
||||
copy D: sdl- A: - F: -
|
||||
curry D: nq-q A: - F: -
|
||||
d D: n- A: - F: -
|
||||
d:add-header D: saa- A: - F: -
|
||||
d:class D: d-a A: - F: -
|
||||
d:create D: s- A: - F: -
|
||||
d:for-each D: q- A: - F: -
|
||||
d:last D: -d A: - F: -
|
||||
d:last<class> D: -a A: - F: -
|
||||
d:last<name> D: -s A: - F: -
|
||||
d:last<xt> D: -a A: - F: -
|
||||
d:link D: d-a A: - F: -
|
||||
d:lookup D: s-d A: - F: -
|
||||
d:lookup-xt D: a-d A: - F: -
|
||||
d:name D: d-s A: - F: -
|
||||
d:words D: - A: - F: -
|
||||
d:words-beginning-with D: s- A: - F: -
|
||||
d:words-with D: s- A: - F: -
|
||||
d:xt D: d-a A: - F: -
|
||||
data D: - A: - F: -
|
||||
depth D: -n A: - F: -
|
||||
dip D: nq-n A: - F: -
|
||||
does D: q- A: - F: -
|
||||
drop D: n- A: - F: -
|
||||
drop-pair D: nn- A: - F: -
|
||||
dump-stack D: - A: - F: -
|
||||
dup D: n-nn A: - F: -
|
||||
dup-pair D: nm-nmnm A: - F: -
|
||||
e:-INF D: -e A: - F: -
|
||||
e:-inf? D: e-f A: - F: -
|
||||
e:INF D: -e A: - F: -
|
||||
e:MAX D: -e A: - F: -
|
||||
e:MIN D: -e A: - F: -
|
||||
e:NAN D: -e A: - F: -
|
||||
e:clip D: e-E A: - F: -
|
||||
e:inf? D: e-f A: - F: -
|
||||
e:max? D: e-f A: - F: -
|
||||
e:min? D: e-f A: - F: -
|
||||
e:n? D: e-f A: - F: -
|
||||
e:nan? D: e-f A: - F: -
|
||||
e:put D: e- A: - F: -
|
||||
e:to-f D: e- A: - F: -n
|
||||
e:zero? D: e-f A: - F: -
|
||||
eq? D: nn-f A: - F: -
|
||||
err:notfound D: - A: - F: -
|
||||
f:* D: - A: - F: FF-F
|
||||
f:+ D: - A: - F: FF-F
|
||||
f:- D: - A: - F: FF-F
|
||||
f:-INF D: - A: - F: -n
|
||||
f:-eq? D: -f A: - F: FF-
|
||||
f:-inf? D: -f A: - F: F-
|
||||
f:/ D: - A: - F: FF-F
|
||||
f:E D: - A: - F: -F
|
||||
f:E1 D: - A: - F: -f
|
||||
f:INF D: - A: - F: -n
|
||||
f:NAN D: - A: - F: -n
|
||||
f:PI D: - A: - F: -F
|
||||
f:abs D: - A: - F: F-F
|
||||
f:acos D: - A: - F: F-F
|
||||
f:adepth D: -n A: - F: -
|
||||
f:asin D: - A: - F: F-F
|
||||
f:atan D: - A: - F: F-F
|
||||
f:between? D: -f A: - F: nlu-
|
||||
f:case D: q- A: - F: nm-n
|
||||
f:ceiling D: - A: - F: F-F
|
||||
f:cos D: - A: - F: F-F
|
||||
f:dec D: - A: - F: n-m
|
||||
f:depth D: -n A: - F: -
|
||||
f:drop D: - A: - F: F-
|
||||
f:drop-pair D: - A: - F: FF-
|
||||
f:dump-astack D: - A: - F: -
|
||||
f:dump-stack D: - A: - F: -
|
||||
f:dup D: - A: - F: F-FF
|
||||
f:dup-pair D: - A: - F: nm-nmnm
|
||||
f:eq? D: -f A: - F: FF-
|
||||
f:fetch D: a- A: - F: -n
|
||||
f:floor D: - A: - F: F-F
|
||||
f:gt? D: -f A: - F: FF-
|
||||
f:inc D: - A: - F: n-m
|
||||
f:inf? D: -f A: - F: F-
|
||||
f:limit D: - A: - F: nlu-m
|
||||
f:log D: - A: - F: FF-F
|
||||
f:lt? D: -f A: - F: FF-
|
||||
f:max D: - A: - F: mn-o
|
||||
f:min D: - A: - F: mn-o
|
||||
f:nan? D: -f A: - F: F-
|
||||
f:negate D: - A: - F: F-F
|
||||
f:negative? D: -f A: - F: F-
|
||||
f:nip D: - A: - F: NM-M
|
||||
f:over D: - A: - F: FG-FGF
|
||||
f:pop D: - A: - F: -F
|
||||
f:positive? D: -f A: - F: F-
|
||||
f:power D: - A: - F: FF-F
|
||||
f:push D: - A: - F: F-
|
||||
f:put D: - A: - F: F-
|
||||
f:rot D: - A: - F: abc-bca
|
||||
f:round D: - A: - F: f-f
|
||||
f:sign D: -n A: - F: F-
|
||||
f:signed-sqrt D: - A: - F: F-F
|
||||
f:signed-square D: - A: - F: f-f
|
||||
f:sin D: - A: - F: F-F
|
||||
f:sqrt D: - A: - F: F-F
|
||||
f:square D: - A: - F: f-f
|
||||
f:store D: a- A: - F: n-
|
||||
f:swap D: - A: - F: FG-GF
|
||||
f:tan D: - A: - F: F-F
|
||||
f:to-e D: -e A: - F: n-
|
||||
f:to-number D: -n A: - F: F-
|
||||
f:to-string D: -s A: - F: F-
|
||||
f:tuck D: - A: - F: FG-GFG
|
||||
fetch D: a-n A: - F: -
|
||||
fetch-next D: a-an A: - F: -
|
||||
file:A D: -n A: - F: -
|
||||
file:R D: -n A: - F: -
|
||||
file:R+ D: -n A: - F: -
|
||||
file:W D: -n A: - F: -
|
||||
file:close D: h- A: - F: -
|
||||
file:delete D: s- A: - F: -
|
||||
file:exists? D: s-f A: - F: -
|
||||
file:flush D: h- A: - F: -
|
||||
file:for-each-line D: sq- A: - F: -
|
||||
file:open D: sm-h A: - F: -
|
||||
file:open<for-append> D: s-nn A: - F: -
|
||||
file:open<for-reading> D: s-nn A: - F: -
|
||||
file:open<for-writing> D: s-n A: - F: -
|
||||
file:read D: h-c A: - F: -
|
||||
file:read-line D: f-s A: - F: -
|
||||
file:seek D: nh- A: - F: -
|
||||
file:size D: h-n A: - F: -
|
||||
file:slurp D: as- A: - F: -
|
||||
file:spew D: ss- A: - F: -
|
||||
file:tell D: h-n A: - F: -
|
||||
file:write D: ch- A: - F: -
|
||||
gopher:get D: asns-n A: - F: -
|
||||
gt? D: nn-f A: - F: -
|
||||
gteq? D: nn-f A: - F: -
|
||||
here D: -a A: - F: -
|
||||
hook D: - A: - F: -
|
||||
i D: s- A: - F: -
|
||||
if D: fq- A: - F: -
|
||||
if; D: fq- A: - F: -
|
||||
image:save D: s- A: - F: -
|
||||
immediate D: - A: - F: -
|
||||
include D: s- A: - F: -
|
||||
interpret D: s- A: - F: -
|
||||
io:enumerate D: -n A: - F: -
|
||||
io:file-operation D: ...n- A: - F: -
|
||||
io:float-operation D: ...n- A: - F: -
|
||||
io:invoke D: n- A: - F: -
|
||||
io:query D: n-mN A: - F: -
|
||||
io:scan-for D: n-m A: - F: -
|
||||
io:unix-syscall D: ...n- A: - F: -
|
||||
listen D: - A: - F: -
|
||||
lt? D: nn-f A: - F: -
|
||||
lteq? D: nn-f A: - F: -
|
||||
mod D: nm-o A: - F: -
|
||||
n:-zero? D: n-f A: - F: -
|
||||
n:MAX D: -n A: - F: -
|
||||
n:MIN D: -n A: - F: -
|
||||
n:abs D: n-n A: - F: -
|
||||
n:between? D: nlu-f A: - F: -
|
||||
n:dec D: n-m A: - F: -
|
||||
n:even? D: n-f A: - F: -
|
||||
n:inc D: n-m A: - F: -
|
||||
n:limit D: nlu-m A: - F: -
|
||||
n:max D: mn-o A: - F: -
|
||||
n:min D: mn-o A: - F: -
|
||||
n:negate D: n-n A: - F: -
|
||||
n:negative? D: n-f A: - F: -
|
||||
n:odd? D: n-f A: - F: -
|
||||
n:positive? D: n-f A: - F: -
|
||||
n:pow D: bp-n A: - F: -
|
||||
n:put D: n- A: - F: -
|
||||
n:random D: -n A: - F: -
|
||||
n:sqrt D: n-m A: - F: -
|
||||
n:square D: n-m A: - F: -
|
||||
n:strictly-positive? D: n-f A: - F: -
|
||||
n:to-float D: n- A: - F: -F
|
||||
n:to-string D: n-s A: - F: -
|
||||
n:zero? D: n-f A: - F: -
|
||||
nip D: nm-m A: - F: -
|
||||
nl D: - A: - F: -
|
||||
not D: n-m A: - F: -
|
||||
or D: mn-o A: - F: -
|
||||
over D: nm-nmn A: - F: -
|
||||
parse-until D: q-s A: - F: -
|
||||
pb:get D: a- A: - F: -
|
||||
pb:length D: -n A: - F: -
|
||||
pb:set D: s- A: - F: -
|
||||
pop D: -n A: n- F: -
|
||||
prefix:! D: ns- A: - F: -
|
||||
prefix:" D: s-s A: - F: -
|
||||
prefix:# D: s-n A: - F: -
|
||||
prefix:$ D: s-c A: - F: -
|
||||
prefix:& D: s-a A: - F: -
|
||||
prefix:' D: s-s A: - F: -
|
||||
prefix:( D: s- A: - F: -
|
||||
prefix:. D: s- A: - F: -F
|
||||
prefix:: D: s- A: - F: -
|
||||
prefix:@ D: s-n A: - F: -
|
||||
prefix:` D: s- A: - F: -
|
||||
prefix:| D: s- A: - F: -
|
||||
primitive D: - A: - F: -
|
||||
push D: n- A: -n F: -
|
||||
r D: s- A: - F: -
|
||||
random:mersenne D: -n A: - F: -
|
||||
random:mersenne:set-seed D: n- A: - F: -
|
||||
random:xoroshiro128** D: -n A: - F: -
|
||||
random:xoroshiro128**:jump D: - A: - F: -
|
||||
random:xoroshiro128**:set-seed D: n- A: - F: -
|
||||
random:xoroshiro128**:test-seed D: nnnn- A: - F: -
|
||||
reclass D: a- A: - F: -
|
||||
reorder D: ...ss-? A: - F: -
|
||||
repeat D: - A: - F: -
|
||||
reset D: ...- A: - F: -
|
||||
rot D: abc-bca A: - F: -
|
||||
s, D: s- A: - F: -
|
||||
s:ASCII-LETTERS D: -s A: - F: -
|
||||
s:ASCII-LOWERCASE D: -s A: - F: -
|
||||
s:ASCII-UPPERCASE D: -s A: - F: -
|
||||
s:DIGITS D: -s A: - F: -
|
||||
s:PUNCTUATION D: -s A: - F: -
|
||||
s:WHITESPACE D: -s A: - F: -
|
||||
s:append D: ss-s A: - F: -
|
||||
s:begins-with? D: ss-f A: - F: -
|
||||
s:case D: sSq- || sSq-s A: - F: -
|
||||
s:chop D: s-s A: - F: -
|
||||
s:const D: ss- A: - F: -
|
||||
s:contains-char? D: sc-f A: - F: -
|
||||
s:contains-string? D: ss-f A: - F: -
|
||||
s:copy D: sa- A: - F: -
|
||||
s:empty D: -s A: - F: -
|
||||
s:ends-with? D: ss-f A: - F: -
|
||||
s:eq? D: ss-f A: - F: -
|
||||
s:evaluate D: s-? A: - F: -
|
||||
s:filter D: sq-s A: - F: -
|
||||
s:for-each D: sq- A: - F: -
|
||||
s:format D: ...s-s A: - F: -
|
||||
s:get D: -s A: - F: -
|
||||
s:hash D: s-n A: - F: -
|
||||
s:index-of D: sc-n A: - F: -
|
||||
s:index-of-string D: ss-n A: - F: -
|
||||
s:keep D: s-s A: - F: -
|
||||
s:left D: sn-s A: - F: -
|
||||
s:length D: s-n A: - F: -
|
||||
s:map D: sq-s A: - F: -
|
||||
s:prepend D: ss-s A: - F: -
|
||||
s:put D: s- A: - F: -
|
||||
s:replace D: sss-s A: - F: -
|
||||
s:replace-all D: sss-s A: - F: -
|
||||
s:reverse D: s-s A: - F: -
|
||||
s:right D: sn-s A: - F: -
|
||||
s:skip D: - A: - F: -
|
||||
s:split D: sc-ss A: - F: -
|
||||
s:split-on-string D: ss-ss A: - F: -
|
||||
s:substr D: sfl-s A: - F: -
|
||||
s:temp D: s-s A: - F: -
|
||||
s:to-float D: s- A: - F: -F
|
||||
s:to-lower D: s-s A: - F: -
|
||||
s:to-number D: s-n A: - F: -
|
||||
s:to-upper D: s-s A: - F: -
|
||||
s:tokenize D: sc-a A: - F: -
|
||||
s:tokenize-on-string D: ss-a A: - F: -
|
||||
s:trim D: s-s A: - F: -
|
||||
s:trim-left D: s-s A: - F: -
|
||||
s:trim-right D: s-s A: - F: -
|
||||
set-hook D: aa- A: - F: -
|
||||
shift D: mn-o A: - F: -
|
||||
sip D: nq-n A: - F: -
|
||||
socket:accept D: n-nn A: - F: -
|
||||
socket:bind D: sn-nn A: - F: -
|
||||
socket:close D: n- A: - F: -
|
||||
socket:configure D: ss- A: - F: -
|
||||
socket:connect D: n-nn A: - F: -
|
||||
socket:create D: -n A: - F: -
|
||||
socket:gethostbyname D: as- A: - F: -
|
||||
socket:listen D: nn-nn A: - F: -
|
||||
socket:recv D: ann-nn A: - F: -
|
||||
socket:send D: sn-nn A: - F: -
|
||||
sp D: - A: - F: -
|
||||
store D: na- A: - F: -
|
||||
store-next D: na-a A: - F: -
|
||||
swap D: nm-mn A: - F: -
|
||||
sys:argc D: -n A: - F: -
|
||||
sys:argv D: n-s A: - F: -
|
||||
sys:name D: -s A: - F: -
|
||||
tab D: - A: - F: -
|
||||
times D: nq- A: - F: -
|
||||
times<with-index> D: nq- A: - F: -
|
||||
tri D: xqqq-? A: - F: -
|
||||
tri* D: xyzqqq-? A: - F: -
|
||||
tri@ D: xyzq-? A: - F: -
|
||||
tuck D: nm-mnm A: - F: -
|
||||
unhook D: a- A: - F: -
|
||||
unix:chdir D: s- A: - F: -
|
||||
unix:count-files-in-cwd D: -n A: - F: -
|
||||
unix:exec0 D: s- A: - F: -
|
||||
unix:exec1 D: ss- A: - F: -
|
||||
unix:exec2 D: sss- A: - F: -
|
||||
unix:exec3 D: ssss- A: - F: -
|
||||
unix:exit D: n- A: - F: -
|
||||
unix:for-each-file D: q- A: - F: -
|
||||
unix:fork D: -n A: - F: -
|
||||
unix:get-cwd D: -s A: - F: -
|
||||
unix:getenv D: sa- A: - F: -
|
||||
unix:getpid D: -n A: - F: -
|
||||
unix:io:n:put D: n- A: - F: -
|
||||
unix:io:s:put D: s- A: - F: -
|
||||
unix:kill D: nn- A: - F: -
|
||||
unix:pclose D: n- A: - F: -
|
||||
unix:popen D: sn-n A: - F: -
|
||||
unix:putenv D: s- A: - F: -
|
||||
unix:sleep D: n- A: - F: -
|
||||
unix:slurp-pipe D: as-n A: - F: -
|
||||
unix:system D: s- A: - F: -
|
||||
unix:wait D: -n A: - F: -
|
||||
unix:write D: sh- A: - F: -
|
||||
until D: q- A: - F: -
|
||||
v:dec D: a- A: - F: -
|
||||
v:dec-by D: na- A: - F: -
|
||||
v:inc D: a- A: - F: -
|
||||
v:inc-by D: na- A: - F: -
|
||||
v:limit D: alu- A: - F: -
|
||||
v:off D: a- A: - F: -
|
||||
v:on D: a- A: - F: -
|
||||
v:preserve D: aq- A: - F: -
|
||||
v:update D: aq- A: - F: -
|
||||
var D: s- A: - F: -
|
||||
var<n> D: ns- A: - F: -
|
||||
while D: q- A: - F: -
|
||||
xor D: mn-o A: - F: -
|
||||
{ D: - A: - F: -
|
||||
{{ D: - A: - F: -
|
||||
} D: -a A: - F: -
|
||||
}as D: f- A: - F: -
|
||||
}} D: - A: - F: -
|
||||
" D: -s A: - F: -
|
||||
$ D: -c A: - F: -
|
||||
' D: -s A: - F: -
|
||||
( D: - A: - F: -
|
||||
) D: - A: - F: -
|
||||
* D: nn-n A: - F: -
|
||||
+ D: nn-n A: - F: -
|
||||
, D: n- A: - F: -
|
||||
- D: nn-n A: - F: -
|
||||
---reveal--- D: - A: - F: -
|
||||
-eq? D: nn-f A: - F: -
|
||||
-if D: fq- A: - F: -
|
||||
-if; D: fq- A: - F: -
|
||||
/ D: nm-q A: - F: -
|
||||
/mod D: nm-rq A: - F: -
|
||||
0; D: n-n || n- A: - F: -
|
||||
; D: - A: - F: -
|
||||
?dup D: n-nn || n-n A: - F: -
|
||||
ASCII:ACK D: -n A: - F: -
|
||||
ASCII:BEL D: -n A: - F: -
|
||||
ASCII:BS D: -n A: - F: -
|
||||
ASCII:CAN D: -n A: - F: -
|
||||
ASCII:CR D: -n A: - F: -
|
||||
ASCII:DC1 D: -n A: - F: -
|
||||
ASCII:DC2 D: -n A: - F: -
|
||||
ASCII:DC3 D: -n A: - F: -
|
||||
ASCII:DC4 D: -n A: - F: -
|
||||
ASCII:DEL D: -n A: - F: -
|
||||
ASCII:DLE D: -n A: - F: -
|
||||
ASCII:EM D: -n A: - F: -
|
||||
ASCII:ENQ D: -n A: - F: -
|
||||
ASCII:EOT D: -n A: - F: -
|
||||
ASCII:ESC D: -n A: - F: -
|
||||
ASCII:ETB D: -n A: - F: -
|
||||
ASCII:ETX D: -n A: - F: -
|
||||
ASCII:FF D: -n A: - F: -
|
||||
ASCII:FS D: -n A: - F: -
|
||||
ASCII:GS D: -n A: - F: -
|
||||
ASCII:HT D: -n A: - F: -
|
||||
ASCII:LF D: -n A: - F: -
|
||||
ASCII:NAK D: -n A: - F: -
|
||||
ASCII:NUL D: -n A: - F: -
|
||||
ASCII:RS D: -n A: - F: -
|
||||
ASCII:SI D: -n A: - F: -
|
||||
ASCII:SO D: -n A: - F: -
|
||||
ASCII:SOH D: -n A: - F: -
|
||||
ASCII:SPACE D: -n A: - F: -
|
||||
ASCII:STX D: -n A: - F: -
|
||||
ASCII:SUB D: -n A: - F: -
|
||||
ASCII:SYN D: -n A: - F: -
|
||||
ASCII:US D: -n A: - F: -
|
||||
ASCII:VT D: -n A: - F: -
|
||||
Compiler D: -a A: - F: -
|
||||
Dictionary D: -a A: - F: -
|
||||
EOM D: -a A: - F: -
|
||||
FALSE D: -n A: - F: -
|
||||
FREE D: -n A: - F: -
|
||||
Heap D: -a A: - F: -
|
||||
I D: -n A: - F: -
|
||||
J D: -n A: - F: -
|
||||
K D: -n A: - F: -
|
||||
NoEcho D: -a A: - F: -
|
||||
RewriteUnderscores D: -a A: - F: -
|
||||
STRINGS D: -a A: - F: -
|
||||
ScopeList D: -a A: - F: -
|
||||
TIB D: -a A: - F: -
|
||||
TRUE D: -n A: - F: -
|
||||
TempStringMax D: -a A: - F: -
|
||||
TempStrings D: -a A: - F: -
|
||||
Version D: -a A: - F: -
|
||||
[ D: - A: - F: -
|
||||
] D: - A: - F: -
|
||||
a:-eq? D: aa-f A: - F: -
|
||||
a:append D: aa-a A: - F: -
|
||||
a:begins-with? D: aa-f A: - F: -
|
||||
a:chop D: a-a A: - F: -
|
||||
a:contains-string? D: sa-f A: - F: -
|
||||
a:contains? D: na-f A: - F: -
|
||||
a:copy D: aa- A: - F: -
|
||||
a:counted-results D: q-a A: - F: -
|
||||
a:dup D: a-b A: - F: -
|
||||
a:ends-with? D: aa-f A: - F: -
|
||||
a:eq? D: aa-f A: - F: -
|
||||
a:fetch D: an-n A: - F: -
|
||||
a:filter D: aq-b A: - F: -
|
||||
a:for-each D: aq- A: - F: -
|
||||
a:from-string D: s-a A: - F: -
|
||||
a:index-of D: an-n A: - F: -
|
||||
a:left D: an-a A: - F: -
|
||||
a:length D: a-n A: - F: -
|
||||
a:make D: q-a A: - F: -
|
||||
a:map D: aq-b A: - F: -
|
||||
a:middle D: afl-a A: - F: -
|
||||
a:prepend D: aa-a A: - F: -
|
||||
a:reduce D: pnq-n A: - F: -
|
||||
a:reverse D: a-b A: - F: -
|
||||
a:right D: an-a A: - F: -
|
||||
a:store D: vna- A: - F: -
|
||||
a:th D: an-b A: - F: -
|
||||
a:to-string D: a-s A: - F: -
|
||||
again D: - A: - F: -
|
||||
allot D: n- A: - F: -
|
||||
and D: nm-o A: - F: -
|
||||
as{ D: -f A: - F: -
|
||||
banner D: - A: - F: -
|
||||
bi D: xqq-? A: - F: -
|
||||
bi* D: xyqq-? A: - F: -
|
||||
bi@ D: xyq-? A: - F: -
|
||||
buffer:add D: n- A: - F: -
|
||||
buffer:empty D: - A: - F: -
|
||||
buffer:end D: -a A: - F: -
|
||||
buffer:get D: -n A: - F: -
|
||||
buffer:preserve D: q- A: - F: -
|
||||
buffer:set D: a- A: - F: -
|
||||
buffer:size D: -n A: - F: -
|
||||
buffer:start D: -a A: - F: -
|
||||
bye D: - A: - F: -
|
||||
c:-consonant? D: c-f A: - F: -
|
||||
c:-digit? D: c-f A: - F: -
|
||||
c:-lowercase? D: c-f A: - F: -
|
||||
c:-uppercase? D: c-f A: - F: -
|
||||
c:-visible? D: c-f A: - F: -
|
||||
c:-vowel? D: c-f A: - F: -
|
||||
c:-whitespace? D: c-f A: - F: -
|
||||
c:consonant? D: c-f A: - F: -
|
||||
c:digit? D: c-f A: - F: -
|
||||
c:get D: -c A: - F: -
|
||||
c:letter? D: c-f A: - F: -
|
||||
c:lowercase? D: c-f A: - F: -
|
||||
c:put D: c- A: - F: -
|
||||
c:to-lower D: c-c A: - F: -
|
||||
c:to-number D: c-n A: - F: -
|
||||
c:to-string D: c-s A: - F: -
|
||||
c:to-upper D: c-c A: - F: -
|
||||
c:toggle-case D: c-c A: - F: -
|
||||
c:uppercase? D: c-f A: - F: -
|
||||
c:visible? D: c-f A: - F: -
|
||||
c:vowel? D: c-f A: - F: -
|
||||
c:whitespace? D: c-f A: - F: -
|
||||
call D: a- A: - F: -
|
||||
case D: nmq- || nmq-n A: - F: -
|
||||
choose D: fqq- A: - F: -
|
||||
class:data D: n- || n-n A: - F: -
|
||||
class:macro D: a- A: - F: -
|
||||
class:primitive D: a- A: - F: -
|
||||
class:word D: a- A: - F: -
|
||||
clear D: - A: - F: -
|
||||
clock:day D: -n A: - F: -
|
||||
clock:hour D: -n A: - F: -
|
||||
clock:minute D: -n A: - F: -
|
||||
clock:month D: -n A: - F: -
|
||||
clock:second D: -n A: - F: -
|
||||
clock:timestamp D: -n A: - F: -
|
||||
clock:utc:day D: -n A: - F: -
|
||||
clock:utc:hour D: -n A: - F: -
|
||||
clock:utc:minute D: -n A: - F: -
|
||||
clock:utc:month D: -n A: - F: -
|
||||
clock:utc:second D: -n A: - F: -
|
||||
clock:utc:year D: -n A: - F: -
|
||||
clock:year D: -n A: - F: -
|
||||
compile:call D: a- A: - F: -
|
||||
compile:jump D: a- A: - F: -
|
||||
compile:lit D: n- A: - F: -
|
||||
compile:ret D: - A: - F: -
|
||||
compiling? D: -f A: - F: -
|
||||
const D: ns- A: - F: -
|
||||
copy D: sdl- A: - F: -
|
||||
curry D: nq-q A: - F: -
|
||||
d D: n- A: - F: -
|
||||
d:add-header D: saa- A: - F: -
|
||||
d:class D: d-a A: - F: -
|
||||
d:create D: s- A: - F: -
|
||||
d:for-each D: q- A: - F: -
|
||||
d:last D: -d A: - F: -
|
||||
d:last<class> D: -a A: - F: -
|
||||
d:last<name> D: -s A: - F: -
|
||||
d:last<xt> D: -a A: - F: -
|
||||
d:link D: d-a A: - F: -
|
||||
d:lookup D: s-d A: - F: -
|
||||
d:lookup-xt D: a-d A: - F: -
|
||||
d:name D: d-s A: - F: -
|
||||
d:words D: - A: - F: -
|
||||
d:words-beginning-with D: s- A: - F: -
|
||||
d:words-with D: s- A: - F: -
|
||||
d:xt D: d-a A: - F: -
|
||||
data D: - A: - F: -
|
||||
depth D: -n A: - F: -
|
||||
dip D: nq-n A: - F: -
|
||||
does D: q- A: - F: -
|
||||
drop D: n- A: - F: -
|
||||
drop-pair D: nn- A: - F: -
|
||||
dump-stack D: - A: - F: -
|
||||
dup D: n-nn A: - F: -
|
||||
dup-pair D: nm-nmnm A: - F: -
|
||||
e:-INF D: -e A: - F: -
|
||||
e:-inf? D: e-f A: - F: -
|
||||
e:INF D: -e A: - F: -
|
||||
e:MAX D: -e A: - F: -
|
||||
e:MIN D: -e A: - F: -
|
||||
e:NAN D: -e A: - F: -
|
||||
e:clip D: e-E A: - F: -
|
||||
e:inf? D: e-f A: - F: -
|
||||
e:max? D: e-f A: - F: -
|
||||
e:min? D: e-f A: - F: -
|
||||
e:n? D: e-f A: - F: -
|
||||
e:nan? D: e-f A: - F: -
|
||||
e:put D: e- A: - F: -
|
||||
e:to-f D: e- A: - F: -n
|
||||
e:zero? D: e-f A: - F: -
|
||||
eq? D: nn-f A: - F: -
|
||||
err:notfound D: - A: - F: -
|
||||
f:* D: - A: - F: FF-F
|
||||
f:+ D: - A: - F: FF-F
|
||||
f:- D: - A: - F: FF-F
|
||||
f:-INF D: - A: - F: -n
|
||||
f:-eq? D: -f A: - F: FF-
|
||||
f:-inf? D: -f A: - F: F-
|
||||
f:/ D: - A: - F: FF-F
|
||||
f:E D: - A: - F: -F
|
||||
f:E1 D: - A: - F: -f
|
||||
f:INF D: - A: - F: -n
|
||||
f:NAN D: - A: - F: -n
|
||||
f:PI D: - A: - F: -F
|
||||
f:abs D: - A: - F: F-F
|
||||
f:acos D: - A: - F: F-F
|
||||
f:adepth D: -n A: - F: -
|
||||
f:asin D: - A: - F: F-F
|
||||
f:atan D: - A: - F: F-F
|
||||
f:between? D: -f A: - F: nlu-
|
||||
f:case D: q- A: - F: nm-n
|
||||
f:ceiling D: - A: - F: F-F
|
||||
f:cos D: - A: - F: F-F
|
||||
f:dec D: - A: - F: n-m
|
||||
f:depth D: -n A: - F: -
|
||||
f:drop D: - A: - F: F-
|
||||
f:drop-pair D: - A: - F: FF-
|
||||
f:dump-astack D: - A: - F: -
|
||||
f:dump-stack D: - A: - F: -
|
||||
f:dup D: - A: - F: F-FF
|
||||
f:dup-pair D: - A: - F: nm-nmnm
|
||||
f:eq? D: -f A: - F: FF-
|
||||
f:fetch D: a- A: - F: -n
|
||||
f:floor D: - A: - F: F-F
|
||||
f:gt? D: -f A: - F: FF-
|
||||
f:inc D: - A: - F: n-m
|
||||
f:inf? D: -f A: - F: F-
|
||||
f:limit D: - A: - F: nlu-m
|
||||
f:log D: - A: - F: FF-F
|
||||
f:lt? D: -f A: - F: FF-
|
||||
f:max D: - A: - F: mn-o
|
||||
f:min D: - A: - F: mn-o
|
||||
f:nan? D: -f A: - F: F-
|
||||
f:negate D: - A: - F: F-F
|
||||
f:negative? D: -f A: - F: F-
|
||||
f:nip D: - A: - F: NM-M
|
||||
f:over D: - A: - F: FG-FGF
|
||||
f:pop D: - A: - F: -F
|
||||
f:positive? D: -f A: - F: F-
|
||||
f:power D: - A: - F: FF-F
|
||||
f:push D: - A: - F: F-
|
||||
f:put D: - A: - F: F-
|
||||
f:rot D: - A: - F: abc-bca
|
||||
f:round D: - A: - F: f-f
|
||||
f:sign D: -n A: - F: F-
|
||||
f:signed-sqrt D: - A: - F: F-F
|
||||
f:signed-square D: - A: - F: f-f
|
||||
f:sin D: - A: - F: F-F
|
||||
f:sqrt D: - A: - F: F-F
|
||||
f:square D: - A: - F: f-f
|
||||
f:store D: a- A: - F: n-
|
||||
f:swap D: - A: - F: FG-GF
|
||||
f:tan D: - A: - F: F-F
|
||||
f:to-e D: -e A: - F: n-
|
||||
f:to-number D: -n A: - F: F-
|
||||
f:to-string D: -s A: - F: F-
|
||||
f:tuck D: - A: - F: FG-GFG
|
||||
fetch D: a-n A: - F: -
|
||||
fetch-next D: a-an A: - F: -
|
||||
file:A D: -n A: - F: -
|
||||
file:R D: -n A: - F: -
|
||||
file:R+ D: -n A: - F: -
|
||||
file:W D: -n A: - F: -
|
||||
file:close D: h- A: - F: -
|
||||
file:delete D: s- A: - F: -
|
||||
file:exists? D: s-f A: - F: -
|
||||
file:flush D: h- A: - F: -
|
||||
file:for-each-line D: sq- A: - F: -
|
||||
file:open D: sm-h A: - F: -
|
||||
file:open<for-append> D: s-nn A: - F: -
|
||||
file:open<for-reading> D: s-nn A: - F: -
|
||||
file:open<for-writing> D: s-n A: - F: -
|
||||
file:read D: h-c A: - F: -
|
||||
file:read-line D: f-s A: - F: -
|
||||
file:seek D: nh- A: - F: -
|
||||
file:size D: h-n A: - F: -
|
||||
file:slurp D: as- A: - F: -
|
||||
file:spew D: ss- A: - F: -
|
||||
file:tell D: h-n A: - F: -
|
||||
file:write D: ch- A: - F: -
|
||||
gopher:get D: asns-n A: - F: -
|
||||
gt? D: nn-f A: - F: -
|
||||
gteq? D: nn-f A: - F: -
|
||||
here D: -a A: - F: -
|
||||
hook D: - A: - F: -
|
||||
i D: s- A: - F: -
|
||||
if D: fq- A: - F: -
|
||||
if; D: fq- A: - F: -
|
||||
image:save D: s- A: - F: -
|
||||
immediate D: - A: - F: -
|
||||
include D: s- A: - F: -
|
||||
interpret D: s- A: - F: -
|
||||
io:enumerate D: -n A: - F: -
|
||||
io:file-operation D: ...n- A: - F: -
|
||||
io:float-operation D: ...n- A: - F: -
|
||||
io:invoke D: n- A: - F: -
|
||||
io:query D: n-mN A: - F: -
|
||||
io:scan-for D: n-m A: - F: -
|
||||
io:unix-syscall D: ...n- A: - F: -
|
||||
listen D: - A: - F: -
|
||||
lt? D: nn-f A: - F: -
|
||||
lteq? D: nn-f A: - F: -
|
||||
mod D: nm-o A: - F: -
|
||||
n:-zero? D: n-f A: - F: -
|
||||
n:MAX D: -n A: - F: -
|
||||
n:MIN D: -n A: - F: -
|
||||
n:abs D: n-n A: - F: -
|
||||
n:between? D: nlu-f A: - F: -
|
||||
n:dec D: n-m A: - F: -
|
||||
n:even? D: n-f A: - F: -
|
||||
n:inc D: n-m A: - F: -
|
||||
n:limit D: nlu-m A: - F: -
|
||||
n:max D: mn-o A: - F: -
|
||||
n:min D: mn-o A: - F: -
|
||||
n:negate D: n-n A: - F: -
|
||||
n:negative? D: n-f A: - F: -
|
||||
n:odd? D: n-f A: - F: -
|
||||
n:positive? D: n-f A: - F: -
|
||||
n:pow D: bp-n A: - F: -
|
||||
n:put D: n- A: - F: -
|
||||
n:random D: -n A: - F: -
|
||||
n:sqrt D: n-m A: - F: -
|
||||
n:square D: n-m A: - F: -
|
||||
n:strictly-positive? D: n-f A: - F: -
|
||||
n:to-float D: n- A: - F: -F
|
||||
n:to-string D: n-s A: - F: -
|
||||
n:zero? D: n-f A: - F: -
|
||||
nip D: nm-m A: - F: -
|
||||
nl D: - A: - F: -
|
||||
not D: n-m A: - F: -
|
||||
or D: mn-o A: - F: -
|
||||
over D: nm-nmn A: - F: -
|
||||
parse-until D: q-s A: - F: -
|
||||
pb:get D: a- A: - F: -
|
||||
pb:length D: -n A: - F: -
|
||||
pb:set D: s- A: - F: -
|
||||
pop D: -n A: n- F: -
|
||||
prefix:! D: ns- A: - F: -
|
||||
prefix:" D: s-s A: - F: -
|
||||
prefix:# D: s-n A: - F: -
|
||||
prefix:$ D: s-c A: - F: -
|
||||
prefix:& D: s-a A: - F: -
|
||||
prefix:' D: s-s A: - F: -
|
||||
prefix:( D: s- A: - F: -
|
||||
prefix:. D: s- A: - F: -F
|
||||
prefix:: D: s- A: - F: -
|
||||
prefix:@ D: s-n A: - F: -
|
||||
prefix:` D: s- A: - F: -
|
||||
prefix:| D: s- A: - F: -
|
||||
primitive D: - A: - F: -
|
||||
push D: n- A: -n F: -
|
||||
r D: s- A: - F: -
|
||||
reclass D: a- A: - F: -
|
||||
reorder D: ...ss-? A: - F: -
|
||||
repeat D: - A: - F: -
|
||||
reset D: ...- A: - F: -
|
||||
rot D: abc-bca A: - F: -
|
||||
s, D: s- A: - F: -
|
||||
s:ASCII-LETTERS D: -s A: - F: -
|
||||
s:ASCII-LOWERCASE D: -s A: - F: -
|
||||
s:ASCII-UPPERCASE D: -s A: - F: -
|
||||
s:DIGITS D: -s A: - F: -
|
||||
s:PUNCTUATION D: -s A: - F: -
|
||||
s:WHITESPACE D: -s A: - F: -
|
||||
s:append D: ss-s A: - F: -
|
||||
s:begins-with? D: ss-f A: - F: -
|
||||
s:case D: sSq- || sSq-s A: - F: -
|
||||
s:chop D: s-s A: - F: -
|
||||
s:const D: ss- A: - F: -
|
||||
s:contains-char? D: sc-f A: - F: -
|
||||
s:contains-string? D: ss-f A: - F: -
|
||||
s:copy D: sa- A: - F: -
|
||||
s:empty D: -s A: - F: -
|
||||
s:ends-with? D: ss-f A: - F: -
|
||||
s:eq? D: ss-f A: - F: -
|
||||
s:evaluate D: s-? A: - F: -
|
||||
s:filter D: sq-s A: - F: -
|
||||
s:for-each D: sq- A: - F: -
|
||||
s:format D: ...s-s A: - F: -
|
||||
s:get D: -s A: - F: -
|
||||
s:hash D: s-n A: - F: -
|
||||
s:index-of D: sc-n A: - F: -
|
||||
s:index-of-string D: ss-n A: - F: -
|
||||
s:keep D: s-s A: - F: -
|
||||
s:left D: sn-s A: - F: -
|
||||
s:length D: s-n A: - F: -
|
||||
s:map D: sq-s A: - F: -
|
||||
s:prepend D: ss-s A: - F: -
|
||||
s:put D: s- A: - F: -
|
||||
s:replace D: sss-s A: - F: -
|
||||
s:replace-all D: sss-s A: - F: -
|
||||
s:reverse D: s-s A: - F: -
|
||||
s:right D: sn-s A: - F: -
|
||||
s:skip D: - A: - F: -
|
||||
s:split D: sc-ss A: - F: -
|
||||
s:split-on-string D: ss-ss A: - F: -
|
||||
s:substr D: sfl-s A: - F: -
|
||||
s:temp D: s-s A: - F: -
|
||||
s:to-float D: s- A: - F: -F
|
||||
s:to-lower D: s-s A: - F: -
|
||||
s:to-number D: s-n A: - F: -
|
||||
s:to-upper D: s-s A: - F: -
|
||||
s:tokenize D: sc-a A: - F: -
|
||||
s:tokenize-on-string D: ss-a A: - F: -
|
||||
s:trim D: s-s A: - F: -
|
||||
s:trim-left D: s-s A: - F: -
|
||||
s:trim-right D: s-s A: - F: -
|
||||
set-hook D: aa- A: - F: -
|
||||
shift D: mn-o A: - F: -
|
||||
sip D: nq-n A: - F: -
|
||||
socket:accept D: n-nn A: - F: -
|
||||
socket:bind D: sn-nn A: - F: -
|
||||
socket:close D: n- A: - F: -
|
||||
socket:configure D: ss- A: - F: -
|
||||
socket:connect D: n-nn A: - F: -
|
||||
socket:create D: -n A: - F: -
|
||||
socket:gethostbyname D: as- A: - F: -
|
||||
socket:listen D: nn-nn A: - F: -
|
||||
socket:recv D: ann-nn A: - F: -
|
||||
socket:send D: sn-nn A: - F: -
|
||||
sp D: - A: - F: -
|
||||
store D: na- A: - F: -
|
||||
store-next D: na-a A: - F: -
|
||||
swap D: nm-mn A: - F: -
|
||||
sys:argc D: -n A: - F: -
|
||||
sys:argv D: n-s A: - F: -
|
||||
sys:name D: -s A: - F: -
|
||||
tab D: - A: - F: -
|
||||
times D: nq- A: - F: -
|
||||
times<with-index> D: nq- A: - F: -
|
||||
tri D: xqqq-? A: - F: -
|
||||
tri* D: xyzqqq-? A: - F: -
|
||||
tri@ D: xyzq-? A: - F: -
|
||||
tuck D: nm-mnm A: - F: -
|
||||
unhook D: a- A: - F: -
|
||||
unix:chdir D: s- A: - F: -
|
||||
unix:count-files-in-cwd D: -n A: - F: -
|
||||
unix:exec0 D: s- A: - F: -
|
||||
unix:exec1 D: ss- A: - F: -
|
||||
unix:exec2 D: sss- A: - F: -
|
||||
unix:exec3 D: ssss- A: - F: -
|
||||
unix:exit D: n- A: - F: -
|
||||
unix:for-each-file D: q- A: - F: -
|
||||
unix:fork D: -n A: - F: -
|
||||
unix:get-cwd D: -s A: - F: -
|
||||
unix:getenv D: sa- A: - F: -
|
||||
unix:getpid D: -n A: - F: -
|
||||
unix:io:n:put D: n- A: - F: -
|
||||
unix:io:s:put D: s- A: - F: -
|
||||
unix:kill D: nn- A: - F: -
|
||||
unix:pclose D: n- A: - F: -
|
||||
unix:popen D: sn-n A: - F: -
|
||||
unix:putenv D: s- A: - F: -
|
||||
unix:sleep D: n- A: - F: -
|
||||
unix:slurp-pipe D: as-n A: - F: -
|
||||
unix:system D: s- A: - F: -
|
||||
unix:wait D: -n A: - F: -
|
||||
unix:write D: sh- A: - F: -
|
||||
until D: q- A: - F: -
|
||||
v:dec D: a- A: - F: -
|
||||
v:dec-by D: na- A: - F: -
|
||||
v:inc D: a- A: - F: -
|
||||
v:inc-by D: na- A: - F: -
|
||||
v:limit D: alu- A: - F: -
|
||||
v:off D: a- A: - F: -
|
||||
v:on D: a- A: - F: -
|
||||
v:preserve D: aq- A: - F: -
|
||||
v:update D: aq- A: - F: -
|
||||
var D: s- A: - F: -
|
||||
var<n> D: ns- A: - F: -
|
||||
while D: q- A: - F: -
|
||||
xor D: mn-o A: - F: -
|
||||
{ D: - A: - F: -
|
||||
{{ D: - A: - F: -
|
||||
} D: -a A: - F: -
|
||||
}as D: f- A: - F: -
|
||||
}} D: - A: - F: -
|
||||
|
|
|
|||
|
|
@ -2865,48 +2865,6 @@
|
|||
</div>
|
||||
<p>Lookup a reference by name and inline its pointer to the current assembly segment.</p>
|
||||
<table><tr><td><b>Class:</b> </td><td>class:word</td></tr><tr><td><b>Namespace:</b> </td><td>global</td></tr><tr><td><b>Interface Layer:</b> </td><td>all</td></tr></table><hr/>
|
||||
<h1>random:mersenne</h1>
|
||||
<div style='margin-left: 1em;'><p><b>Data:</b> -n<br>
|
||||
<b>Addr:</b> -<br>
|
||||
<b>Float:</b> -</p>
|
||||
</div>
|
||||
<p>Return a random number using a mersenne shifter</p>
|
||||
<table><tr><td><b>Class:</b> </td><td>class:word</td></tr><tr><td><b>Namespace:</b> </td><td>random</td></tr><tr><td><b>Interface Layer:</b> </td><td>rre</td></tr></table><hr/>
|
||||
<h1>random:mersenne:set-seed</h1>
|
||||
<div style='margin-left: 1em;'><p><b>Data:</b> n-<br>
|
||||
<b>Addr:</b> -<br>
|
||||
<b>Float:</b> -</p>
|
||||
</div>
|
||||
<p>Seed random:mersenne with the specified value</p>
|
||||
<table><tr><td><b>Class:</b> </td><td>class:word</td></tr><tr><td><b>Namespace:</b> </td><td>random</td></tr><tr><td><b>Interface Layer:</b> </td><td>rre</td></tr></table><hr/>
|
||||
<h1>random:xoroshiro128**</h1>
|
||||
<div style='margin-left: 1em;'><p><b>Data:</b> -n<br>
|
||||
<b>Addr:</b> -<br>
|
||||
<b>Float:</b> -</p>
|
||||
</div>
|
||||
<p>Return a random number using xoroshiro128**</p>
|
||||
<table><tr><td><b>Class:</b> </td><td>class:word</td></tr><tr><td><b>Namespace:</b> </td><td>random</td></tr><tr><td><b>Interface Layer:</b> </td><td>rre</td></tr></table><hr/>
|
||||
<h1>random:xoroshiro128**:jump</h1>
|
||||
<div style='margin-left: 1em;'><p><b>Data:</b> -<br>
|
||||
<b>Addr:</b> -<br>
|
||||
<b>Float:</b> -</p>
|
||||
</div>
|
||||
<p>Updates the internal xoroshiro128** state registers with the equivalent of 2^64 calls to random:xoroshiro128**.</p>
|
||||
<table><tr><td><b>Class:</b> </td><td>class:word</td></tr><tr><td><b>Namespace:</b> </td><td>random</td></tr><tr><td><b>Interface Layer:</b> </td><td>rre</td></tr></table><hr/>
|
||||
<h1>random:xoroshiro128**:set-seed</h1>
|
||||
<div style='margin-left: 1em;'><p><b>Data:</b> n-<br>
|
||||
<b>Addr:</b> -<br>
|
||||
<b>Float:</b> -</p>
|
||||
</div>
|
||||
<p>Seed random:xoroshiro128** with the specified value</p>
|
||||
<table><tr><td><b>Class:</b> </td><td>class:word</td></tr><tr><td><b>Namespace:</b> </td><td>random</td></tr><tr><td><b>Interface Layer:</b> </td><td>rre</td></tr></table><hr/>
|
||||
<h1>random:xoroshiro128**:test-seed</h1>
|
||||
<div style='margin-left: 1em;'><p><b>Data:</b> nnnn-<br>
|
||||
<b>Addr:</b> -<br>
|
||||
<b>Float:</b> -</p>
|
||||
</div>
|
||||
<p>Sets the internal xoroshiro128** state registers s0..s3 starting with TOS.</p>
|
||||
<table><tr><td><b>Class:</b> </td><td>class:word</td></tr><tr><td><b>Namespace:</b> </td><td>random</td></tr><tr><td><b>Interface Layer:</b> </td><td>rre</td></tr></table><hr/>
|
||||
<h1>reclass</h1>
|
||||
<div style='margin-left: 1em;'><p><b>Data:</b> a-<br>
|
||||
<b>Addr:</b> -<br>
|
||||
|
|
|
|||
|
|
@ -4390,72 +4390,6 @@ Lookup a reference by name and inline its pointer to the current assembly segmen
|
|||
Class: class:word | Namespace: global | Interface Layer: all
|
||||
------------------------------------------------------------------------
|
||||
|
||||
random:mersenne
|
||||
|
||||
Data: -n
|
||||
Addr: -
|
||||
Float: -
|
||||
|
||||
Return a random number using a mersenne shifter
|
||||
|
||||
Class: class:word | Namespace: random | Interface Layer: rre
|
||||
------------------------------------------------------------------------
|
||||
|
||||
random:mersenne:set-seed
|
||||
|
||||
Data: n-
|
||||
Addr: -
|
||||
Float: -
|
||||
|
||||
Seed random:mersenne with the specified value
|
||||
|
||||
Class: class:word | Namespace: random | Interface Layer: rre
|
||||
------------------------------------------------------------------------
|
||||
|
||||
random:xoroshiro128**
|
||||
|
||||
Data: -n
|
||||
Addr: -
|
||||
Float: -
|
||||
|
||||
Return a random number using xoroshiro128**
|
||||
|
||||
Class: class:word | Namespace: random | Interface Layer: rre
|
||||
------------------------------------------------------------------------
|
||||
|
||||
random:xoroshiro128**:jump
|
||||
|
||||
Data: -
|
||||
Addr: -
|
||||
Float: -
|
||||
|
||||
Updates the internal xoroshiro128** state registers with the equivalent of 2^64 calls to random:xoroshiro128**.
|
||||
|
||||
Class: class:word | Namespace: random | Interface Layer: rre
|
||||
------------------------------------------------------------------------
|
||||
|
||||
random:xoroshiro128**:set-seed
|
||||
|
||||
Data: n-
|
||||
Addr: -
|
||||
Float: -
|
||||
|
||||
Seed random:xoroshiro128** with the specified value
|
||||
|
||||
Class: class:word | Namespace: random | Interface Layer: rre
|
||||
------------------------------------------------------------------------
|
||||
|
||||
random:xoroshiro128**:test-seed
|
||||
|
||||
Data: nnnn-
|
||||
Addr: -
|
||||
Float: -
|
||||
|
||||
Sets the internal xoroshiro128** state registers s0..s3 starting with TOS.
|
||||
|
||||
Class: class:word | Namespace: random | Interface Layer: rre
|
||||
------------------------------------------------------------------------
|
||||
|
||||
reclass
|
||||
|
||||
Data: a-
|
||||
|
|
|
|||
154
example/rng.retro
Normal file
154
example/rng.retro
Normal file
|
|
@ -0,0 +1,154 @@
|
|||
## xoroshiro128**
|
||||
|
||||
XOR/rotate/shift/rotate PNRG (See http://xoshiro.di.unimi.it/)
|
||||
|
||||
|
||||
~~~
|
||||
{{
|
||||
'JUMP d:create #2271477771 , #4114797267 , #1872770499 , #2012404571 ,
|
||||
'k var 't var 's0 var 's1 var 's2 var 's3 var
|
||||
:reseed (n-) dup !s1 dup !s2 dup !s3 dup !k !t ;
|
||||
:rotl (x-) !k [ @k n:negate shift ] [ #32 @k - shift ] bi or ;
|
||||
:res** (-n) @s0 #5 * #7 rotl #9 * ;
|
||||
:next (-)
|
||||
@s1 dup #-9 shift push @s3 @s0 @s2
|
||||
as{
|
||||
'pudupoxo i
|
||||
'pupu.... i
|
||||
'pudupoxo i
|
||||
'swposwpo i
|
||||
'dupuxopu i
|
||||
'pudupoxo i
|
||||
'popopoxo i
|
||||
}as
|
||||
!s2 !s1 !s0 #11 rotl !s3 ;
|
||||
|
||||
:xor-er (nananana-nananana)
|
||||
as{
|
||||
'dupufexo i 'pu...... i
|
||||
'dupufexo i 'pu...... i
|
||||
'dupufexo i 'pu...... i
|
||||
'dupufexo i 'pu...... i
|
||||
'popopopo i 'popopopo i
|
||||
}as ;
|
||||
:jump? (nm-) [ JUMP + fetch ] dip #1 swap n:negate shift and ;
|
||||
:inner (n-n)
|
||||
#32 [ dup I jump? [ [ xor-er ] dip ] if next ] times<with-index> ;
|
||||
|
||||
---reveal---
|
||||
:random:xoroshiro128** (-n)
|
||||
next res** ;
|
||||
|
||||
:random:xoroshiro128**:jump (-)
|
||||
#0 &s3 #0 &s2 #0 &s1 #0 &s0
|
||||
#4 [ I inner drop ] times<with-index>
|
||||
as{ 'stststst i }as ;
|
||||
|
||||
:random:xoroshiro128**:set-seed (n-)
|
||||
reseed #100 [ next ] times ;
|
||||
|
||||
:random:xoroshiro128**:test-seed (nnnn-)
|
||||
!s0 !s1 !s2 !s3 ;
|
||||
}}
|
||||
~~~
|
||||
|
||||
## Mersenne Twister
|
||||
|
||||
This is adapted from Samuel A. Falvo II's implementation. The
|
||||
original commentary follows:
|
||||
|
||||
As taken from ttp://en.wikipedia.org/wiki/Mersenne_twister
|
||||
|
||||
I am aware of Wil Baden's sources, but I had difficulty
|
||||
getting it to compile under SwiftForth out of the box.
|
||||
|
||||
This module exposes the following API:
|
||||
|
||||
seeded ( uSeed -- )
|
||||
Seeds the random number generator with the provided 32-bit,
|
||||
unsigned value.
|
||||
|
||||
probability ( -- u )
|
||||
Returns a random value that falls in the range [0,
|
||||
$FFFFFFFF].
|
||||
|
||||
All other definitions are safe to shadow/redefine elsewhere.
|
||||
|
||||
Copyright (c) 2010, Samuel A. Falvo II
|
||||
All rights reserved.
|
||||
|
||||
Redistribution and use in source and binary forms, with or
|
||||
without modification, are permitted provided that the following
|
||||
conditions are met:
|
||||
|
||||
* Redistributions of source code must retain the above copyright
|
||||
notice, this list of conditions and the following disclaimer.
|
||||
|
||||
* Redistributions in binary form must reproduce the above
|
||||
copyright notice, this list of conditions and the following
|
||||
disclaimer in the documentation and/or other materials
|
||||
provided with the distribution.
|
||||
|
||||
* Neither the name of Samuel A. Falvo II, Falvo Technical
|
||||
Solutions, nor the names of its contributors may be used to
|
||||
endorse or promote products derived from this software
|
||||
without specific prior written permission.
|
||||
|
||||
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
|
||||
CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
||||
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
||||
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
||||
DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
|
||||
CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
|
||||
USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
|
||||
AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
|
||||
IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
|
||||
THE POSSIBILITY OF SUCH DAMAGE.
|
||||
|
||||
In adapting this, some concessions were made since RETRO only
|
||||
has signed 32-bit values.
|
||||
|
||||
random:mersenne:set-seed (n-)
|
||||
Seeds the random number generator with the provided 32-bit,
|
||||
unsigned value.
|
||||
|
||||
random:mersenne (-n)
|
||||
Returns a random value that falls in the range [0,
|
||||
n:MAX].
|
||||
|
||||
~~~
|
||||
{{
|
||||
'States d:create #625 allot
|
||||
'Index var
|
||||
|
||||
:reset (n-)
|
||||
&States over n:dec + dup fetch #30 shift swap fetch
|
||||
xor #1812433253 * over + n:MAX and swap &States + store ;
|
||||
|
||||
:randomized (-)
|
||||
#1 [ dup reset n:inc dup #624 gt? ] until drop ;
|
||||
|
||||
:y (n-y)
|
||||
dup n:inc #624 mod &States + fetch n:MAX and
|
||||
swap &States + fetch #-31 shift + ;
|
||||
|
||||
:altered (n-)
|
||||
dup y dup #1 and #1073741823 *
|
||||
[ #2 / over #397 + #624 mod &States + fetch xor ] dip
|
||||
xor swap &States + store ;
|
||||
|
||||
:scrambled (-)
|
||||
#0 [ dup altered n:inc dup #624 gt? ] until drop ;
|
||||
---reveal---
|
||||
:random:mersenne:set-seed (n-)
|
||||
!States #0 !Index randomized ;
|
||||
|
||||
:random:mersenne (-n)
|
||||
@Index n:zero? &scrambled if @Index &States + fetch
|
||||
dup #11 shift xor dup #-7 shift #1073741823 and xor dup #-15 shift
|
||||
#2011365376 and xor dup #18 shift xor @Index n:inc #624 mod !Index ;
|
||||
}}
|
||||
~~~
|
||||
|
|
@ -15,159 +15,3 @@ Return a random value from /dev/urandom
|
|||
random:byte + ;
|
||||
}}
|
||||
~~~
|
||||
|
||||
|
||||
## xoroshiro128**
|
||||
|
||||
XOR/rotate/shift/rotate PNRG (See http://xoshiro.di.unimi.it/)
|
||||
|
||||
|
||||
~~~
|
||||
{{
|
||||
'JUMP d:create #2271477771 , #4114797267 , #1872770499 , #2012404571 ,
|
||||
'k var 't var 's0 var 's1 var 's2 var 's3 var
|
||||
:reseed (n-) dup !s1 dup !s2 dup !s3 dup !k !t ;
|
||||
:rotl (x-) !k [ @k n:negate shift ] [ #32 @k - shift ] bi or ;
|
||||
:res** (-n) @s0 #5 * #7 rotl #9 * ;
|
||||
:next (-)
|
||||
@s1 dup #-9 shift push @s3 @s0 @s2
|
||||
as{
|
||||
'pudupoxo i
|
||||
'pupu.... i
|
||||
'pudupoxo i
|
||||
'swposwpo i
|
||||
'dupuxopu i
|
||||
'pudupoxo i
|
||||
'popopoxo i
|
||||
}as
|
||||
!s2 !s1 !s0 #11 rotl !s3 ;
|
||||
|
||||
:xor-er (nananana-nananana)
|
||||
as{
|
||||
'dupufexo i 'pu...... i
|
||||
'dupufexo i 'pu...... i
|
||||
'dupufexo i 'pu...... i
|
||||
'dupufexo i 'pu...... i
|
||||
'popopopo i 'popopopo i
|
||||
}as ;
|
||||
:jump? (nm-) [ JUMP + fetch ] dip #1 swap n:negate shift and ;
|
||||
:inner (n-n)
|
||||
#32 [ dup I jump? [ [ xor-er ] dip ] if next ] times<with-index> ;
|
||||
|
||||
---reveal---
|
||||
:random:xoroshiro128** (-n)
|
||||
next res** ;
|
||||
|
||||
:random:xoroshiro128**:jump (-)
|
||||
#0 &s3 #0 &s2 #0 &s1 #0 &s0
|
||||
#4 [ I inner drop ] times<with-index>
|
||||
as{ 'stststst i }as ;
|
||||
|
||||
:random:xoroshiro128**:set-seed (n-)
|
||||
reseed #100 [ next ] times ;
|
||||
|
||||
:random:xoroshiro128**:test-seed (nnnn-)
|
||||
!s0 !s1 !s2 !s3 ;
|
||||
}}
|
||||
~~~
|
||||
|
||||
## Mersenne Twister
|
||||
|
||||
This is adapted from Samuel A. Falvo II's implementation. The
|
||||
original commentary follows:
|
||||
|
||||
As taken from ttp://en.wikipedia.org/wiki/Mersenne_twister
|
||||
|
||||
I am aware of Wil Baden's sources, but I had difficulty
|
||||
getting it to compile under SwiftForth out of the box.
|
||||
|
||||
This module exposes the following API:
|
||||
|
||||
seeded ( uSeed -- )
|
||||
Seeds the random number generator with the provided 32-bit,
|
||||
unsigned value.
|
||||
|
||||
probability ( -- u )
|
||||
Returns a random value that falls in the range [0,
|
||||
$FFFFFFFF].
|
||||
|
||||
All other definitions are safe to shadow/redefine elsewhere.
|
||||
|
||||
Copyright (c) 2010, Samuel A. Falvo II
|
||||
All rights reserved.
|
||||
|
||||
Redistribution and use in source and binary forms, with or
|
||||
without modification, are permitted provided that the following
|
||||
conditions are met:
|
||||
|
||||
* Redistributions of source code must retain the above copyright
|
||||
notice, this list of conditions and the following disclaimer.
|
||||
|
||||
* Redistributions in binary form must reproduce the above
|
||||
copyright notice, this list of conditions and the following
|
||||
disclaimer in the documentation and/or other materials
|
||||
provided with the distribution.
|
||||
|
||||
* Neither the name of Samuel A. Falvo II, Falvo Technical
|
||||
Solutions, nor the names of its contributors may be used to
|
||||
endorse or promote products derived from this software
|
||||
without specific prior written permission.
|
||||
|
||||
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
|
||||
CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
||||
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
||||
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
||||
DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
|
||||
CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
|
||||
USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
|
||||
AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
|
||||
IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
|
||||
THE POSSIBILITY OF SUCH DAMAGE.
|
||||
|
||||
In adapting this, some concessions were made since RETRO only
|
||||
has signed 32-bit values.
|
||||
|
||||
random:mersenne:set-seed (n-)
|
||||
Seeds the random number generator with the provided 32-bit,
|
||||
unsigned value.
|
||||
|
||||
random:mersenne (-n)
|
||||
Returns a random value that falls in the range [0,
|
||||
n:MAX].
|
||||
|
||||
~~~
|
||||
{{
|
||||
'States d:create #625 allot
|
||||
'Index var
|
||||
|
||||
:reset (n-)
|
||||
&States over n:dec + dup fetch #30 shift swap fetch
|
||||
xor #1812433253 * over + n:MAX and swap &States + store ;
|
||||
|
||||
:randomized (-)
|
||||
#1 [ dup reset n:inc dup #624 gt? ] until drop ;
|
||||
|
||||
:y (n-y)
|
||||
dup n:inc #624 mod &States + fetch n:MAX and
|
||||
swap &States + fetch #-31 shift + ;
|
||||
|
||||
:altered (n-)
|
||||
dup y dup #1 and #1073741823 *
|
||||
[ #2 / over #397 + #624 mod &States + fetch xor ] dip
|
||||
xor swap &States + store ;
|
||||
|
||||
:scrambled (-)
|
||||
#0 [ dup altered n:inc dup #624 gt? ] until drop ;
|
||||
---reveal---
|
||||
:random:mersenne:set-seed (n-)
|
||||
!States #0 !Index randomized ;
|
||||
|
||||
:random:mersenne (-n)
|
||||
@Index n:zero? &scrambled if @Index &States + fetch
|
||||
dup #11 shift xor dup #-7 shift #1073741823 and xor dup #-15 shift
|
||||
#2011365376 and xor dup #18 shift xor @Index n:inc #624 mod !Index ;
|
||||
}}
|
||||
~~~
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
#ifndef CELL
|
||||
#define CELL int32_t
|
||||
#endif
|
||||
CELL ngaImageCells = 17228;
|
||||
CELL ngaImage[] = { 1793,17047,17185,17227,201909,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
|
||||
CELL ngaImageCells = 15920;
|
||||
CELL ngaImage[] = { 1793,15666,15897,15919,201909,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
|
||||
7,10,8,10,9,10,10,10,11,10,12,10,13,10,14,10,15,10,16,10,
|
||||
17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,25,10,68223234,1,
|
||||
2575,85000450,1,656912,140,139,268505089,64,63,135205121,64,10,101384453,0,9,10,2049,57,25,459011,
|
||||
|
|
@ -11,7 +11,7 @@ CELL ngaImage[] = { 1793,17047,17185,17227,201909,0,10,1,10,2,10,3,10,4,10,5,10,
|
|||
17565186,85,524545,89,65,167838467,-1,134287105,3,60,659457,3,459023,106,2049,57,25,2049,106,1793,
|
||||
113,2049,113,117506307,0,106,0,524545,25,111,168820993,0,125,1642241,125,134283523,7,111,1793,106,
|
||||
7,524545,2049,106,1793,106,16846593,125,140,139,1793,65,16846593,125,111,139,1793,65,7,10,
|
||||
659713,1,659713,2,659713,3,1793,10467,2,524559,106,2049,106,2049,106,2049,120,168820998,2,16144,
|
||||
659713,1,659713,2,659713,3,1793,10467,2,524559,106,2049,106,2049,106,2049,120,168820998,2,14763,
|
||||
1025,167841793,178,5,17826049,0,178,2,15,25,524546,163,134287105,179,94,2305,180,459023,188,134287361,
|
||||
179,183,659201,178,2049,57,25,84152833,48,286458116,10,459014,203,184618754,45,25,16974851,-1,168886532,1,
|
||||
134284289,1,212,134284289,0,203,660227,32,0,0,112,114,101,102,105,120,58,105,0,285278479,
|
||||
|
|
@ -55,7 +55,7 @@ CELL ngaImage[] = { 1793,17047,17185,17227,201909,0,10,1,10,2,10,3,10,4,10,5,10,
|
|||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,105,109,97,103,101,58,115,97,118,101,0,103,101,0,
|
||||
49,57,48,55,46,114,101,116,114,111,0,0,110,0,78,68,0,100,0,0,
|
||||
108,0,48,55,46,114,101,116,114,111,0,0,110,0,78,68,0,125,126,0,
|
||||
72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
|
|
@ -162,7 +162,7 @@ CELL ngaImage[] = { 1793,17047,17185,17227,201909,0,10,1,10,2,10,3,10,4,10,5,10,
|
|||
3122,8,10,1,3120,2049,2076,10,1,3118,2049,2076,4,16,10,3099,3146,145,118,58,
|
||||
117,112,100,97,116,101,0,4,1793,3153,15,4,8,10,1,3149,2049,2088,16,10,
|
||||
3134,3167,145,99,111,112,121,0,1793,3176,1,57,2049,2076,2049,60,10,1,3169,2049,
|
||||
2256,3,3,10,3159,3196,145,83,99,111,112,101,76,105,115,116,0,17091,17143,10,
|
||||
2256,3,3,10,3159,3196,145,83,99,111,112,101,76,105,115,116,0,15710,15762,10,
|
||||
3183,3205,145,123,123,0,2049,1570,2,1,3196,2049,60,16,10,3199,3230,145,45,45,
|
||||
45,114,101,118,101,97,108,45,45,45,0,2049,1570,1,3196,2049,2914,16,10,3214,
|
||||
3244,145,125,125,0,1,3196,2049,57,4,15,11,1793,3258,3841,3196,4097,2,10,1,
|
||||
|
|
@ -182,7 +182,7 @@ CELL ngaImage[] = { 1793,17047,17185,17227,201909,0,10,1,10,2,10,3,10,4,10,5,10,
|
|||
2076,4097,3312,10,3480,3538,132,84,101,109,112,83,116,114,105,110,103,115,0,32,
|
||||
3523,3556,132,84,101,109,112,83,116,114,105,110,103,77,97,120,0,512,3539,3568,
|
||||
145,83,84,82,73,78,71,83,0,2049,1543,3841,3538,3841,3556,19,18,10,3557,3588,
|
||||
132,67,117,114,114,101,110,116,0,27,10,3577,3603,145,115,58,112,111,105,110,
|
||||
132,67,117,114,114,101,110,116,0,5,10,3577,3603,145,115,58,112,111,105,110,
|
||||
116,101,114,0,3841,3588,3841,3556,19,2049,3568,17,10,3590,3622,145,115,58,110,101,
|
||||
120,116,0,1,3588,2049,3015,3841,3588,3841,3538,11,1793,3638,1,0,4097,3588,10,1,
|
||||
3633,9,10,3557,3652,145,115,58,116,101,109,112,0,2,2049,80,2049,2914,2049,3603,
|
||||
|
|
@ -446,9 +446,9 @@ CELL ngaImage[] = { 1793,17047,17185,17227,201909,0,10,1,10,2,10,3,10,4,10,5,10,
|
|||
110,100,45,101,110,100,0,2,2049,80,1,8594,2049,80,18,67502597,17,10,8794,8826,
|
||||
145,99,108,101,97,110,0,2049,8806,1,0,4,16,10,8502,8850,145,115,58,114,
|
||||
101,112,108,97,99,101,45,97,108,108,0,1,3,1793,8865,2049,8733,2049,8750,2049,
|
||||
8782,2049,8826,2049,3652,10,1,8854,2049,3113,10,8833,8876,132,73,48,0,115,116,0,
|
||||
8870,8885,132,73,49,0,115,116,0,8879,8894,132,73,50,0,115,116,0,8888,8903,
|
||||
132,73,51,0,115,116,0,8897,8916,145,111,112,99,111,100,101,0,2049,3697,46,
|
||||
8782,2049,8826,2049,3652,10,1,8854,2049,3113,10,8833,8876,132,73,48,0,105,105,0,
|
||||
8870,8885,132,73,49,0,46,46,0,8879,8894,132,73,50,0,46,46,0,8888,8903,
|
||||
132,73,51,0,46,46,0,8897,8916,145,111,112,99,111,100,101,0,2049,3697,46,
|
||||
46,0,1,8918,1793,8928,1,0,10,1,8925,2049,2330,2049,3697,108,105,0,1,8934,
|
||||
1793,8944,1,1,10,1,8941,2049,2330,2049,3697,100,117,0,1,8950,1793,8960,1,2,
|
||||
10,1,8957,2049,2330,2049,3697,100,114,0,1,8966,1793,8976,1,3,10,1,8973,2049,
|
||||
|
|
@ -723,145 +723,80 @@ CELL ngaImage[] = { 1793,17047,17185,17227,201909,0,10,1,10,2,10,3,10,4,10,5,10,
|
|||
121,116,101,0,2049,3697,47,100,101,118,47,117,114,97,110,100,111,109,0,1,
|
||||
14345,1,0,2049,10669,1,10706,2049,2088,2049,10688,10,14303,14383,145,110,58,114,97,110,
|
||||
100,111,109,0,2049,14343,1,-8,24,2049,14343,17,1,-8,24,2049,14343,17,1,8,
|
||||
24,2049,14343,17,10,14371,14412,132,74,85,77,80,0,-2023489525,-180170029,1872770499,2012404571,14404,14421,132,
|
||||
107,0,0,14416,14427,132,116,0,0,14422,14434,132,115,48,0,0,14428,14441,132,115,
|
||||
49,0,0,14435,14448,132,115,50,0,0,14442,14455,132,115,51,0,0,14449,14466,145,
|
||||
114,101,115,101,101,100,0,2,4097,14441,2,4097,14448,2,4097,14455,2,4097,14421,4097,
|
||||
14427,10,14456,14489,145,114,111,116,108,0,4097,14421,1793,14499,3841,14421,2049,2765,24,10,
|
||||
1,14493,1793,14510,1,32,3841,14421,18,24,10,1,14503,2049,2103,22,10,14481,14525,145,
|
||||
114,101,115,42,42,0,3841,14434,1,5,19,1,7,2049,14489,1,9,19,10,14516,
|
||||
14546,145,110,101,120,116,0,3841,14441,2,1,-9,24,5,3841,14455,3841,14434,3841,14448,
|
||||
386269701,1285,386269701,100926980,85394690,386269701,386270726,4097,14448,4097,14441,4097,14434,1,11,2049,14489,4097,14455,10,
|
||||
14538,14589,145,120,111,114,45,101,114,0,386860290,5,386860290,5,386860290,5,386860290,5,101058054,101058054,
|
||||
10,14579,14609,145,106,117,109,112,63,0,1793,14616,1,14412,17,15,10,1,14611,2049,
|
||||
2076,1,1,4,2049,2765,24,21,10,14600,14637,145,105,110,110,101,114,0,1,32,
|
||||
1793,14664,2,2049,9983,2049,14609,1793,14658,1793,14653,2049,14589,10,1,14650,2049,2076,10,1,
|
||||
14648,9,2049,14546,10,1,14641,2049,10040,10,14371,14694,145,114,97,110,100,111,109,58,
|
||||
120,111,114,111,115,104,105,114,111,49,50,56,42,42,0,2049,14546,2049,14525,10,
|
||||
14669,14729,145,114,97,110,100,111,109,58,120,111,114,111,115,104,105,114,111,49,
|
||||
50,56,42,42,58,106,117,109,112,0,1,0,1,14455,1,0,1,14448,1,0,
|
||||
1,14441,1,0,1,14434,1,4,1793,14755,2049,9983,2049,14637,3,10,1,14749,2049,10040,
|
||||
269488144,10,14699,14795,145,114,97,110,100,111,109,58,120,111,114,111,115,104,105,114,
|
||||
111,49,50,56,42,42,58,115,101,116,45,115,101,101,100,0,2049,14466,1,100,
|
||||
1793,14804,2049,14546,10,1,14801,2049,2256,10,14761,14844,145,114,97,110,100,111,109,58,
|
||||
120,111,114,111,115,104,105,114,111,49,50,56,42,42,58,116,101,115,116,45,
|
||||
115,101,101,100,0,4097,14434,4097,14441,4097,14448,4097,14455,10,14809,14863,132,83,116,97,
|
||||
116,101,115,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
||||
0,0,0,0,0,0,0,0,0,14853,15497,132,73,110,100,101,120,0,0,15488,
|
||||
15507,145,114,101,115,101,116,0,1,14863,67502597,2049,2927,17,2,15,1,30,24,4,
|
||||
15,23,1,1812433253,19,67502597,17,2049,2545,21,4,1,14863,17,16,10,15498,15549,145,114,
|
||||
97,110,100,111,109,105,122,101,100,0,1,1,1793,15563,2,2049,15507,2049,2914,2,
|
||||
1,624,14,10,1,15553,2049,2231,3,10,15535,15574,145,121,0,2,2049,2914,1,624,
|
||||
788,1,14863,17,15,2049,2545,21,4,1,14863,17,15,1,-31,24,17,10,15569,15608,
|
||||
145,97,108,116,101,114,101,100,0,2,2049,15574,2,1,1,21,1,1073741823,19,1793,
|
||||
15636,1,2,197652,67502597,1,397,17,1,624,788,1,14863,17,15,23,10,1,15620,2049,
|
||||
2076,23,4,1,14863,17,16,10,15597,15660,145,115,99,114,97,109,98,108,101,100,
|
||||
0,1,0,1793,15674,2,2049,15608,2049,2914,2,1,624,14,10,1,15664,2049,2231,3,
|
||||
10,14809,15708,145,114,97,110,100,111,109,58,109,101,114,115,101,110,110,101,58,
|
||||
115,101,116,45,115,101,101,100,0,4097,14863,1,0,4097,15497,2049,15549,10,15680,15736,
|
||||
145,114,97,110,100,111,109,58,109,101,114,115,101,110,110,101,0,3841,15497,2049,
|
||||
2573,1,15660,9,3841,15497,1,14863,17,15,2,1,11,24,23,2,1,-7,24,1,
|
||||
1073741823,21,23,2,1,-15,24,1,2011365376,21,23,2,1,18,24,23,3841,15497,2049,2914,
|
||||
1,624,788,4097,15497,10,15717,15799,132,105,111,58,83,111,99,107,101,116,115,0,
|
||||
0,15785,15812,145,105,100,101,110,116,105,102,121,0,3841,15799,2049,2573,1793,15879,1,
|
||||
7,2049,10192,2,2049,2608,1793,15867,3,2049,3697,73,79,32,68,69,86,73,67,69,
|
||||
32,84,89,80,69,32,48,48,48,52,32,78,79,84,32,70,79,85,78,68,
|
||||
0,1,15830,2049,10285,2049,10248,10,1,15827,1793,15874,4097,15799,10,1,15871,2049,65,10,
|
||||
1,15818,9,10,15717,15906,145,105,111,58,115,111,99,107,101,116,45,111,112,101,
|
||||
114,97,116,105,111,110,0,2049,15812,3841,15799,2049,10166,10,15883,15937,145,115,111,99,
|
||||
107,101,116,58,103,101,116,104,111,115,116,98,121,110,97,109,101,0,1,0,
|
||||
2049,15906,10,15913,15959,145,115,111,99,107,101,116,58,99,114,101,97,116,101,0,
|
||||
1,1,2049,15906,10,15942,15979,145,115,111,99,107,101,116,58,98,105,110,100,0,
|
||||
1,2,2049,15906,10,15964,16001,145,115,111,99,107,101,116,58,108,105,115,116,101,
|
||||
110,0,1,3,2049,15906,10,15984,16023,145,115,111,99,107,101,116,58,97,99,99,
|
||||
101,112,116,0,1,4,2049,15906,10,16006,16046,145,115,111,99,107,101,116,58,99,
|
||||
111,110,110,101,99,116,0,1,5,2049,15906,10,16028,16066,145,115,111,99,107,101,
|
||||
116,58,115,101,110,100,0,1,6,2049,15906,10,16051,16086,145,115,111,99,107,101,
|
||||
116,58,114,101,99,118,0,1,8,2049,15906,10,16071,16107,145,115,111,99,107,101,
|
||||
116,58,99,108,111,115,101,0,1,10,2049,15906,10,16091,16132,145,115,111,99,107,
|
||||
101,116,58,99,111,110,102,105,103,117,114,101,0,1,11,2049,15906,10,16112,1024,
|
||||
132,84,73,66,0,16137,16158,145,105,109,97,103,101,58,115,97,118,101,0,1,
|
||||
1000,2049,10192,2049,10166,10,16144,16180,132,105,111,58,75,101,121,98,111,97,114,100,
|
||||
0,0,16165,16193,145,105,100,101,110,116,105,102,121,0,3841,16180,2049,2573,1793,16260,
|
||||
1,1,2049,10192,2,2049,2608,1793,16248,3,2049,3697,73,79,32,68,69,86,73,67,
|
||||
69,32,84,89,80,69,32,48,48,48,49,32,78,79,84,32,70,79,85,78,
|
||||
68,0,1,16211,2049,10285,2049,10248,10,1,16208,1793,16255,4097,16180,10,1,16252,2049,65,
|
||||
10,1,16199,9,10,16144,16273,145,99,58,103,101,116,0,2049,16193,3841,16180,2049,10166,
|
||||
10,16264,16290,145,103,97,116,104,101,114,0,2,1793,16297,1,8,11,10,1,16293,
|
||||
1793,16305,1,127,11,10,1,16301,2049,2103,22,1793,16314,3,10,1,16312,1793,16321,2049,
|
||||
3383,10,1,16318,2049,65,10,16280,16335,145,99,121,99,108,101,0,2049,16273,2049,2066,
|
||||
4,8,2049,2726,25,3,2049,16290,1,16335,7,10,16264,16366,145,112,97,114,115,101,
|
||||
45,117,110,116,105,108,0,1793,16378,2049,3678,2049,3475,2049,16335,771,2049,3349,10,1,
|
||||
16368,2049,3499,10,16351,16392,145,115,58,103,101,116,0,1793,16414,1793,16400,1,10,11,
|
||||
10,1,16396,1793,16408,1,13,11,10,1,16404,2049,2103,22,10,1,16394,2049,16366,10,
|
||||
16383,16435,132,105,111,58,83,99,114,105,112,116,105,110,103,0,4,16419,16448,145,
|
||||
105,100,101,110,116,105,102,121,0,3841,16435,2049,2573,1793,16515,1,9,2049,10192,2,
|
||||
2049,2608,1793,16503,3,2049,3697,73,79,32,68,69,86,73,67,69,32,84,89,80,
|
||||
69,32,48,48,48,57,32,78,79,84,32,70,79,85,78,68,0,1,16466,2049,
|
||||
10285,2049,10248,10,1,16463,1793,16510,4097,16435,10,1,16507,2049,65,10,1,16454,9,10,
|
||||
16383,16531,145,115,121,115,58,97,114,103,99,0,2049,16448,1,0,3841,16435,2049,10166,
|
||||
10,16519,16552,145,115,121,115,58,97,114,103,118,0,2049,3678,4,2049,16448,1,1,
|
||||
3841,16435,2049,10166,10,16540,16575,145,105,110,99,108,117,100,101,0,2049,16448,1,2,
|
||||
3841,16435,2049,10166,10,16564,16596,145,115,121,115,58,110,97,109,101,0,2049,3678,2049,
|
||||
16448,1,3,3841,16435,2049,10166,10,16584,16616,145,99,108,101,97,114,0,1,27,2049,
|
||||
10235,2049,3697,91,50,74,0,1,16622,2049,10285,1,27,2049,10235,2049,3697,91,48,59,
|
||||
48,72,0,1,16636,2049,10285,10,16607,16657,132,78,111,69,99,104,111,0,0,16647,
|
||||
16665,145,98,121,101,0,1,0,2049,13607,10,16658,16681,145,118,101,114,115,105,111,
|
||||
110,0,3841,4,1,100,20,10,16670,16696,145,100,111,110,101,63,0,1793,16702,1,
|
||||
13,11,10,1,16698,1793,16710,1,10,11,10,1,16706,1793,16718,1,32,11,10,1,
|
||||
16714,2049,2140,22,22,10,16687,16735,145,118,97,108,105,100,63,0,2,2049,80,2049,
|
||||
2655,10,16725,16754,145,99,104,101,99,107,45,101,111,102,0,2,1793,16761,1,-1,
|
||||
11,10,1,16757,1793,16769,1,4,11,10,1,16765,2049,2103,22,1,16665,9,10,16741,
|
||||
16784,145,98,115,0,2049,3407,2049,3407,771,10,16778,16802,145,99,104,101,99,107,45,
|
||||
98,115,0,2,1793,16809,1,8,11,10,1,16805,1793,16817,1,127,11,10,1,16813,
|
||||
2049,2103,22,1,16784,9,10,16790,16835,145,99,104,101,99,107,0,2049,16754,2049,16802,
|
||||
10,16826,16853,145,99,104,97,114,97,99,116,101,114,0,2049,16273,2,2049,3383,10,
|
||||
16840,16869,145,98,117,102,102,101,114,0,1793,16879,1,1024,2049,3475,8,2049,3349,10,
|
||||
1,16871,2049,3499,10,16859,16898,145,114,101,97,100,45,116,111,107,101,110,0,1793,
|
||||
16914,1793,16909,2049,16853,2049,16835,2049,16696,10,1,16902,2049,2231,10,1,16900,2049,16869,2049,
|
||||
3790,10,16884,16930,145,105,110,112,117,116,0,2049,16898,2049,16735,10,16921,16946,145,112,
|
||||
114,111,99,101,115,115,0,1,365,1,11,2049,65,10,16658,16963,145,98,97,110,
|
||||
110,101,114,0,2049,16681,2049,3697,82,69,84,82,79,32,49,50,32,40,37,110,
|
||||
46,37,110,41,92,110,0,1,16967,2049,6724,2049,10285,2049,1543,2049,1847,18,2049,1847,
|
||||
2049,1543,2049,3697,37,110,32,77,97,120,44,32,37,110,32,85,115,101,100,44,
|
||||
32,37,110,32,70,114,101,101,92,110,0,1,17003,2049,6724,2049,10285,10,16953,17047,
|
||||
145,108,105,115,116,101,110,0,3841,16657,1793,17054,2049,16963,10,1,17051,2049,71,2049,
|
||||
16930,2049,16946,1,17058,7,10,17037,17077,145,100,58,119,111,114,100,115,0,1793,17086,
|
||||
2049,163,2049,10285,2049,10259,10,1,17079,2049,6966,10,17066,17107,145,100,58,119,111,114,
|
||||
100,115,45,119,105,116,104,0,2049,1847,2049,4746,1793,17138,2049,163,2,2049,1847,2049,
|
||||
4348,1793,17127,2049,10285,2049,10259,10,1,17122,1793,17133,3,10,1,17131,2049,65,10,1,
|
||||
17113,2049,6966,10,17091,17162,145,100,105,115,112,108,97,121,45,105,102,45,108,101,
|
||||
102,116,0,2,2049,1847,2049,4662,1793,17174,2049,10285,2049,10259,10,1,17169,1793,17180,3,
|
||||
10,1,17178,2049,65,10,17091,17211,145,100,58,119,111,114,100,115,45,98,101,103,
|
||||
105,110,110,105,110,103,45,119,105,116,104,0,2049,1847,2049,4746,1793,17222,2049,163,
|
||||
2049,17162,10,1,17217,2049,6966,10,0 };
|
||||
24,2049,14343,17,10,14371,14418,132,105,111,58,83,111,99,107,101,116,115,0,0,
|
||||
14404,14431,145,105,100,101,110,116,105,102,121,0,3841,14418,2049,2573,1793,14498,1,7,
|
||||
2049,10192,2,2049,2608,1793,14486,3,2049,3697,73,79,32,68,69,86,73,67,69,32,
|
||||
84,89,80,69,32,48,48,48,52,32,78,79,84,32,70,79,85,78,68,0,
|
||||
1,14449,2049,10285,2049,10248,10,1,14446,1793,14493,4097,14418,10,1,14490,2049,65,10,1,
|
||||
14437,9,10,14371,14525,145,105,111,58,115,111,99,107,101,116,45,111,112,101,114,
|
||||
97,116,105,111,110,0,2049,14431,3841,14418,2049,10166,10,14502,14556,145,115,111,99,107,
|
||||
101,116,58,103,101,116,104,111,115,116,98,121,110,97,109,101,0,1,0,2049,
|
||||
14525,10,14532,14578,145,115,111,99,107,101,116,58,99,114,101,97,116,101,0,1,
|
||||
1,2049,14525,10,14561,14598,145,115,111,99,107,101,116,58,98,105,110,100,0,1,
|
||||
2,2049,14525,10,14583,14620,145,115,111,99,107,101,116,58,108,105,115,116,101,110,
|
||||
0,1,3,2049,14525,10,14603,14642,145,115,111,99,107,101,116,58,97,99,99,101,
|
||||
112,116,0,1,4,2049,14525,10,14625,14665,145,115,111,99,107,101,116,58,99,111,
|
||||
110,110,101,99,116,0,1,5,2049,14525,10,14647,14685,145,115,111,99,107,101,116,
|
||||
58,115,101,110,100,0,1,6,2049,14525,10,14670,14705,145,115,111,99,107,101,116,
|
||||
58,114,101,99,118,0,1,8,2049,14525,10,14690,14726,145,115,111,99,107,101,116,
|
||||
58,99,108,111,115,101,0,1,10,2049,14525,10,14710,14751,145,115,111,99,107,101,
|
||||
116,58,99,111,110,102,105,103,117,114,101,0,1,11,2049,14525,10,14731,1024,132,
|
||||
84,73,66,0,14756,14777,145,105,109,97,103,101,58,115,97,118,101,0,1,1000,
|
||||
2049,10192,2049,10166,10,14763,14799,132,105,111,58,75,101,121,98,111,97,114,100,0,
|
||||
0,14784,14812,145,105,100,101,110,116,105,102,121,0,3841,14799,2049,2573,1793,14879,1,
|
||||
1,2049,10192,2,2049,2608,1793,14867,3,2049,3697,73,79,32,68,69,86,73,67,69,
|
||||
32,84,89,80,69,32,48,48,48,49,32,78,79,84,32,70,79,85,78,68,
|
||||
0,1,14830,2049,10285,2049,10248,10,1,14827,1793,14874,4097,14799,10,1,14871,2049,65,10,
|
||||
1,14818,9,10,14763,14892,145,99,58,103,101,116,0,2049,14812,3841,14799,2049,10166,10,
|
||||
14883,14909,145,103,97,116,104,101,114,0,2,1793,14916,1,8,11,10,1,14912,1793,
|
||||
14924,1,127,11,10,1,14920,2049,2103,22,1793,14933,3,10,1,14931,1793,14940,2049,3383,
|
||||
10,1,14937,2049,65,10,14899,14954,145,99,121,99,108,101,0,2049,14892,2049,2066,4,
|
||||
8,2049,2726,25,3,2049,14909,1,14954,7,10,14883,14985,145,112,97,114,115,101,45,
|
||||
117,110,116,105,108,0,1793,14997,2049,3678,2049,3475,2049,14954,771,2049,3349,10,1,14987,
|
||||
2049,3499,10,14970,15011,145,115,58,103,101,116,0,1793,15033,1793,15019,1,10,11,10,
|
||||
1,15015,1793,15027,1,13,11,10,1,15023,2049,2103,22,10,1,15013,2049,14985,10,15002,
|
||||
15054,132,105,111,58,83,99,114,105,112,116,105,110,103,0,4,15038,15067,145,105,
|
||||
100,101,110,116,105,102,121,0,3841,15054,2049,2573,1793,15134,1,9,2049,10192,2,2049,
|
||||
2608,1793,15122,3,2049,3697,73,79,32,68,69,86,73,67,69,32,84,89,80,69,
|
||||
32,48,48,48,57,32,78,79,84,32,70,79,85,78,68,0,1,15085,2049,10285,
|
||||
2049,10248,10,1,15082,1793,15129,4097,15054,10,1,15126,2049,65,10,1,15073,9,10,15002,
|
||||
15150,145,115,121,115,58,97,114,103,99,0,2049,15067,1,0,3841,15054,2049,10166,10,
|
||||
15138,15171,145,115,121,115,58,97,114,103,118,0,2049,3678,4,2049,15067,1,1,3841,
|
||||
15054,2049,10166,10,15159,15194,145,105,110,99,108,117,100,101,0,2049,15067,1,2,3841,
|
||||
15054,2049,10166,10,15183,15215,145,115,121,115,58,110,97,109,101,0,2049,3678,2049,15067,
|
||||
1,3,3841,15054,2049,10166,10,15203,15235,145,99,108,101,97,114,0,1,27,2049,10235,
|
||||
2049,3697,91,50,74,0,1,15241,2049,10285,1,27,2049,10235,2049,3697,91,48,59,48,
|
||||
72,0,1,15255,2049,10285,10,15226,15276,132,78,111,69,99,104,111,0,0,15266,15284,
|
||||
145,98,121,101,0,1,0,2049,13607,10,15277,15300,145,118,101,114,115,105,111,110,
|
||||
0,3841,4,1,100,20,10,15289,15315,145,100,111,110,101,63,0,1793,15321,1,13,
|
||||
11,10,1,15317,1793,15329,1,10,11,10,1,15325,1793,15337,1,32,11,10,1,15333,
|
||||
2049,2140,22,22,10,15306,15354,145,118,97,108,105,100,63,0,2,2049,80,2049,2655,
|
||||
10,15344,15373,145,99,104,101,99,107,45,101,111,102,0,2,1793,15380,1,-1,11,
|
||||
10,1,15376,1793,15388,1,4,11,10,1,15384,2049,2103,22,1,15284,9,10,15360,15403,
|
||||
145,98,115,0,2049,3407,2049,3407,771,10,15397,15421,145,99,104,101,99,107,45,98,
|
||||
115,0,2,1793,15428,1,8,11,10,1,15424,1793,15436,1,127,11,10,1,15432,2049,
|
||||
2103,22,1,15403,9,10,15409,15454,145,99,104,101,99,107,0,2049,15373,2049,15421,10,
|
||||
15445,15472,145,99,104,97,114,97,99,116,101,114,0,2049,14892,2,2049,3383,10,15459,
|
||||
15488,145,98,117,102,102,101,114,0,1793,15498,1,1024,2049,3475,8,2049,3349,10,1,
|
||||
15490,2049,3499,10,15478,15517,145,114,101,97,100,45,116,111,107,101,110,0,1793,15533,
|
||||
1793,15528,2049,15472,2049,15454,2049,15315,10,1,15521,2049,2231,10,1,15519,2049,15488,2049,3790,
|
||||
10,15503,15549,145,105,110,112,117,116,0,2049,15517,2049,15354,10,15540,15565,145,112,114,
|
||||
111,99,101,115,115,0,1,365,1,11,2049,65,10,15277,15582,145,98,97,110,110,
|
||||
101,114,0,2049,15300,2049,3697,82,69,84,82,79,32,49,50,32,40,37,110,46,
|
||||
37,110,41,92,110,0,1,15586,2049,6724,2049,10285,2049,1543,2049,1847,18,2049,1847,2049,
|
||||
1543,2049,3697,37,110,32,77,97,120,44,32,37,110,32,85,115,101,100,44,32,
|
||||
37,110,32,70,114,101,101,92,110,0,1,15622,2049,6724,2049,10285,10,15572,15666,145,
|
||||
108,105,115,116,101,110,0,3841,15276,1793,15673,2049,15582,10,1,15670,2049,71,2049,15549,
|
||||
2049,15565,1,15677,7,10,15656,15696,145,100,58,119,111,114,100,115,0,1793,15705,2049,
|
||||
163,2049,10285,2049,10259,10,1,15698,2049,6966,10,15685,15726,145,100,58,119,111,114,100,
|
||||
115,45,119,105,116,104,0,2049,1847,2049,4746,1793,15757,2049,163,2,2049,1847,2049,4348,
|
||||
1793,15746,2049,10285,2049,10259,10,1,15741,1793,15752,3,10,1,15750,2049,65,10,1,15732,
|
||||
2049,6966,10,15710,15781,145,100,105,115,112,108,97,121,45,105,102,45,108,101,102,
|
||||
116,0,2,2049,1847,2049,4662,1793,15793,2049,10285,2049,10259,10,1,15788,1793,15799,3,10,
|
||||
1,15797,2049,65,10,15710,15830,145,100,58,119,111,114,100,115,45,98,101,103,105,
|
||||
110,110,105,110,103,45,119,105,116,104,0,2049,1847,2049,4746,1793,15841,2049,163,2049,
|
||||
15781,10,1,15836,2049,6966,10,15804,15860,145,117,110,105,120,58,119,114,105,116,101,
|
||||
0,1793,15866,2,2049,80,10,1,15862,2049,2076,1,12,2049,13473,10,15846,15892,145,117,
|
||||
110,105,120,58,105,111,58,110,58,112,117,116,0,1,17,2049,13473,10,15875,15914,
|
||||
145,117,110,105,120,58,105,111,58,115,58,112,117,116,0,1,18,2049,13473,10,
|
||||
0 };
|
||||
|
|
|
|||
|
|
@ -369,12 +369,6 @@ prefix:| s- - - POSTPONE equivalent. Discard the string. Convert the string to a
|
|||
primitive - - - Change the class of the most recently defined word to `class:primitive`. class:word {n/a} {n/a} global all
|
||||
push n- -n - Move a value from the data stack to the return stack. class:macro {n/a} {n/a} global all
|
||||
r s- - - Lookup a reference by name and inline its pointer to the current assembly segment. class:word {n/a} {n/a} global all
|
||||
random:mersenne -n - - Return a random number using a mersenne shifter class:word {n/a} {n/a} random rre
|
||||
random:mersenne:set-seed n- - - Seed random:mersenne with the specified value class:word {n/a} {n/a} random rre
|
||||
random:xoroshiro128** -n - - Return a random number using xoroshiro128** class:word {n/a} {n/a} random rre
|
||||
random:xoroshiro128**:jump - - - Updates the internal xoroshiro128** state registers with the equivalent of 2^64 calls to random:xoroshiro128**. class:word {n/a} {n/a} random rre
|
||||
random:xoroshiro128**:set-seed n- - - Seed random:xoroshiro128** with the specified value class:word {n/a} {n/a} random rre
|
||||
random:xoroshiro128**:test-seed nnnn- - - Sets the internal xoroshiro128** state registers s0..s3 starting with TOS. class:word {n/a} {n/a} random rre
|
||||
reclass a- - - Change the class handler of the most recently defined word to the specified one. class:word {n/a} {n/a} global all
|
||||
reorder ...ss-? - - Restructure the order of items on the stack. class:word {n/a} {n/a} global all
|
||||
repeat - - - Begin an unconditional loop. class:macro {n/a} {n/a} global all
|
||||
|
|
|
|||
|
Can't render this file because it contains an unexpected character in line 62 and column 55.
|
Loading…
Reference in a new issue