순서가 설정 표기

Question

I 해요 내 처분에 정렬 된 구조의 다음 구현을 제공 :

이

;; os-empty   an empty set 
;; (os-singleton e) produces a set with one element e 
;; (os-member s e) produces true if e is a member of s; false otherwise 
;; (os-union s t) produces union of s and t in time 
;;         O(min(|s|,|t|) log max(|s|,|t|) 
;; (os-intersection s t) produces intersection of s and t in time 
;;         O(min(|s|,|t|) log max(|s|,|t|) 
;; (os-difference s t) produces difference s \ t in time 
;;         O(min(|s|,|t|) log max(|s|,|t|) 
;; (os-min s)  produces the to-min element of s, or to-min-ident 
;;      running time: O(log |s|) 
;; (os-max s)  produces the to-max element of s, or to-max-ident 
;;      running time: O(log |s|) 
;; (os-after s e) produces the to-min element of s which is to> than e 
;;      running time: O(log |s|) 
;; (os-before s e) produces the to-max element of s which is to< than e 
;;      running time: O(log |s|) 
;; (os-op)   produces the result of applying to-op over all e in s 
;;      running time: O(1) 

이 코드는 다음 파일에서 찾을 수 있습니다 https://www.student.cs.uwaterloo.ca/~cs136/assignments/a8/ordered-set.rkt 및 https://www.student.cs.uwaterloo.ca/~cs136/assignments/a8/total-order.rkt

을 구조는하지 않습니다 그 안에 중복을 허용하십시오. 여기에 내 문제가있다 : 각 개별 정수를 오름차순으로 쓴 다음 공백을 쓴 다음 입력에서 발생하는 횟수를 출력의 별도 라인에 쓴 프로그램을 작성해야합니다. 여기

Sample Input 

1 
3 
2 
1 
Output for Sample Input 

1 2 
2 1 
3 1 

내가있어 무엇 :

;;Prints in ascending order 
    (define (printer e s) 
     (cond 
     [(equal? (to-unhide e) +inf.0) (printf "")] 
     [else (printf "~a\n" (to-unhide e)) (printer (os-after s e) s)])) 


    (define (main) 
    (define x (read)) 
    (cond 
     [(eof-object? x) (printer (os-min o) o)] 
     [(os-member o (os-singlton (to-hide x))) ....... <--- What to do? 
     [else (set! o (os-union (os-singleton (to-hide x)) o)) (main)])) 


    (main) 

내 문제는 X를 기반으로 카운터를 만드는 방법, 그리고 ... 내가 생각 x의 특별한 그 카운터를 만드는 방법입니다 변수를 생성하는 함수를 만드는 것에 관해서 말입니다.하지만 Scheme에서는 이것이 가능하지 않다고 생각합니다. 이 구조를 사용하여 입력이 사용 된 시간을 기억하는 방법에 대한 제안이 있습니까?

Answer 1

작은 덩어리로 작업을 분리하십시오. 여기에 작업을 작은 기능으로 나누는 한 가지 방법이 있습니다.

1. 쓰기 목록 -> 주문 - 설정 :리스트의-번호 -> 번호 목록을 변환 을 설정 한 주문의 순서로 설정합니다.

2. 쓰기 읽기 번호 :리스트의-문자열 ->리스트의-번호 번호 목록에 문자열의 목록을 변환

3. 쓰기 읽기 모든 선을 -> 목록 - of-strings eof가 나타날 때까지 read-line을 반복적으로 사용하는 것은 이고, 읽히는 모든 행의 목록을 반환합니다.

4. 프린터를 사용하십시오 (list-> ordered-set (read-numbers (read-all-lines))).