toomasv

Red [Description: "Some prime funcs"]

primes: function [n [integer!]][
   poke prim: make bitset! n 1 true
   r: 2 while [r * r <= n][
      repeat q n / r - 1 [poke prim q + 1 * r true] 
      until [not pick prim r: r + 1]
   ]
   collect [repeat i n [if not prim/:i [keep i]]]
]

toomasv

make-block: function [data /all /with selection [word! block!]][
    if word? selection [selection: to-block selection]
    either any [
        accessors: select system/catalog/accessors type?/word data 
        system/words/all [ ; NB! Modifies global "query"
            url? data 
            data: decode-url data 
            accessors: words-of data
        ]
        system/words/all [

toomasv

Red [
    Needs: 'View
    License: "BSD-3"
]
;Mainly @hiiamboris
;Inserts closing `"])}` for `"[({` automatically
#system [
    #import [
        "user32.dll" stdcall [
            SendMessage: "SendMessageW" [

toomasv

Red [
  Description: "Form number to given precision"
  Date: 2019-0-13
]
form-to: func [
	"Form number to a given floating-point precision"
	number [number!] "Number to be formed"
	precision [integer!] "Decimal places (positive integer)"
	/local pcnt?
][

toomasv

Red [
  Description: {Playing while reading Wikidata SPARQL tutorial}
  See:  https://www.wikidata.org/wiki/Wikidata:SPARQL_tutorial
  Also: https://stackoverflow.com/questions/38527828/how-to-query-wikidata-items-using-its-labels
  Needs: View
  Also-needs: https://github.com/toomasv/table-template
]

#include %table-template.red
ws: charset " ^-^/"

toomasv

Red []

move-faces: function [parent except inserted dim][
	anti: select [x y x] dim 
	win: parent/parent
	max-size: 0x0
	last-size: parent/size
	foreach-face/with parent [
		sz: either face/offset = except/offset [
			except/size/:dim + 10

toomasv

Red [
	Description: "Spell out numbers"
]
context [
	digits: [One Two Three Four Five Six Seven Eight Nine] 
	tens: [_ Twenty Thirty Fourty Fifty Sixty Seventy Eighty Ninety] 
	teens: [Ten Eleven Twelve Thirteen Fourteen Fifteen Sixteen Seventeen Eighteen Nineteen] 
	orders: [Thousand Million Billion] 
	out: copy [] 
	res: copy []

toomasv

Red [
	Description: "Puzzle"
	See: "[June 22, 2022 9:56 PM](https://gitter.im/red/rethink?at=62b365e276cd751a2f507697)"
]
#include %to-num-word.red ;See next gist
prepare: func [puz] [
	count: 0 
	total: length? reduce puzzle 
	clear res: [] 
	op: func [op /local f x][

toomasv

Red [
    Needs: 'View
    Problem: "[June 22, 2022 1:41 PM](https://gitter.im/red/red?at=62b2f1c8d3c8894f7198cf95)"
]
bind-part: function [what where with][
    yep: false
    beg: where/1
    fin: where/2
    parse what [any [s:
      if (s/1 = fin) thru end

toomasv

Red [
	Author: "Toomas Vooglaid"
	Date: 	2018-12-11
	Improvements: @9214
]
thru: make op! func [a b /local inc op cmp][
    inc: pick [1% 1] percent? a
    set [op cmp] reduce pick [[:+ :<][:- :>]] a < b
    collect [until [keep a b cmp a: a op inc]]
]