diff options
Diffstat (limited to 'bot.scm')
-rw-r--r-- | bot.scm | 24 |
1 files changed, 24 insertions, 0 deletions
@@ -0,0 +1,24 @@ +(include "telebot.scm") +(import (prefix telebot telebot:)) + +(define (assure-list value) + (if (list? value) + value + (list))) + +(define (find-pair symbol nodes) + (find (lambda (x) (equal? symbol (car x))) + (filter pair? nodes))) + +(define (resolve-query query tree) + (fold-right (lambda (x y) (find-pair x (assure-list y))) + tree + (reverse query))) + +(define token (car (command-line-arguments))) + +(print (resolve-query (list 'result 'username) + (telebot:get-me token))) + +(pretty-print (resolve-query (list 'result) + (telebot:get-updates token))) |