Text Details
(publish :path "/hello-count" :content-type "text/html" :function (let ((count 0)) #'(lambda (req ent) (with-http-response (req ent) (with-http-body (req ent) (html (:html (:head (:title "Hello Counter")) (:body ((:font :color (nth (random 5) '("red" "blue" "green" "purple" "black"))) "Hello World had been called " (:princ (incf count)) " times")))))))))
—
AllegroServe Tutorial
(software)
by Franz Inc.
|
Language: | English |
This text has been typed
more than
1000 times:
Avg. speed: | 39 WPM |
---|---|
Avg. accuracy: | 94.7% |
Top 10 scores for this text
User | Speed | Accuracy | Points | Place | Date | Options | |
---|---|---|---|---|---|---|---|
1 | drunkvalikor | 65 WPM | N/A | N/A | 2/2 | Dec 24, 2008 |
![]() ![]() |
2 | valikor_code | 62 WPM | N/A | N/A | 1/2 | Jul 31, 2009 |
![]() ![]() |
3 | motsak | 61 WPM | N/A | N/A | 1/4 | Dec 28, 2008 |
![]() ![]() |
4 | damz | 50 WPM | N/A | N/A | 2/4 | Dec 28, 2008 |
![]() ![]() |