> 1 <

Автор Сообщение

Киселева А. Г.

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#4372   2011-05-25 13:24 GMT+3 часа(ов)      
Посчитать 1+2+3+...+n

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#4384   2011-05-25 23:26 GMT+3 часа(ов)      
(defun foo (n)
(if (= n 0) 0 (+ n (foo (1- n)))))
 
(defun foo1 (n &optional (s 0))
(if (= n 0) s (foo1 (1- n) (+ s n))))
 
(defun foo2 (n)
(eval `(+ ,@(loop for i from 1 to n collect i))))
 
(defun foo3 (n)
(let ((s 0))
(do ((i n (1- i))) ((= i 0) s) (incf s i))))
 
(defun foo4 (n)
(loop for i from 0 to n sum i))
I wish I'd made you angry earlier
> 1 <


Онлайн :

0 пользователь(ей), 51 гость(ей) :