Get Ostatnim elementem każdej listy

Question

Powiedzmy mam listę ((3 4 5) (d e f) (h i j) (5 5 5 5))

Jak mogę dostać ostatni element każdej listy w taki sposób, że wyjście będzie wyglądać następująco (5 f j 5)?

Answer 1

Napisz procedurę, która zwraca ostatni element z listy, a następnie poznaj trochę na temat wbudowanej procedury MAP (a.k.a. MAPCAR) i zobacz, czy zgaśnie jakaś żarówka.

Answer 2

Zakładając, że chodzi o Common Lisp, istnieje funkcja last, która zwraca listę zawierającą ostatni element listy. Jeśli użyjesz tej funkcji z mapcan, która stosuje daną funkcję do każdego elementu listy i zwraca połączone wyniki, dostaniesz to, czego chcesz.

Pamiętaj jednak, że dostęp do ostatniego elementu listy to operacja O(N), więc jeśli to nie jest tylko praca domowa, możesz rozważyć, czy nie możesz rozwiązać prawdziwego problemu wydajniej niż przy ostatnim pozycja każdej listy (może zamiast tego użyć innej bazy danych).

Answer 3

To, podobnie jak większość wczesnych problemów z pracą domową LISPy, jest ćwiczeniem w rekurencyjnym myśleniu i/lub myśleniem w kategoriach indukcji. Na początek możesz zadać sobie proste pytania, na które łatwo odpowiesz.

Na przykład, jeśli został poproszony o napisanie czegoś, co dał ci pierwszy element w każdej liście, bym coś o tym w ten sposób:

Biorąc pod uwagę listę list:

1. Co jest pierwszym elementem każdej listy na liście '()? (easy - null)
2. Co jest pierwszym elementem każdej listy na liście '(a)? (easy - a, lub może błąd)
3. Co jest pierwszym elementem każdej listy na liście '((a))? (easy - (a))
4. Co to jest pierwszy element dowolnej listy w formularzu '(anything), gdzie wszystko jest listą? (easy - (first anything))
5. Jaki jest pierwszy element każdej listy w postaci '(anything morestuff)? (easy - (cons (first anything) (first-element morestuff)))
6. Co to jest pierwszy atom? albo atom, albo błąd (zależy od twojego punktu widzenia)
7. Co to jest pierwszy z wartości null? nil.
8. Co to jest pierwsza lista? (car list)

Stąd możemy zacząć pisać kod:

;; 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 

Teraz to nie swoją pracę domową (celowo). Powinieneś grać z tym i zrozumieć, jak to działa. Twoim następnym celem powinno być, aby dowiedzieć się, jak to się różni od twojego zadania i jak się tam dostać.

Co się tyczy MAPCAR? Nie przejmuj się tym. Najpierw musisz nauczyć się rozwiązywać problemy rekurencyjne. Wtedy możesz martwić się o MAPCAR. Jaki jest cel tego zadania? Aby pomóc Ci nauczyć się myśleć w tym trybie.Dang w pobliżu wszystko w LISP/Scheme rozwiązuje się, myśląc w ten sposób.

Powód, dla którego poszedłem z wszystkimi pytaniami, aby rozbić go na części, o które się martwię. Jeśli dostanę zadanie "jak zrobić foo na każdym elemencie na liście?" Powinienem odpowiedzieć na pytania: Jak mam obsłużyć zero? Jak obchodzić się z atomem? Jak mam obchodzić się z pierwszym elementem na liście? Jak radzić sobie ze wszystkim innym? Kiedy już na nie odpowiedziałem, zastanawiam się, jak właściwie zrobić foo. Jak zrobić foo na zero? Jak zrobić foo na atomie? Jak zrobić foo na liście?

Answer 4

prawdopodobnie jest już rozwiązany, ale zorientowaliśmy się

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

Teraz działa to dla legit liście ... więc jeśli wywołanie funkcji Sfil z właściwej listy .... jeśli nie, to będzie powrót NIL

miejmy nadzieję będzie to pomocne dla każdego, kto uzna

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)) 

jako początkujący LISP, wysłać moje rozwiązanie.