Изменение полей структуры внутри функции?

Я учусь использовать структуры с MIT-схемой и пытаюсь "перевести" следующую функцию с C на схему:

static inline void
body_integrate(struct body *body, double dt)
{                                                                         
  body->vx += dt * body->fx / body->mass;
  body->vy += dt * body->fy / body->mass;
  body->rx += dt * body->vx;
  body->ry += dt * body->vy;                                        
}

Со следующими определениями

(define-structure body rx ry vx vy fx fy mass)

(define integrate (lambda (body dt) (
  (set-body-vx! body (+ (body-vx body) (* dt (/ (body-fx body) (body-mass body)))))
  (set-body-vy! body (+ (body-vy body) (* dt (/ (body-fy body) (body-mass body)))))
  (set-body-rx! body (+ (body-rx body) (* dt (body-vx body))))
  (set-body-ry! body (+ (body-ry body) (* dt (body-vy body))))
)))

Я получил:

MIT/GNU Scheme running under GNU/Linux
Type `^C' (control-C) followed by `H' to obtain information about interrupts.

Copyright (C) 2011 Massachusetts Institute of Technology
This is free software; see the source for copying conditions. There is NO warranty; not even for
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

Image saved on Thursday November 5, 2015 at 8:44:48 PM
  Release 9.1.1 || Microcode 15.3 || Runtime 15.7 || SF 4.41 || LIAR/x86-64 4.118 || Edwin 3.116
;Loading "body.ss"... done

1 ]=> (define b (make-body 1.0 1.0 2.0 2.0 10.0 10.0 0.1))

;Value: b

1 ]=> (integrate b 5.0)    

;The object #!unspecific is not applicable.
;To continue, call RESTART with an option number:
; (RESTART 2) => Specify a procedure to use in its place.
; (RESTART 1) => Return to read-eval-print level 1.

2 error>

У меня такое чувство, что я не могу сделать несколько (set-body-X! ...) внутри integrate. Но тогда как мне это сделать?


scheme mit-scheme
person Alex    schedule 10.05.2016    source источник
comment
У вас есть дополнительный набор скобок вокруг тела вашей лямбды. Удалите их, и ваш код должен работать нормально.   -  person Alexis King    schedule 10.05.2016
comment
Возможный дубликат При последнем рекурсивном вызове функции я получил приложение схемы, а не процедуру   -  person Alexis King    schedule 10.05.2016

Ответы (1)


arrow_upward
3
arrow_downward

Открывающие круглые скобки в конце первой строки неверны, в Scheme, когда вы окружаете выражение (), оно рассматривается как приложение функции, а это не то, что вам нужно здесь.

В любом случае, было бы более идиоматично создать новую структуру с новыми значениями вместо изменения параметра - помните, Scheme поощряет функциональный стиль программирования, и вам следует избегать изменения значений; кроме того, изменение параметра считается плохим стилем в большинстве языков программирования (хотя это нормально в C). Попробуй это:

(define (integrate body dt)
  (make-body (+ (body-rx body) (* dt (body-vx body)))
             (+ (body-ry body) (* dt (body-vy body)))
             (+ (body-vx body) (* dt (/ (body-fx body) (body-mass body))))
             (+ (body-vy body) (* dt (/ (body-fy body) (body-mass body))))
             (body-fx body)
             (body-fy body)
             (body-mass body)))
person Óscar López    schedule 10.05.2016