[TOC] ## 概述 為了指導函數分工,對于問題描述中的每一種依賴關系,定義一個輔助函數。 主函數是一個簡短的定義,而計算由一般化的輔助函數完成 ## 對 cons 的數排序 ``` (sort (cons 1297.04(cons 20000.00(cons -505 25 empty))) 預期 (cons 20000.00(cons1297.04(cons -505.25 empty))) ``` 解答 ``` ;;sort list-of-numbers ->list-of-numbers (sorted) ;;使用表alon的所有元素,創建有序表 (define (sort1 alon) (cond [(empty? alon) empty] [(cons? alon) (insert (first alon) (sort1 (rest alon)))])) ;i insert number list-of-numbers (sorted)->list-of-numbers (sorted) ;;使用n和表alon中的元素,創建降序排列的表; ;;alon是有序表 (define (insert n alon) (cond [(empty? alon) (cons n empty)] [(>= n (first alon)) (cons n alon)] [(< n (first alon)) (cons (first alon) (insert n (rest alon)))])) ;;測試 (define test1 (cons 6 (cons 7 (cons 3 empty)))) (sort1 test1) ; (list 7 6 3) ```