如何教孩子Scheme编程(2)

第二课 猜数字

• 知识点
  
  • 变量定义
  • 嵌套调用
  • 条件判断

小朋友在课堂上经常玩这样的游戏：一个人心里想一个数字（1～100以内），另一个人猜，看谁能用最少的次数猜出来。这时告诉孩子，你心里想一个数字，让计算机猜，或者计算机想一个数字，你来猜。这个游戏，孩子是无法抗拒的。

小朋友想一个数字，计算机猜

(define lower 1)
(define upper 100)

(define guess2
  (lambda ()
    (display '计算机猜这个数字是:)
    (quotient (+ lower upper) 2)
    )
  )
(define too-small
  (lambda ()
  (set! lower (max lower (+ (guess2) 1)))
  (guess2)))

(define too-big
  (lambda ()
    (set! upper (min upper (- (guess2) 1)))
    (guess2)))

计算机想一个数字，小朋友猜

(define secret (random 100))

(define guess
  (lambda ()
    (display "请输入你猜的数字:")
    (let ((b (string->number (read-line))))
      (cond
        ((= b secret) (display '恭喜！猜对了) (display secret) (set! secret (random 100)))
        ((> b secret) (display '笨蛋！太大了) (guess))
        ((< b secret) (display '笨蛋！太小了) (guess))
        (else (display '不是有效数字) (guess))
        )
      )
    ))

这么短的代码就能实现猜数的功能，小朋友很惊讶！于是小朋友自己玩了很多遍。过了会儿就离开去干别的事情了。

程序逻辑似乎有点难，小朋友在遇到不好理解的东西时习惯性地逃避。好吧，让小朋友歇会儿，我来想想下一课的内容。最好和小朋友念的数学课有关联。