BiwaScheme on Blogger (2)

test
(map (lambda (n)(let rec ((n n)(acc 1))(if (zero? n)acc(rec (- n 1)(* n acc)))))(iota 20))

記事単体で表示してる時に動かない。ブログ全体で表示すると動く。なんでだ。

<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>

参考

• htmlのフォームのボタンを押したらBiwaSchemeでなんかするサンプル - `(Hello ,world) - cadr group