93 lines
7.3 KiB
Markdown
93 lines
7.3 KiB
Markdown
|
---
|
|||
|
|
title: 『プログラミングGauche』自分でmaxを定義してみる（アイディアを練ってみる）
|
|||
|
|
author: kazu634
|
|||
|
|
date: 2008-09-23
|
|||
|
|
url: /2008/09/23/_1109/
|
|||
|
|
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"><</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"><</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', ' 車輪の再発名だけど、ユークリッドの互除法 – 武蔵の日記');" target="_blank"> 車輪の再発名だけど、ユークリッドの互除法 – 武蔵の日記</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', ' 練習問題を解いている – 武蔵の日記');" target="_blank"> 練習問題を解いている – 武蔵の日記</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で書く – 武蔵の日記');" target="_blank"> ソフト開発の過去問で出てきた再帰をGaucheで書く – 武蔵の日記</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>
|