18 lines
429 B
Racket
18 lines
429 B
Racket
#lang web-server
|
|
(define interface-version 'stateless)
|
|
(provide start interface-version)
|
|
|
|
(define (gn which)
|
|
(cadr
|
|
(call-with-serializable-current-continuation
|
|
(lambda (k)
|
|
(let ([ignore (printf "Please send the ~a number.~n" which)])
|
|
k)))))
|
|
|
|
(define (start initial)
|
|
(let ([ans (+ (gn "first")
|
|
(gn "second")
|
|
(gn "third"))])
|
|
(printf "The answer is: ~s~n" ans)
|
|
ans))
|