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") ;; 输入输出都在指定文件中, 转换温度
原文：http://my.oschina.net/lsgx/blog/362137