exercise_2.2.1.scm

#lang racket/base

;;; [HTDP] <2.2 变量和程序> <习题 2.2.1>
;;; <合约> Fahrenheit->Celeiue : number->number
;;; <用途> 图形化的操作将华氏温度转化为摄氏温度
(require htdp/convert) ;; 包含"convert.rkt"
(define Fahrenheit->Celeiue ; 定义转换规则
  (lambda (Fahrenheit)
    (* (- Fahrenheit 32) (/ 5 9))))

(convert-gui Fahrenheit->Celeiue) ;; 图像界面, 转换温度
(convert-repl Fahrenheit->Celeiue) ;; 交互输入, 转换温度
(convert-file "in.dat" Fahrenheit->Celeiue "out.dat") ;; 输入输出都在指定文件中, 转换温度

[HTDP] <2.2 变量和程序>