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: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