3

私はこのコードが恐ろしいことをよく知っています。さまざまな Swing を試すことができるように作成しました。これは興味深い問題です。これにより、加算、減算、除算、乗算用の 4 つのボタンが作成されます。乗算と加算は完全に機能し、まったく問題ありませんが、ユーザーが減算しようとすると常に 0 が返されます。ユーザーが除算を試みると、入力に応じて常に 1 または 1.0 が返されます。私はそれを理解することはできません。コードは次のとおりです。

(ns rayne.main
  (:gen-class)
  (:import (javax.swing JFrame JTextField JButton JOptionPane)
           (java.awt.event ActionListener)
           (java.awt GridLayout)))

(def numbers (ref []))
(def times-clicked (ref 0))

(defn calc [nseq op]
  (let [n1 (first nseq)
        n2 (last nseq)]
  (cond
    (= op "+") (+ n1 n2)
    (= op "*") (* n1 n2)
    (= op "-") (- n2 n1)
    (= op "/") (/ n1 n2))))

(defn add-op-button [op text button]
  (.addActionListener button
    (proxy [ActionListener] []
      (actionPerformed [e]
      (dosync
       (ref-set times-clicked (inc @times-clicked))
       (if (= @times-clicked 2)
         (do
         (let [result (.toString (calc @numbers op))
               result2 (read-string result)]
           (.setText text result)
           (ref-set numbers [])
           (ref-set times-clicked 0)))
       (do
         (ref-set numbers (conj @numbers (read-string (.getText text))))
         (.setText text ""))))))))

(defn -main []
  (let [frame (JFrame. "Calculator")
        add-button (JButton. "+")
        sub-button (JButton. "-")
        mul-button (JButton. "*")
        div-button (JButton. "/")
        clr-button (JButton. "Clear")
        text-field (JTextField.)]
    (add-op-button "+" text-field add-button)
    (add-op-button "-" text-field sub-button)
    (add-op-button "*" text-field mul-button)
    (add-op-button "/" text-field div-button)
(doto frame
  (.setLayout (GridLayout. 1 5))
  (.add text-field)
  (.add add-button)
  (.add sub-button)
  (.add mul-button)
  (.add div-button)
  (.setSize 500 100)
  (.setVisible true))))

コピー＆ペーストとその場での書式設定のために、インデントはおそらく台無しになっていますが、そこにあります。もう一度、コードがひどいことを知っています。

4

2 に答える 2

6

ユーザーがボタンを 2 回クリックすると、番号は list に追加されないため、1 つの要素のリストでnumbers実行しています。calc

リストには要素が 1 つしかないため、最初の要素 ( n1) と最後の要素 ( n2) は同じものであり、

x / x => 1
x - x => 0

あなたの加算と乗算が機能していることに驚いています... :-/

@numbersの更新を の前に移動することで、これを修正できると思いますif。

(ref-set numbers (conj @numbers (read-string (.getText text))))
(if (= @times-clicked 2)

または、 のinc残りを の@times-clicked後に移動しifます。

于 2009-03-17T00:32:31.437 に答える
4

add は数値をそれ自体に加算するだけのように見えますが、乗算関数は実際には最初の数値を 2 乗しているだけです。

于 2009-03-17T00:37:00.367 に答える