IRC Log - 2025-03-20 - ##forth

Channel: ##forth
Total messages: 163
Time range: 12:00:43 - 23:22:48
Most active: cleobuline (78), ForthBot (73), veltas (5)
12:00:43 ##forth <veltas> Just saved myself £3000 by speaking nicely on the phone
12:01:03 ##forth <veltas> So it turns out you can put an upper bound on the minimum quantitative value to make me polite
12:15:50 ##forth <cleobuline> ForthBot: : PGCD BEGIN DUP 0 = 0 = WHILE SWAP OVER MOD REPEAT DROP ;
12:16:15 ##forth <cleobuline> ForthBot: 18 12 PGCD .
12:16:15 ##forth <ForthBot> 6
12:17:35 ##forth <cleobuline> ForthBot: 123 3 * 123 4 * PGCD .
12:17:35 ##forth <ForthBot> 123
12:19:22 ##forth <cleobuline> ForthBot: : PGCD DUP 0 = IF DROP ELSE SWAP OVER MOD RECURSE THEN ;
12:19:27 ##forth <cleobuline> ForthBot: 123 3 * 123 4 * PGCD .
12:19:27 ##forth <ForthBot> 123
12:20:28 ##forth <cleobuline> ForthBot: 100 75 PGCD .
12:20:28 ##forth <ForthBot> 25
12:22:08 ##forth <GeDaMo> ForthBot: 7013 5101 PGCD .
12:22:08 ##forth <ForthBot> 1
12:30:54 ##forth <cleobuline> ForthBot: SOURCE @ PRINT
12:30:54 ##forth <ForthBot> Unknown word: SOURCE
12:31:12 ##forth <cleobuline> ForthBot: LOAD "test.fth"
12:31:17 ##forth <cleobuline> ForthBot: SOURCE @ PRINT
12:39:09 ##forth <cleobuline> ForthBot: SEE PGCD
12:39:09 ##forth <ForthBot> : PGCD DUP 0 = IF DROP ELSE SWAP OVER MOD RECURSE THEN ;
13:55:37 ##forth <cleobuline> : PGCD BEGIN DUP 0 = IF DROP EXIT THEN SWAP OVER MOD AGAIN ;
13:55:42 ##forth <cleobuline> ForthBot: : PGCD BEGIN DUP 0 = IF DROP EXIT THEN SWAP OVER MOD AGAIN ;
13:55:53 ##forth <cleobuline> ForthBot: 100 75 PGCD .
13:55:53 ##forth <ForthBot> 25
13:56:08 ##forth <cleobuline> ForthBot: SEE PGCD
13:56:08 ##forth <ForthBot> : PGCD BEGIN DUP 0 = IF DROP EXIT THEN SWAP OVER MOD AGAIN ;
14:02:32 ##forth * iyzsong write a pong game in FreeForth2 with raylib (o.O) https://codeberg.org/iyzsong/games.ff/src/branch/main/pong.ff
14:04:15 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 3 DO DUP I MOD 0 = IF DROP 0 UNLOOP EXIT THEN 2 +LOOP DROP 1 ;
14:04:15 ##forth <ForthBot> Unknown word: UNLOOP
14:16:47 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 3 DO DUP I MOD 0 = IF DROP 0 UNLOOP EXIT THEN 2 +LOOP DROP 1 ;
14:17:17 ##forth <cleobuline> ForthBot: 127 PRIME? .
14:17:17 ##forth <ForthBot> 1
14:17:30 ##forth <cleobuline> ForthBot: 128 PRIME? .
14:17:30 ##forth <ForthBot> 1
14:17:35 ##forth <cleobuline> lol
14:19:19 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP DUP 2 / 1 + 2 DO DUP I MOD 0 = IF DROP 0 LOOP EXIT THEN LOOP DROP 1 ;
14:19:27 ##forth <cleobuline> ForthBot: 128 PRIME? .
14:19:27 ##forth <ForthBot> 0
14:19:33 ##forth <cleobuline> ForthBot: 127 PRIME? .
14:19:34 ##forth <ForthBot> 1
14:19:47 ##forth <cleobuline> better
14:23:26 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 +LOOP DROP 1 ;
14:23:35 ##forth <cleobuline> ForthBot: 127 PRIME? .
14:23:35 ##forth <ForthBot> 1
14:23:40 ##forth <cleobuline> ForthBot: 128 PRIME? .
14:23:40 ##forth <ForthBot> 1
14:31:42 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 +LOOP DROP 1 ;
14:31:42 ##forth <ForthBot> Unknown word: +LOOP
14:33:14 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 +LOOP DROP 1 ;
14:33:39 ##forth <cleobuline> ForthBot: 128 PRIME? .
14:33:39 ##forth <ForthBot> 1
14:33:43 ##forth <cleobuline> grr
14:35:01 ##forth <veltas> Why do laptops come with almost no fuckin USB ports now
14:37:05 ##forth <cleobuline> that's a progress
14:37:27 ##forth <cleobuline> laptopts come also with no cd reader
14:37:48 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 2 MOD 0 = IF DROP 0 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 PLOOP DROP 1 ;
14:37:48 ##forth <ForthBot> Unknown word: PLOOP
14:37:58 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 2 MOD 0 = IF DROP 0 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 +LOOP DROP 1 ;
14:38:12 ##forth <veltas> cleobuline I'm ignoring you and your bot for 2 days, so I can actually read the content in here because I can't keep on top
14:38:24 ##forth <cleobuline> ForthBot: 128 PRIME? .
14:38:24 ##forth <ForthBot> 0
14:39:02 ##forth <cleobuline> nice
14:39:22 ##forth <veltas> iyzsong: very nice
14:40:12 ##forth <cleobuline> ForthBot: 1234567 PRIME? .
14:40:12 ##forth <ForthBot> 0
14:40:39 ##forth <cleobuline> ForthBot: 127 PRIME? .
14:40:39 ##forth <ForthBot> 1
16:49:13 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 2 MOD 0 = IF DROP 0 EXIT THEN DUP SQRT 3 DO DUP I MOD 0 = IF DROP 0 UNLOOP EXIT THEN 2 +LOOP DROP 1 ;
16:49:30 ##forth <cleobuline> ForthBot: 123456789123457 PRIME? .
16:49:31 ##forth <ForthBot> 1
16:49:45 ##forth <cleobuline> kool
17:21:14 ##forth <cleobuline> ForthBot: 49 807. PRIME? .
17:21:14 ##forth <ForthBot> Unknown word: 49 807.
17:21:14 ##forth <ForthBot> Execution aborted due to error
17:21:24 ##forth <cleobuline> ForthBot: 49 807 . PRIME? .
17:21:25 ##forth <ForthBot> Unknown word: 49 807
17:21:25 ##forth <ForthBot> Stack empty
17:21:46 ##forth <cleobuline> ForthBot: : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 2 MOD 0 = IF DROP 0 EXIT THEN DUP SQRT 3 DO DUP I MOD 0 = IF DROP 0 UNLOOP EXIT THEN 2 +LOOP DROP 1 ;
17:22:10 ##forth <cleobuline> ForthBot: 49807 PRIME? .
17:22:11 ##forth <ForthBot> 1
17:28:26 ##forth <hello-operator> ForthBot: How much wood could a woodchuck chuck if a woodchuck could chuck wood?
17:28:27 ##forth <ForthBot> Unknown word: How
17:28:27 ##forth <ForthBot> Unknown word: much
17:28:27 ##forth <ForthBot> Unknown word: could
17:28:27 ##forth <ForthBot> Unknown word: chuck
17:28:28 ##forth <ForthBot> Unknown word: if
17:28:28 ##forth <ForthBot> Unknown word: a
17:28:29 ##forth <ForthBot> Unknown word: woodchuck
17:28:29 ##forth <ForthBot> Unknown word: could
17:28:30 ##forth <ForthBot> Unknown word: chuck
17:28:30 ##forth <ForthBot> Unknown word: wood?
17:28:37 ##forth <hello-operator> Stoopid robot
17:32:00 ##forth <crc> ForthBot: : DIP >R EXECUTE R> ;
17:32:00 ##forth <ForthBot> Unknown word: >R
17:32:00 ##forth <ForthBot> Unknown word: EXECUTE
17:41:00 ##forth <cleobuline> what's the fuck ?
17:41:20 ##forth <crc> no return stack?
17:41:21 ##forth <cleobuline> ForthBot: LOAD "test.fth"
17:41:39 ##forth <cleobuline> ForthBot: 10 100 RAND .
17:41:40 ##forth <ForthBot> Unknown word: RAND
17:41:59 ##forth <cleobuline> ForthBot: LOAD "test.fth"
17:41:59 ##forth <ForthBot> Error: Incomplete definition detected, resetting compilation
17:41:59 ##forth <ForthBot> Unknown word: ;
17:42:00 ##forth <ForthBot> Unknown word: ;
17:42:18 ##forth <cleobuline> ForthBot: LOAD "test.fth"
17:42:18 ##forth <ForthBot> Error: Incomplete definition detected, resetting compilation
17:42:18 ##forth <ForthBot> Unknown word: ;
17:42:55 ##forth <cleobuline> ForthBot: LOAD "test.fth"
17:42:55 ##forth <ForthBot> Error: Incomplete definition detected, resetting compilation
17:42:55 ##forth <ForthBot> Error: Incomplete definition detected, resetting compilation
17:43:43 ##forth <cleobuline> ForthBot: LOAD "test.fth"
17:43:43 ##forth <ForthBot> Error: Incomplete definition detected, resetting compilation
17:43:43 ##forth <ForthBot> Error: Incomplete definition detected, resetting compilation
17:45:02 ##forth <cleobuline> ForthBot: LOAD "test.fth"
17:45:02 ##forth <ForthBot> Unknown word: @
17:45:03 ##forth <ForthBot> Definition failed for RANDOM: compilation error
17:46:29 ##forth <cleobuline> ForthBot: LOAD "test.fth"
17:46:29 ##forth <ForthBot> Unknown word: @ 1103515245
17:46:29 ##forth <ForthBot> Unknown word: !
17:46:59 ##forth <cleobuline> ForthBot: LOAD "test.fth"
17:46:59 ##forth <ForthBot> Unknown word: @
17:46:59 ##forth <ForthBot> Unknown word: !
17:47:05 ##forth <cleobuline> merde
18:31:25 ##forth <cleobuline> LOAD "test.fth"
18:31:43 ##forth <cleobuline> ForthBot: 10 100 RAND .
18:31:43 ##forth <ForthBot> Unknown word: RAND
18:31:43 ##forth <ForthBot> 100
18:31:46 ##forth <cleobuline> ForthBot: 10 100 RAND .
18:31:47 ##forth <ForthBot> Unknown word: RAND
18:31:47 ##forth <ForthBot> 100
18:31:52 ##forth <cleobuline> zut
18:33:42 ##forth <cleobuline> LOAD "test.fth"
18:33:46 ##forth <cleobuline> ForthBot: 10 100 RAND .
18:33:46 ##forth <ForthBot> Unknown word: RAND
18:33:47 ##forth <ForthBot> 100
18:34:03 ##forth <cleobuline> ForthBot: WORDS
18:34:03 ##forth <ForthBot> DP
18:34:21 ##forth <cleobuline> ForthBot: LOAD "test.fth"
18:34:21 ##forth <ForthBot> Unknown word: @
18:34:22 ##forth <ForthBot> Definition failed for RANDOM: compilation error
18:35:16 ##forth <cleobuline> ForthBot: LOAD "test.fth"
18:35:20 ##forth <cleobuline> ForthBot: 10 100 RAND .
18:35:20 ##forth <ForthBot> 89
18:35:24 ##forth <cleobuline> ForthBot: 10 100 RAND .
18:35:24 ##forth <ForthBot> 37
18:35:29 ##forth <cleobuline> perfect
18:38:54 ##forth <cleobuline> ForthBot: : DICE 1 6 RAND . ;
18:51:44 ##forth <cleobuline> ForthBot: DICE
18:51:45 ##forth <ForthBot> 5
18:52:05 ##forth <cleobuline> and the winner is ?
18:52:31 ##forth <cleobuline> ForthBot: SEE RANDOM
18:52:31 ##forth <ForthBot> : RANDOM SEED @ 1103515245 * 12345 + DUP SEED ! 2147483648 MOD ;
19:25:57 ##forth <cleobuline> crc: not implemented
19:26:28 ##forth <crc> ok
19:48:39 ##forth <cleobuline> ForthBot: DICE
19:48:39 ##forth <ForthBot> 6
19:48:48 ##forth <cleobuline> yeah !
22:10:52 ##forth <cleobuline> ForthBot: LOAD "test.fth"
23:22:44 ##forth <cleobuline> ForthBot: DICE .
23:22:44 ##forth <ForthBot> 6
23:22:48 ##forth <cleobuline> ForthBot: DICE .
23:22:48 ##forth <ForthBot> 5