К Lisp программистам.

0

0

for (m = 1; m<m_max; m++)
{
Speed[1][m] = (kViscosity*dt)*(Speed[0][m+1]-2*Speed[0][m]+Speed[0][m+1])/(dr*dr) +
(kViscosity*dt)*(Speed[0][m+1]-Speed[0][m-1])/(2*m*dr*dr) -
(kViscosity*dt)*(Speed[0][m]*Speed[0][m])/(m*m*dr*dr) +
Speed[0][m];
}
Уважаемые знатоки Lisp-а, скажите, пожалуйста, как будет выглядеть выражение эквивалентное данному, записанное на Common Lisp.

Ссылка

←	FOX Toolkit: ищу переводы уроков

Функции в Python

→

"знатоки Lisp-а", впрочем как и любые другие "знатоки", такую _неоптимизированную_ херь писать не будут.

yyk ★★★★★
(26.02.07 00:00:04 MSK)

Ссылка

лисп не для таких задач??

theserg ★★★
(26.02.07 00:11:19 MSK)

для единичного случая чёто вроде такого я думаю:

(loop for m from 1 below m_max do
    (setf (aref Speed 1 m)
        (let* (
          (k (/ (* kViscosity dt) dr dr))
          (ss (aref Speed 0 m))
          (sp (aref Speed 0 (+ m 1)))
          (sm (aref Speed 0 (- m 1)))
          (a1 (* 2 (- sp ss)))
          (a2 (/ (- sp sm) (* 2 m)))
          (a3 (/ (* ss ss) (* m m)))
            (+ (* k (+ a1 a2 (- a3))) ss)))))

а если таких художеств в проге много, наверное луче было бы
 применить http://www.dwheeler.com/readable/sweet-expressions.html

~~bugmaker~~ ★★★★☆
(26.02.07 03:52:20 MSK)