Hi everyone,
I am new here, and I have a couple of questions related to the code that
follows this message.
1. I want to learn functional programming. When it comes to solving the
problem of making a simple chatbot such as this, is there an approach that
is more consistent with functional programming?
2. I would prefer to not have to use multiple spaces every time I want to
indent. Does Dr. Racket have anything comparable to the tab functionality
of other programs?
Thank you for letting me join your community!
Karona
;example.rkt
#lang racket
(require racket/match)
(define (say str)
(printf "Chatbot: ~a\n" str))
(define (handle-input str)
(cond
[(regexp-match #px"(?i:Hello,* world!)" str)
(say "I would not know about the rest of the world, but I can
hear \
you just fine.")]
[(regexp-match #px"(?i:I( am|'m) learning how to program in
Racket,* world!)" str)
(say "Racket is a great language, and it is lovely that you are
\
learning it, but does literally everyone need to know?")]
[(regexp-match #px".*,+\\s*world!" str)
(say "Did the whole world really need to hear that?")]
[else (say "Did you really just say something without addressing
the \
world? I am so proud of you! :,)")]))
(let loop ()
(display "Input: ")
(define str (read-line (current-input-port) 'any))
(handle-input str)
(loop))
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/2f107ab5-2efd-4c33-83f6-eb5751664cb6n%40googlegroups.com.
