SICPゼミ第25回
練習問題3.48
ループができないから。
serialized-exchange の実装例
;今までの serialized-exchange と同じやつ (define (serialized-exchange account1 account2) (let (( serializer1 (account1 'serializer )) (serializer2 (account2 'serializer ))) (( serializer1 (serializer2 exchange )) account1 account2 ))) (define (serialized-exchange-renewal account1 account2) (let ((id1 (get-ID account1)) (id2 (get-ID account2))) (if (> id1 id2) (serialized-exchange account2 accoun1) (serialized-exchange account1 account2))))
by tube