記事単体で表示してる時に動かない。ブログ全体で表示すると動く。なんでだ。
<textarea cols="50" id="bs-input" rows="5">(map (lambda (n)(let rec ((n n)(acc 1))(if (zero? n)acc(rec (- n 1)(* n acc)))))(iota 100))</textarea> <button id="eval">eval</button> <div id="bs-console2" style="border: dotted;"> </div> <script src="biwascheme.js"> (define (eval-code arg) (let* ((src (get-content ($ "bs-input"))) (code (read-from-string src))) (element-update! ($ "bs-console2")(eval code)))) (add-handler! ($ "eval") "click" eval-code) </script>
0 件のコメント:
コメントを投稿