[ (define (answers x) (brl-nonblanks (map string->number (brl-list x)))) (define (stylesheet x) (or (brl-nonblank? x) "/brl.css")) (define-input (stylesheet style) (answers a) (answers b) (answers c) (answers d) (answers e)) (define total 0) (define (row question answer) (brl-when (brl-nonblank? answer) ]<tr> <td align="right">[question] answers ([(length answer)]): </td> <td align="right"> [(apply + answer)]</td> </tr> [ )) ]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>Results</title> <link rel="STYLESHEET" type="text/css" href="[style]" /> </head> <body> <div class="top"> <center> <h1>Results</h1> </center> </div> <hr /> <div class="results"> <table align="center"> [ (row "A" a) (row "B" b) (row "C" c) (row "D" d) (row "E" e) ]<tr> <td colspan="2"><hr /></td> </tr> <tr> <td align="right">Total score:</td> <td align="right">[(apply + (append a b c d e))]</td> </tr> </table> </div> <p><a href="[(brl-source-link brl-context)]">View Source</a></p> </body> </html> |