《程序设计方法（第二版）》第三章习题47_用prolog语言编写程序,有两个无刻度量具x和y,分别可装4升和3升。请在不借用其他-CSDN博客

本文链接：https://blog.csdn.net/zs_961203/article/details/124847598

本文介绍如何使用Scheme编程创建一个互动程序，通过键盘操作调整角色的开心值，并利用`render`函数实现快乐值影响元素长度。关键点在于定义`tockhs`、`pethske`和`renderhs`函数，以及整体的程序流程。

摘要由CSDN通过智能技术生成

这个作业的关键点就是在设定一个函数可以接受键盘的"up"和"donw"键，这个键可以调整开心值，然后设定这个"render"函数，可以根据开心值调整长度，这样就可以了。


(require 2htdp/image)
(require 2htdp/universe)


(define BACKGROUND (empty-scene 100 20))

(check-expect (tock 100) 99.9)
(check-expect (tock 50) 49.9)
(check-expect (tock 0) 0)

;;tock
; HapinessState -> HappinessState
;随着时间增加快乐减少
(define (tock hs)
  (cond
    [(> hs 0) (- hs .1)]
    [else 0]))

(check-expect (pet 100 "down") 100)
(check-expect (pet 50 "down") 60)
(check-expect (pet 0 "down") 0)
(check-expect (pet 100 "up") 100)
(check-expect (pet 30 "up") 40)
(check-expect (pet 0 "up") 0)

;;pet
; HappinessState String -> HappinessState
;上箭头快乐值+1/5，下箭头快乐值+1/3
(define (pet hs ke)
  (cond
    [(= hs 100) 100]
    [(= hs 0) 0]
    [else (cond
    [(string=? ke "down") (+ hs (/ hs 5))]
    [(string=? ke "up") (+ hs (/ hs 3))])]))

;;render
(check-expect (render 0) (place-image/align (rectangle 0 20 "solid" "red") 0 0 "left" "top" BACKGROUND)) 
(check-expect (render 50) (place-image/align (rectangle 50 20 "solid" "red") 0 0 "left" "top" BACKGROUND)) 
(check-expect (render 100) (place-image/align (rectangle 100 20 "solid" "red") 0 0 "left" "top" BACKGROUND))

(define (render hs)
  (place-image/align (rectangle hs 20 "solid" "red") 0 0 "left" "top" BACKGROUND))
;;stop-when
; HappinessState -> End of Program
; 当快乐值为0时程序终止

;;main
; HappinessState -> HappinessState
; 以快乐值为100开始

(define (gauge-prog hs)
  (big-bang 100
    [on-tick tock]
    [on-draw render]
    [on-key pet]
    [stop-when zero?]))