Schluessel
Schluessel Milia - A LISP Interpreter on Pure JavaScript -

ホーム使用方法 - ダウンロード - サンプル - マニュアル -

Sample 2: フォームを使用する

値1:
値2:
結果:
計算: 加算 減算 乗算 除算

ソース

(define exec
  (lambda ()
    (define getop
      (lambda (x)
        (cond (form1.r1.checked +)
              (form1.r2.checked -)
              (form1.r3.checked *)
              (form1.r4.checked /)
              (else (error "Internal error")))))
    (let ((a (string->number form1.val1.value))
          (b (string->number form1.val2.value))
          (o (getop)))
      (and a b (set! form1.result.value (o a b))))))


Yuichiro Moriguchi
yuichiro-moriguchi@nifty.com