blog/content/post/2008/09/23/2008-09-23-00001032.md

92 lines
7.2 KiB
Markdown
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

---
title: 『プログラミングGauche』自分でmaxを定義してみるアイディアを練ってみる
author: kazu634
date: 2008-09-23
wordtwit_post_info:
- 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4293;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}'
categories:
- gauche
- Lisp
---
<div class="section">
<p>
12章に入る。ここまでで再帰的な考えや高階関数は理解できたように思う。でも、まだまだ再帰的に考えられていないような気がする。
</p>
<p>
とりあえず数値とかの項目で、max, minなどが取り扱われていたので、それを自分で定義してみようと考えている。現在の素朴な発想は
</p>
<pre class="syntax-highlight">
<span class="synSpecial">(</span>define <span class="synSpecial">(</span>my_max<span class="synStatement"> . </span>args<span class="synSpecial">)</span>
<span class="synSpecial">(</span><span class="synStatement">cond</span> [<span class="synSpecial">(</span>argsの要素数が0のとき<span class="synSpecial">)</span> #f]
[<span class="synSpecial">(</span>argsの要素数が1のとき<span class="synSpecial">)</span> <span class="synSpecial">(</span><span class="synStatement">car</span> args<span class="synSpecial">)</span>]
[<span class="synSpecial">(</span>argsの要素数が2のとき<span class="synSpecial">)</span> <span class="synSpecial">(</span><span class="synStatement">if</span> <span class="synSpecial">(</span><span class="synStatement">&#60;</span> <span class="synSpecial">(</span><span class="synStatement">car</span> args<span class="synSpecial">)</span> <span class="synSpecial">(</span><span class="synStatement">cadr</span> args<span class="synSpecial">))</span>
<span class="synSpecial">(</span><span class="synStatement">cadr</span> args<span class="synSpecial">)</span>
<span class="synSpecial">(</span><span class="synStatement">cadr</span> args<span class="synSpecial">))</span>]
[<span class="synSpecial">(</span>argsの要素数が3のとき<span class="synSpecial">)</span> <span class="synSpecial">(</span><span class="synStatement">if</span> <span class="synSpecial">(</span><span class="synStatement">&#60;</span> <span class="synSpecial">(</span><span class="synStatement">car</span> args<span class="synSpecial">)</span> <span class="synSpecial">(</span><span class="synStatement">cadr</span> args<span class="synSpecial">))</span>
<span class="synSpecial">(</span>my_max <span class="synSpecial">(</span><span class="synStatement">cadr</span> args<span class="synSpecial">)</span> <span class="synSpecial">(</span><span class="synStatement">cddr</span> args<span class="synSpecial">))</span>
<span class="synSpecial">(</span>my_max <span class="synSpecial">(</span><span class="synStatement">cadr</span> args<span class="synSpecial">)</span> <span class="synSpecial">(</span><span class="synStatement">cddr</span> args<span class="synSpecial">))))</span>]<span class="synSpecial">)</span>
</pre>
<p>
caar, cddrとかこんがらがってるけど、こんな感じなのかな要素数を調べる手続きもあったんだっけたしけlengthだったような。こいつも考えてみよう。
</p>
<blockquote>
<ul>
<li>
「gauche」に関連する最近のエントリ <ul>
<li>
<a href="http://d.hatena.ne.jp/sirocco634/20080921/1221983678" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/sirocco634/20080921/1221983678', ' 車輪の再発名だけど、ユークリッドの互除法 &#8211; 武蔵の日記');" target="_blank"> 車輪の再発名だけど、ユークリッドの互除法 &#8211; 武蔵の日記</a>
</li>
<li>
<a href="http://d.hatena.ne.jp/sirocco634/20080915/4062138271" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/sirocco634/20080915/4062138271', '武蔵の日記');" target="_blank">武蔵の日記</a>
</li>
<li>
<a href="http://d.hatena.ne.jp/sirocco634/20080907/1220766982" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/sirocco634/20080907/1220766982', ' 練習問題を解いている &#8211; 武蔵の日記');" target="_blank"> 練習問題を解いている &#8211; 武蔵の日記</a>
</li>
<li>
<a href="http://d.hatena.ne.jp/sirocco634/20080906/1220709106" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/sirocco634/20080906/1220709106', ' ソフト開発の過去問で出てきた再帰をGaucheで書く &#8211; 武蔵の日記');" target="_blank"> ソフト開発の過去問で出てきた再帰をGaucheで書く &#8211; 武蔵の日記</a>
</li>
</ul>
</li>
</ul>
</blockquote>
<div class="hatena-asin-detail">
<a href="http://www.amazon.co.jp/dp/4873113482/?tag=hatena_st1-22&ascsubtag=d-7ibv" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://www.amazon.co.jp/dp/4873113482/?tag=hatena_st1-22&ascsubtag=d-7ibv', '');"><img src="https://images-na.ssl-images-amazon.com/images/I/51Exg14b4uL._SL160_.jpg" class="hatena-asin-detail-image" alt="プログラミングGauche" title="プログラミングGauche" /></a></p>
<div class="hatena-asin-detail-info">
<p class="hatena-asin-detail-title">
<a href="http://www.amazon.co.jp/dp/4873113482/?tag=hatena_st1-22&ascsubtag=d-7ibv" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://www.amazon.co.jp/dp/4873113482/?tag=hatena_st1-22&ascsubtag=d-7ibv', 'プログラミングGauche');">プログラミングGauche</a>
</p>
<ul>
<li>
<span class="hatena-asin-detail-label">作者:</span> <a href="http://d.hatena.ne.jp/keyword/Kahua%A5%D7%A5%ED%A5%B8%A5%A7%A5%AF%A5%C8" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/keyword/Kahua%A5%D7%A5%ED%A5%B8%A5%A7%A5%AF%A5%C8', 'Kahuaプロジェクト');" class="keyword">Kahuaプロジェクト</a>,<a href="http://d.hatena.ne.jp/keyword/%C0%EE%B9%E7%BB%CB%CF%AF" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/keyword/%C0%EE%B9%E7%BB%CB%CF%AF', '川合史朗');" class="keyword">川合史朗</a>
</li>
<li>
<span class="hatena-asin-detail-label">出版社/メーカー:</span> <a href="http://d.hatena.ne.jp/keyword/%A5%AA%A5%E9%A5%A4%A5%EA%A1%BC%A5%B8%A5%E3%A5%D1%A5%F3" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/keyword/%A5%AA%A5%E9%A5%A4%A5%EA%A1%BC%A5%B8%A5%E3%A5%D1%A5%F3', 'オライリージャパン');" class="keyword">オライリージャパン</a>
</li>
<li>
<span class="hatena-asin-detail-label">発売日:</span> 2008/03/14
</li>
<li>
<span class="hatena-asin-detail-label">メディア:</span> 大型本
</li>
<li>
<span class="hatena-asin-detail-label">購入</span>: 22人 <span class="hatena-asin-detail-label">クリック</span>: 713回
</li>
<li>
<a href="http://d.hatena.ne.jp/asin/4873113482" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/asin/4873113482', 'この商品を含むブログ (272件) を見る');" target="_blank">この商品を含むブログ (272件) を見る</a>
</li>
</ul>
</div>
<div class="hatena-asin-detail-foot">
</div>
</div>
</div>