功能以创建具有随机数和胜利条件的简化飞镖游戏

Question

我设法用代码创建了一对数字

(defn dart-throwing [] 
   [(- (* 2 (rand-int 2)) 1) (- (* 2 (rand-int 2)) 1)])


(def onetrial (dart-throwing))

，但我不知道如何创建我的获胜条件，该条件将是x^2 + y^2＆lt; 1

我尝试写作，

(defn won? [x y] 
  (< (+ (* x x) (* y y)) 1))

(won? onetrial)

希望它会检查对[]从刺激的情况

我 ， 谢谢

Answer 1

您的代码执行的操作与以下相同：

(defn dart-throwing []
  [(rand-nth [-1 1])
   (rand-nth [-1 1])

(def onetrial (dart-throwing))

rand-nth 从给定的集合中有意选择 - 在本例中为 -1 和 1。

问题是：-1 的平方是 1 - 所以 (+ (* xx) (* yy)) 永远不会 < 小于 1。

所以：什么是won? 函数的意义是什么？

或者飞镖不应该返回 -1 和 1 之间的一些浮点数？从范围内进行选择？在这种情况下，rand-int 是错误的。那么它一定是rand。
因此，应该是 (- (* 2 (rand)) 1) ，而不是 (- (* 2 (rand-int 2)) 1) 。但是，rand 不包括上限 - 在本例中为 1。可以将上限发送到 1 + Float/MIN_VALUE 以包含 1。或者保留它，但在 -1 和 1 之间随机选择，然后将它们与结果相乘 - 然后会得到包含 1 的值。 - 但它不会是均匀分布的......

Answer 2

据我所知，您的投掷实现不正确，返回组件-1 | 1而不是-1 | 0 | 1。

我建议的是这样的：

(defn rand-axis [] (dec (rand-int 3)))

user> (repeatedly 10 rand-axis)
;;=> (-1 -1 0 -1 0 -1 -1 0 1 -1)

然后，您只是在尝试函数中使用它：

(defn attempt [] [(rand-axis) (rand-axis)])

won？似乎是如下：

(defn won? [[x y]] (zero? (+ (* x x) (* y y))))

检查：

user> (doseq [att (repeatedly 10 attempt)]
        (println (str "throw:\t" att "\twon?:\t" (won? att))))
;; throw:   [1 -1]  won?:   false
;; throw:   [-1 1]  won?:   false
;; throw:   [1 -1]  won?:   false
;; throw:   [0 1]   won?:   false
;; throw:   [1 1]   won?:   false
;; throw:   [-1 -1] won?:   false
;; throw:   [0 1]   won?:   false
;; throw:   [-1 1]  won?:   false
;; throw:   [0 0]   won?:   true
;; throw:   [-1 0]  won?:   false

此外，因为唯一的获胜情况是<代码> [0 0] ，won？ counld是这样的：

(defn won? [pair] (= [0 0] pair))

或像这样：

(defn won? [[a b]] (= 0 a b))

甚至是这样：

(def won? (comp boolean #{[0 0]}))

Answer 3

您的won？函数期望两个参数，一个x和y。您的onortrial是两个元素的向量，但是这里是一个参数。

您有几个选择：

您可以使用 apply 将vector传播到参数中列表。

（申请won？oneTrial）

或

您可以重写won？稍微使用破坏

(defn won? [[x y]] 
  (< (+ (* x x) (* y y)) 1))