Re[2]: Что это
От: Кодёнок  
Дата: 16.06.05 10:32
Оценка:
Здравствуйте, Gaperton, Вы писали:

Scheme:

( define sum
   ( lambda ( from total )
       ( if ( = 0 from )
           total
           ( sum ( - from 1 ) ( + total from ) ) ) ) )
( sum 10 0 )


Неужели кто-то на лиспах отбивает скобки пробелами, по-моему черт знает что получается

Лучше классика:
(define sum
   (lambda (from total)
       (if (= 0 from)
           total
           (sum (- from 1) (+ total from)))))

(sum 10 0)


Или так:
(define sum
   (lambda (from total)
       (if (= 0 from)
           total
           (sum (- from 1 ) (+ total from)) 
       ) 
   ) 
)

(sum 10 0)
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.