История изменений

Исправление staseg, 20.02.13 17:02 (текущая версия) :

(format nil "~{~a and ~a follow ~a~^~%~}"
	(remove-if-not
	 (lambda (x) (eql (elt x 0) #\J))
	 '("John" "James" "Jakob" "Peter" "Janette" "Tom" "Vasya" "Jean" "Juilia" "Heather")))

udp. Даже без переноса строки после последней строчки.

Исходная версия staseg, 20.02.13 16:59:

Впрочем, держи без нее

(format nil "~{~a and ~a follow ~a~%~}"
	(remove-if-not
	 (lambda (x) (eql (elt x 0) #\J))
	 '("John" "James" "Jakob" "Peter" "Janette" "Tom" "Vasya" "Jean" "Juilia" "Heather")))