![[Photo gallery]](/staff/tp/icons/ico_gallery.png){kind=icon}
Aż wstyd, że dopiero dziś się dowiedziałem.
24. października br. zmarł John McCarthy, twórca języka LISP (1958 r.), drugiego po Fortranie języka wysokiego poziomu powszechnie używanego do dziś. Ja też -- nie chwaląc się -- czasami go używam, choć go prawie nie znam:
![[Zdjęcie T. Przechlewskiego]](/personal/rysunki/home-icon.jpg){kind=icon}
(defun My-count-words (&optional begin end)
"count words between BEGIN and END (region); if no region defined,
count words in buffer"
(interactive "r")
(let ((b (if mark-active begin (point-min)))
(e (if mark-active end (point-max))))
(message "Word count: %s" (how-many "\\w+" b e))))
Nieoficjalna nazwa LISPa, to Lots of Irrelevant Silly Parentheses.
Poniższe przypisuje zmiennej current-year
napis zawierający numer bieżącego roku:
(setq current-year (number-to-string (nth 5 (decode-time (current-time)))))
Bez number-to-string zmienna current-year zawierałaby liczbę. Ale wtedy
byłby problem jeżeli coś takiego byłoby
argumentem funkcji concat.