aboutsummaryrefslogtreecommitdiff
path: root/example/guess.scm
blob: 2215380bd5b2194b735b6095d29b438832c6fa8b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
(require-extension telebot
                   (prefix telebot telebot:))

(use srfi-69)
(use extras)
(use data-structures)

(define (resolve-query query tree)
  (fold (lambda (x y) (alist-ref x y))
        tree
        query))

(define token (car (command-line-arguments)))
(define conversations (make-hash-table))

(define (send chat_id text)
  (print chat_id " <- \"" text "\"")
  (telebot:sendMessage token
                       chat_id: chat_id
                       text:    text))

(define (make-conversation chat_id)
  (let ((chat_id chat_id)
        (answer  (random 100)))
    (lambda (text)
      (let ((guess (string->number text)))
        (if (number? guess)
          (cond ((= guess answer)
                 (begin (send chat_id "Correct! Feel free to guess the next number.")
                        (set! answer (random 100))))
                ((< guess answer) (send chat_id "Too small. Try again."))
                ((> guess answer) (send chat_id "Too large. Try again.")))
          (send chat_id
                "This is not a number - please provide your guess in base 10."))))))

(define (handle-message m)
  (let ((chat_id (resolve-query '(message from id) m))
        (text    (resolve-query '(message text)    m)))
    (print chat_id " -> \"" text "\"")
    (if (hash-table-exists? conversations chat_id)
      ((hash-table-ref conversations chat_id) text)
      (begin (hash-table-set! conversations
                              chat_id
                              (make-conversation chat_id))
             (send chat_id
                   "Hi there! I just generated a random number for you to guess!")))))

(randomize)
(telebot:pollUpdates token
                     (lambda (u) (if (telebot:is-message? u)
                                   (handle-message u))))