小编use*_*870的帖子

我正在学习Perl,我遇到了下面的代码:

print $$q, "\n"

有一个$q变量,我们不确切知道它是什么.但是,我们知道当我们运行此代码时,它会打印出来"world".

那么,可能$q是什么？什么$$q意思？

我正在开发一个人们将输入账单的 android 应用程序。我有一个人们输入金额的 EditText。

我想要做的是，例如如果一个人输入“2”，它应该自动转换为“0.02”。然后，如果他/她想输入 22$，他应该按 2、2、0 和 0 按钮。它会像那个“22.00”。我如何使用 EditText 设法做到这一点。你能给我一些想法吗？

这是相关的代码片段：

            <EditText
            android:id="@+id/amount"
            android:layout_width="fill_parent"
            android:layout_height="wrap_content"
            android:layout_marginBottom="20dip"
            android:layout_marginTop="5dip"
            android:inputType="number"
            android:hint="@string/enter_amount"
            android:singleLine="true" />



            EditText payment = (EditText) findViewById(R.id.amount);
            if (payment.getText().toString().length() > 0){
                total_amount =Integer.parseInt(payment.getText().toString()) ;
            }

我有以下代码:

(define (play-loop strat0 strat1 strat2 game-limit)
 (define (play-loop-iter strat0 strat1 strat2 count history0 history1 history2 limit)
  (cond ((= count limit) (print-out-results history0 history1 history2 limit))
      (else (let ((result0 (strat0 history0 history1 history2))
                  (result1 (strat1 history0 history1 history2)
                  (result2 (strat2 history0 history1 history2)))
              (play-loop-iter strat0 strat1 strat2 (+ 1 count)
                              (extend-history result0 history0)
                              (extend-history result1 history1)
                              (extend-history result2 history2)
                              limit)))))
 (play-loop-iter strat0 strat1 strat2 0 '() '() '() game-limit)))

当我在球拍中运行时,它给出了以下错误:

开始(可能是隐含的):在一系列内部定义之后没有表达式:...

我似乎一切都好,但有一个错误,看起来很有趣.

问题是什么？

谢谢...