Абстрагирование функций / избегание повторения в функциях - PullRequest
Новая
       3

Абстрагирование функций / избегание повторения в функциях

1 голос
/ 06 января 2011

Мне нужен совет по абстрагированию функций find и check-callback. Код работает нормально, но кажется, что есть много ненужных повторений. Есть ли более элегантный способ переписать их? 

;; Model
(define-struct contact (name phone))
(define phonebook (list (make-contact 'adam 5551212)
                        (make-contact 'brian 5552323)
                        (make-contact 'chris 5558888)))

;; find: (string->symbol, string->number) item (listof items) -> symbol/number/false
(define (find type item pb)
  (cond
    [(empty? pb) false]
    [(equal? (string->symbol item) (contact-name (first pb))) (contact-phone (first pb))]
    [(equal? (string->number item) (contact-phone (first pb))) (contact-name (first pb))]
    [else (find type item (rest pb))]))

;; Controller
(define (check-callback b)
  (cond
    [(number? (find string->symbol (text-contents a-text-field) phonebook))
     (draw-message a-msg (number->string (find string->symbol (text-contents a-text-field) phonebook)))]
    [(symbol? (find string->number (text-contents a-text-field) phonebook))
     (draw-message a-msg (symbol->string (find string->number (text-contents a-text-field) phonebook)))]
    [else (draw-message a-msg "Not found")]))


;; View
(define a-text-field
  (make-text "Enter a name or phone number"))

(define a-msg
  (make-message ""))

(define a-button
  (make-button "Search" check-callback))

(create-window
 (list (list a-text-field)
       (list a-button)
       (list a-msg)))

1 Ответ

1 голос
/ 06 января 2011

Поскольку переменная type не используется, я исключил ее из кода и произвел рефакторинг: 

;; find
(define (find item pb)
  (let* ((first-pb (first pb))
         (name (contact-name first-pb))
         (phone (contact-phone first-pb)))
    (cond
      [(empty? pb) #f]
      [(equal? (string->symbol item) name) phone]
      [(equal? (string->number item) phone) name]
      [else (find item (rest pb))])))

;; Controller
(define (check-callback pb)
  (let ((res (find (text-contents a-text-field) pb)))
    (draw-message a-msg
                  (cond
                    [(number? res) (number->string res)]
                    [(symbol? res) (symbol->string res)]
                    [else "Not found"]))))

Или вы можете сразу преобразовать свое имя и телефон в строку: 

;; find
(define (find item pb)
  (let* ((first-pb (first pb))
         (name (contact-name first-pb))
         (phone (contact-phone first-pb)))
    (cond
      [(empty? pb) #f]
      [(equal? (string->symbol item) name) (number->string phone)]
      [(equal? (string->number item) phone) (symbol->string name)]
      [else (find item (rest pb))])))

;; Controller
(define (check-callback pb)
  (let ((res (find (text-contents a-text-field) pb)))
    (draw-message a-msg
                  (if (res)
                    res
                    "Not found"))))
...