合成関数を実装する手続きcompose
<pre class="code lang-scheme" data-lang="scheme" data-unlink=""><code class="code-highlight">(define (compose f g)
 (lambda (x)
 (f (g x))))
</code></pre>
<pre class="code" data-lang="" data-unlink=""><code class="code-highlight">gosh> ((compose square inc) 6)
49</code></pre>

合成関数を実装する手続きcompose

<pre class="code lang-scheme" data-lang="scheme" data-unlink>(define (compose f g)
 (lambda (x)
 (f (g x))))
</pre>




<pre class="code" data-lang="" data-unlink>gosh&gt; ((compose square inc) 6)
49</pre>

SICP 問題1.42