Forum 1 Grupy Ćwiczeniowej
Forum studentów informatyki Politechniki Białostockiej
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj
Forum Forum 1 Grupy Ćwiczeniowej Strona Główna
->
Systemy ekspertowe
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
TAK
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz HTML w tym poście
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
To już 5 semestr???
----------------
Programowanie systemów aplikacyjnych
Metody probabilistyczne i statystyka
Grafika komputerowa
Systemy operacyjne
Układy elektroniczne
Systemy ekspertowe
Angielski
Architektura Komputerów
Bazy Danych
Systemy Samouczące
Bezpieczeństwo Systemów Komputerowych
Systemy Operacyjne 2
Programowanie Obiektowe
Statystyka 2
OiPL [o ile cos takiego bedzie]
Linux
4 semestr
3 semestr
Chillout
----------------
Spam Room
Humor
ShoutBox
Przegląd tematu
Autor
Wiadomość
boro
Wysłany: Śro 21:49, 04 Cze 2008
Temat postu:
Dzieki uprzejmości Rafała, któremu chciało się cokolwiek pisać na zajęciach:
Kod:
(defun dl (n)
(if (NULL n)
0
(+
(if (listp (car n))
(dl (car n))
1
)
(dl (cdr n))
)
)
)
;ilosc liczb na liscie rekurencyjnie tylko po cdr
(defun dlnum (n)
(if (NULL n)
0
(+
(if (numberp (car n)) 1 0)
(dlnum (cdr n))
)
)
)
;ilosc liczb na liscie rekurencyjnie po cdr i car
(defun dlnum2 (n)
(if (NULL n)
0
(+
(if (numberp (car n))
1
(if (listp (car n))
(dlnum2 (car n))
0
)
)
(dlnum2 (cdr n))
)
)
)
;suma liczb na liscie rekurencyjnie po cdr i car
(defun dlnum3 (n)
(if (NULL n)
0
(+
(if (numberp (car n))
(car n )
(if (listp (car n))
(dlnum3 (car n))
0
)
)
(dlnum3 (cdr n))
)
)
)
vbazyl
Wysłany: Wto 18:45, 03 Cze 2008
Temat postu: Lisp
Na prośbę notatki z zajęć:
(DEFUN nazwa_funkcji (parametry) (polecenia))
(DEFUN pole_kwadratu (bok) (* bok bok))
(second '(milk bread coffe))
(cons 'sugar '(bread milk coffe))
(list 1 2 3 '(a b))
1. funkcja zwracająca ostatni element listy
2. funkcja wstawiającą element na koniec listy (parametry -element i lista)
3. funkcja usuwa ostatni element listy
4. funkcja zamieniająca ostatni element listy na wyrażenie (parametry - wyrażenie i lista)
Kod:
1. (defun ostatni (list) (first (reverse list)))
2. (defun wstaw (a list) (reverse (cons a (reverse list))))
3. defun usun (list) (reverse (append (rest (reverse list)))))
4. (defun zamien (a list) (reverse (cons a (append (rest (reverse list))))))
Predykaty:
(atom '(a b c))
(consp 'u) ->nil
(consp '(a b)) ->t
(consp nil) ->nil
(listp nil) ->t
(listp '(a b c)) ->t
(listp 12) ->nil
(equal '(a b) '(a b)) ->t
(endp lista) ->sprawdza czy pusta
(end nil) ->t
(endp '(a b)) -> nil
(endp 12) ->error
(zerop liczba) ->sprawdza czy liczba jest zerem
(zerop nil) -> error
(member wyrazenie lista)
(member 'a '(a b c))
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
deoxBlue v1.0 // Theme created by
Sopel stylerbb.net & programosy.pl
Regulamin