00:59:27
##forth
<cleobuli_>
forthBot: LOAD ini.fth
00:59:27
##forth
<forthBot>
File ini.fth with moon loaded
00:59:33
##forth
<cleobuli_>
forthBot: MOON
00:59:33
##forth
<forthBot>
Phase de la lune pour Mon July 14 2025
00:59:33
##forth
<forthBot>
🌖 Gibbeuse decroissante La lune decroit, une nuit douce vous attend ! Illumination 81%
01:01:35
##forth
<cleobuli_>
forthBot: TODAY-CAL-IRC
01:01:35
##forth
<forthBot>
July 2025
01:01:36
##forth
<forthBot>
Mo Tu We Th Fr Sa Su
01:01:36
##forth
<forthBot>
1 2 3 4 5 6
01:01:36
##forth
<forthBot>
7 8 9 10 11 12 13
01:01:37
##forth
<forthBot>
14 15 16 17 18 19 20
01:01:37
##forth
<forthBot>
21 22 23 24 25 26 27
01:01:38
##forth
<forthBot>
28 29 30 31
01:30:48
##forth
<ajhidd>
I'm still in search of an idea of something remotely useful to implement with forthbot :D
02:21:41
##forth
<MrMobius>
seems good for examples
02:21:49
##forth
<MrMobius>
not that we've really used it for that
03:01:35
##forth
<forthBot>
Environment for cleobuli_ inactive, freeing...
03:46:00
##forth
<ajhidd>
forthBot: S" Euro Truck Simulator, but it's 2D with top-down view "S IMAGE
03:46:26
##forth
<ajhidd>
forthBot: QUIT
03:46:26
##forth
<forthBot>
Environment for ajhidd has been freed.
04:17:02
##forth
<lf94>
Wow forth bot is evolving
16:34:03
##forth
<cleobuline>
forthBot: LOAD ini.fth
16:34:03
##forth
<forthBot>
File ini.fth with moon loaded
16:34:41
##forth
<cleobuline>
forthBot: EURO
16:34:41
##forth
<forthBot>
36 39 6 3 21 10 7
16:43:33
##forth
<cleobuline>
forthBot: TABLE-MUL
16:43:33
##forth
<forthBot>
Error: Unknown word: TABLE-MUL
16:43:44
##forth
<cleobuline>
forthBot: 10 TABLE-MULT
16:43:44
##forth
<forthBot>
1 2 3 4 5 6 7 8 9 10 |
16:43:45
##forth
<forthBot>
2 4 6 8 10 12 14 16 18 20 |
16:43:45
##forth
<forthBot>
3 6 9 12 15 18 21 24 27 30 |
16:43:45
##forth
<forthBot>
4 8 12 16 20 24 28 32 36 40 |
16:43:46
##forth
<forthBot>
5 10 15 20 25 30 35 40 45 50 |
16:43:46
##forth
<forthBot>
6 12 18 24 30 36 42 48 54 60 |
16:43:47
##forth
<forthBot>
7 14 21 28 35 42 49 56 63 70 |
16:43:47
##forth
<forthBot>
8 16 24 32 40 48 56 64 72 80 |
16:43:47
##forth
<forthBot>
9 18 27 36 45 54 63 72 81 90 |
16:43:48
##forth
<forthBot>
10 20 30 40 50 60 70 80 90 100 |
16:48:50
##forth
<identity>
forthBot: LOAD ini.fth
16:48:50
##forth
<forthBot>
File ini.fth with moon loaded
16:48:54
##forth
<identity>
forthBot: 1 TABLE-MULT
16:48:54
##forth
<forthBot>
1 |
16:49:04
##forth
<cleobuline>
lol
16:49:31
##forth
<identity>
forthBot: 0 TABLE-MULT
16:49:32
##forth
<forthBot>
1 |
16:50:36
##forth
<cleobuline>
forthBot: -10 TABLE-MULT
16:50:37
##forth
<forthBot>
1 |
16:52:45
##forth
<cleobuline>
forthBot: SEE TABLE-MULT
16:52:45
##forth
<forthBot>
: TABLE-MULT DUP CR 1 + 1 DO DUP 1 + 1 DO I J * DUP DUP 100 < IF 32 EMIT THEN DUP 10 < IF 32 EMIT THEN NUM-TO-STR 32 EMIT DROP LOOP 124 EMIT CR LOOP DROP ;
16:59:19
##forth
<cleobuline>
forthBot: .S
16:59:20
##forth
<forthBot>
<0>
16:59:37
##forth
<cleobuline>
forthBot: 12 5 /MOD
16:59:44
##forth
<cleobuline>
forthBot: .S
16:59:44
##forth
<forthBot>
<2> 2 2
18:49:31
##forth
<forthBot>
Environment for identity inactive, freeing...
18:59:44
##forth
<forthBot>
Environment for cleobuline inactive, freeing...
21:05:30
##forth
<skvery>
\ Convert number to Roman numeral
21:05:31
##forth
<skvery>
: roman-digit ( n c -- )
21:05:31
##forth
<skvery>
 0 do dup emit loop drop ;
21:05:32
##forth
<skvery>
: roman ( n -- )
21:05:32
##forth
<skvery>
 dup 100 >= if 100 /mod swap drop 'C' roman-digit then
21:05:33
##forth
<skvery>
 dup 90 >= if 90 - ." XC" then
21:05:33
##forth
<skvery>
 dup 50 >= if 50 /mod swap drop 'L' roman-digit then
21:05:34
##forth
<skvery>
 dup 40 >= if 40 - ." XL" then
21:05:34
##forth
<skvery>
 dup 10 >= if 10 /mod swap drop 'X' roman-digit then
21:05:35
##forth
<skvery>
 dup 9 = if drop ." IX" exit then
21:05:35
##forth
<skvery>
 dup 5 >= if 5 - ." V" then
21:05:36
##forth
<skvery>
 dup 4 = if drop ." IV" exit then
21:05:36
##forth
<skvery>
 1 swap 0 do ." I" loop drop ;
21:05:37
##forth
<skvery>
: roman> ( n -- )
21:05:37
##forth
<skvery>
 dup 0= if ." 0" drop exit then roman ;
21:05:38
##forth
<skvery>
\ Fixed width Roman numeral printing
21:05:38
##forth
<skvery>
: roman5 ( n -- ) \ Print Roman numeral padded to 5 chars
21:05:39
##forth
<skvery>
 <# roman #> count 5 swap - spaces type ;