각 목록

Question

의 마지막 요소는 우리가 내가 목록 I 출력이 (5 F j를 5)과 같을 것이다 방식으로 각리스트의 마지막 요소를 얻을 수있는 방법 ((3 4 5) (d e f) (h i j) (5 5 5 5))

있다고 가정 해 봅시다하기?

Answer 1

목록의 마지막 요소를 반환하는 절차를 작성한 다음 내장형 MAP (a.k.a. MAPCAR) 절차에 대해 조금 배우고 전구가 꺼져 있는지 확인하십시오.

Answer 2

이것이 Common Lisp에 관한 것이라고 가정하면, 목록의 마지막 항목을 포함하는 목록을 반환하는 함수 last이 있습니다. mapcan과 함께이 함수를 사용하면 목록의 각 요소에 특정 함수를 적용하고 연결된 결과를 반환하므로 원하는 결과를 얻을 수 있습니다.

목록의 마지막 요소에 액세스하는 것은 O(N) 작업이므로 결국 숙제가 아니라면 마지막 문제를 해결하는 것보다 실제 문제를 더 효율적으로 해결할 수 없는지 고려해보십시오 (아마도 다른 데이터 구조를 대신 사용할 수도 있습니다).

Answer 3

대부분의 초기 LISPy 숙제 문제와 마찬가지로 생각을 재귀 적으로 그리고/또는 유도 측면에서 생각하는 연습입니다. 시작하는 방법은 쉽게 대답 할 수있는 간단한 질문을하는 것입니다. 예를 들어

, 각 목록에 당신에게 첫 번째 요소를 준 뭔가를 작성하는 요청 된 경우, 나는 것이 방법에 관한 일 :

이 목록의 목록을 감안할 때 :

1. 무엇 목록의 모든 목록의 첫 번째 요소입니다. '()? (쉬운 - null)
2. 목록에있는 모든 목록의 첫 번째 요소는 무엇입니까 '(a)? (쉬운 - a, 또는 아마도 오류)
3. 목록의 모든 목록의 첫 번째 요소는 무엇입니까 '((a))? (쉬운 - (a))
4. '(anything) 형식의 목록 중 첫 번째 요소는 무엇입니까? (쉬운 - (first anything))
5. '(anything morestuff) 양식의 모든 목록의 첫 번째 요소는 무엇입니까? (쉬운 - (cons (first anything) (first-element morestuff)))
6. 원자의 처음은 무엇입니까? 원자 또는 오류 (사용자의 관점에 따라 다름)
7. 첫 번째 null입니까? nil.
8. 첫 번째 목록은 무엇입니까? (car list)

여기에서 우리는 코드를 작성 시작할 수 있습니다

;; here's first, meeting questions 6-8 
(define first (lambda (l) 
    (cond 
    ((null? l) nil) ; Q7 
    ((atom? l) l) ; Q6 
    (t (car l))))) ; Q8 

;; with first we can write first-element, meeting questions 1-5 
(define first-element (lambda (l) 
    (cond 
    ((null? l) nil) ; Q1 
    ((atom? l) (first l)) ; Q2 
    (t (cons (first (car l) (first-element (cdr l)))))))) ; Q4-5 

지금이 당신의 숙제 (의도적으로) 아니다. 이걸 가지고 놀고 어떻게 작동하는지 이해해야합니다. 당신의 다음 목표는 이것이 당신의 임무와 어떻게 다른지와 거기에 도착하는 방법을 찾아야합니다.

MAPCAR와 관련하여? 그것에 대해 걱정하지 마십시오. 재귀 적 문제를 먼저 푸는 방법을 배워야합니다. 그렇다면 MAPCAR에 대해 걱정할 수 있습니다. 이 임무의 요점은 무엇입니까? 이 모드에서 사고하는 법을 배울 수 있습니다.Dou 근처 LISP/Scheme의은 이런 식으로 생각합니다.

내가 걱정하고있는 부분으로 모든 질문을 다뤘던 이유. "목록의 모든 항목에 대해 어떻게해야합니까?"라는 작업이 주어진다면 질문에 대답해야합니다 : null 처리는 어떻게합니까? 어떻게 원자를 다루는가? 목록의 첫 번째 요소를 처리하려면 어떻게해야합니까? 어떻게해야합니까? 일단 내가 대답했다면, 나는 foo를 실제로 어떻게 수행하는지 알아 낸다. null에서 foo는 어떻게합니까? 어떻게하면 원자에 foo를 할 수 있습니까? 목록에서 foo를 어떻게 수행합니까?

Answer 4

아마 이미 해결된다,하지만 난 생각이 밖으로

; SELECT-FROM-INNER-LIST :: [list] -> [list] 
(DEFUN SFIL (lst) 
    (COND ((NULL lst) NIL) 
     ((LISTP (FIRST lst)) (APPEND (LAST (FIRST lst)) (SFIL (REST lst)))) 
)) 

, 그것은하지 않습니다 경우 .... 올바른 목록 기능 SFIL를 호출 할 경우 그래서 지금,이 ... 합법적 목록 작동 혀짤배기의 초보자로에게

Answer 5

(defun get-last-lists (s) 
    (setq rt 'nil) 
    (loop for i from 0 to (- (length s) 1) 
     do (setq rt (append rt (last (nth i s))))) 
    (print rt)) 

을 찾아 누군가를 위해,

NIL

는 희망이 도움이 될 것입니다 반환, 난 내 솔루션을 게시 할 수 있습니다.