mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 12:37:32 +03:00
52 lines
1.3 KiB
Plaintext
52 lines
1.3 KiB
Plaintext
;; The number guessing game
|
|
|
|
(use IO)
|
|
(use Int)
|
|
(use String)
|
|
|
|
(Project.config "title" "Guessing")
|
|
|
|
(def guessing true)
|
|
(def answer 0)
|
|
|
|
(defn start-new-game! []
|
|
(do (println "~ The Number Guessing Game ~")
|
|
(println "(Enter q to quit.)\n")
|
|
|
|
(set! guessing true)
|
|
(set! answer (random-between 1 100))
|
|
|
|
(print "Please enter a number between 1 - 99: ")))
|
|
|
|
(defn exit! []
|
|
(do (println "Good bye...")
|
|
(set! guessing false)))
|
|
|
|
(defn play-again? [user-input]
|
|
(if (= user-input "y\n") true false))
|
|
|
|
(defn correct! []
|
|
(do (println "Correct!\n")
|
|
(print "Play again? (y/n): ")
|
|
(let [user-input (get-line)]
|
|
(if (play-again? &user-input)
|
|
(start-new-game!)
|
|
(exit!)))))
|
|
|
|
(defn guess-again [low-or-high]
|
|
(do (println &(str* @"Too " @low-or-high @"."))
|
|
(print "\nPlease guess again: ")))
|
|
|
|
(defn main []
|
|
(do (println "Seeding random number generator...\n")
|
|
(Random.seed (Double.from-int (System.time)))
|
|
(start-new-game!)
|
|
(while guessing
|
|
(let [user-input (get-line)
|
|
guessed-num (from-string &user-input)]
|
|
(if (= &user-input "q\n")
|
|
(exit!)
|
|
(cond (< guessed-num answer) (guess-again "low")
|
|
(> guessed-num answer) (guess-again "high")
|
|
(correct!)))))))
|