01:37:46
##forth
<cleobuline>
forthBot: LOAD "test.fth"
01:38:18
##forth
<cleobuline>
forthBot: 9 12 26 3 SQUARE-SUM .
01:38:18
##forth
<forthBot>
901
01:38:46
##forth
<cleobuline>
forthBot: SEE SQUARE-SUM
01:38:46
##forth
<forthBot>
: SQUARE-SUM 0 >R 0 DO DUP * (OP_16 0) + (OP_17 0) LOOP R> ;
01:39:05
##forth
<cleobuline>
i have to update de SEE word yet
01:43:21
##forth
<cleobuline>
forthBot: LOAD "test.fth"
01:43:24
##forth
<cleobuline>
forthBot: SEE SQUARE-SUM
01:43:24
##forth
<forthBot>
: SQUARE-SUM 0 >R 0 DO DUP * R@SUM + R!SUM LOOP R> ;
01:43:32
##forth
<cleobuline>
better
01:45:19
##forth
<cleobuline>
forthBot: 1 2 3 4 5 5 SQUARE-SUM .
01:45:19
##forth
<forthBot>
55
01:47:15
##forth
<cleobuline>
forthBot: .S
01:47:15
##forth
<forthBot>
<0>
02:22:46
##forth
<M-Sci>
Another way to describe it is "open array". Just like ":" opens a Factor.
02:24:30
##forth
<M-Sci>
AFAIK VarArg is the essence of all those approaches.
03:47:15
##forth
<forthBot>
Environment for cleobuline inactive, freeing...
14:50:52
##forth
<cleobuline>
forthBot: LOAD "test.fth"
14:52:00
##forth
<cleobuline>
pirouette cacahuete
16:50:51
##forth
<forthBot>
Environment for cleobuline inactive, freeing...
21:01:42
##forth
<cleobuline>
forth: LOAD "ini.fth"
21:01:50
##forth
<cleobuline>
forthBot: LOAD "ini.fth"
21:13:08
##forth
<cleobuline>
forthBot: TODAY-CAL-IRC
21:13:08
##forth
<forthBot>
May 2025
21:13:09
##forth
<forthBot>
Mo Tu We Th Fr Sa Su
21:13:09
##forth
<forthBot>
1 2 3 4
21:13:09
##forth
<forthBot>
5 6 7 8 9 10 11
21:13:10
##forth
<forthBot>
12 13 14 15 16 17 18
21:13:10
##forth
<forthBot>
19 20 21 22 23 24 25
21:13:11
##forth
<forthBot>
26 27 28 29 30 31
21:17:24
##forth
<cleobuline>
forthBot: SEE ZELLER
21:17:24
##forth
<forthBot>
: ZELLER >R DUP 3 < IF 12 + R> 1 - >R THEN R@ 100 MOD R@ 100 / SWAP DUP 4 / + SWAP 2 * 0 SWAP - + SWAP 1 + 13 * 5 / 1 + + R> 100 / 4 / + 6 + 7 MOD ;
23:17:24
##forth
<forthBot>
Environment for cleobuline inactive, freeing...