Paste: parallel-map corruption
Author: | erg |
Mode: | factor |
Date: | Thu, 9 Mar 2023 17:21:03 |
Plain Text |
USING: accessors arrays command-line io io.encodings.binary
io.servers kernel math.parser namespaces prettyprint random
ranges sequences strings ;
IN: string-server
: serve-string ( -- )
10,000,000 100,000,000 over <range> random
CHAR: a CHAR: z [a..b] random [ 2dup 2array . flush ] with-global
<string> write flush ;
: <string-server> ( port -- server )
utf8 <threaded-server>
swap >>insecure
"string.server" >>name
[ serve-string ] >>handler ;
: string-server-main ( -- )
command-line get [ 1239 ] [ first string>number ] if-empty
<string-server> start-server wait-for-server ;
MAIN: string-server-main
New Annotation