| Red [ | |
| title: "Preallocation lab" | |
| author: @hiiamboris | |
| license: MIT | |
| ] | |
| sizes: repeat n 11 [append [] 2 ** (9 + n)] ;-- 1K .. 1M | |
| gc-color: coal | |
| strategies: #[ |
| Red [] | |
| context [ | |
| keywords: make hash! [ | |
| case quote skip none end opt not ahead any some while to thru if | |
| into fail break reject set copy collect keep remove insert change | |
| ] | |
| log: [] | |
| last-push: [] | |
| tracer: function [event [word!] match? [logic!] rule [block!] input [series!] stack [block!] /local name /extern last-push] [ |
| Red [title: "an experiment with adhoc protection"] | |
| ;; problem is that once it's assigned to a deep-reactor, protection is lost | |
| ;; and we can only protect series, not maps or objects like this (limitation of ownership system) | |
| ;; REQUIRES https://codeberg.org/hiiamboris/red-common | |
| #include %common/tree-hopping.red | |
| guard: object [ | |
| own: func [s [series!]] [modify s 'owned reduce [self s]] |
| (x >= 0) | |
| (0 < length? s) | |
| (none? y) | |
| (none? m) | |
| (same? type? X1 type? X2) | |
| (xrange >= 0) | |
| (frange >= 0) | |
| (nmax > 0) | |
| (find [binary interp jump] guess) | |
| (host? host) |
| ; Copyright © Microsoft Corp. | |
| [Theme] | |
| ; High Contrast White - IDS_THEME_DISPLAYNAME_HCWHITE | |
| DisplayName=silvermoon | |
| ThemeId={ECCE8417-4571-4413-A4AD-680D75696797} | |
| ; Computer - SHIDI_SERVER | |
| [CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\DefaultIcon] | |
| DefaultValue=%SystemRoot%\System32\imageres.dll,-109 |
| Red [needs: view] | |
| drawn: [translate 200x200 push [rotate 0.0 scale 1.0 1.0 text -3x-203 "L"] push [rotate 2.40612197430267 scale 0.9993330561110004 0.9993330561110004 text -3x-203 "o"] push [rotate 5.113009195393174 scale 0.9985832759130133 0.9985832759130133 text -3x-203 "r"] push [rotate 6.917600676120176 scale 0.998083734999044 0.998083734999044 text -3x-203 "e"] push [rotate 9.62448789721068 scale 0.9973348921424416 0.9973348921424416 text -3x-203 "m"] push [rotate 13.835201352240352 scale 0.9961711420696419 0.9961711420696419 text -3x-203 " "] push [rotate 15.339027586179517 scale 0.9957558462169389 0.9957558462169389 text -3x-203 "i"] push [rotate 16.542088573330854 scale 0.9954237341943969 0.9954237341943969 text -3x-203 "p"] push [rotate 19.24897579442136 scale 0.9946768870847758 0.9946768870847758 text -3x-203 "s"] push [rotate 21.655097768724026 scale 0.9940134934134055 0.9940134934134055 text -3x-203 "u"] push [rotate 24.361984989814534 scale 0.9932677043800738 0.9932677043800738 text -3x-203 "m"] |
unordered key/value pairs with word shortcuts (original mezz impl):
apply parse [case part length input: series rules: =rule=]
path + args + k/v pairs (hybrid):
apply 'parse/:case/:part [series =rule= length]
operands then refinements (reduced k/v syntax):
| Red [title: "An experiment with INTO separation"] | |
| ; do %/d/devel/red/common/with.red | |
| buffers*: [] | |
| into: func [buffer [series!]] [append/only buffers* buffer exit] | |
| collect': function [code [block!]] [ | |
| also buffer: any [ | |
| take/last buffers* |
| REBOL [] Red [] | |
| using-replace: func[str][ | |
| replace/all str "??" #"¿" | |
| replace/all str "!!" #"¡" | |
| replace/all str "a'" #"á" | |
| replace/all str "e'" #"é" | |
| replace/all str "i'" #"í" | |
| replace/all str "o'" #"ó" | |
| replace/all str "u'" #"ú" | |
| replace/all str "u:" #"ü" |
| Red [title: "object size plotter" needs 'view] | |
| sizes: [] | |
| plot1: [0x0] | |
| plot2: [] | |
| recycle/off | |
| repeat i 70 [ | |
| insert spec: [none] to set-word! rejoin ["word" i] | |
| recycle | |
| initial: stats |