淡々と書いてみるよ。

Schemeの言語仕様

それが重要な結果を招くとわかった上で再定義することをSchemeの言語仕様は妨げません。すべてユーザの自由にゆだねられています。

append手続き

リストとリストを結合させる。

gosh> (append '(1 1 2) '(2 2 3))
(1 1 2 2 2 3)

car手続き

リストの先頭要素を返します:

gosh> (car '(1 2 3))
1

cdr手続き

リストの先頭をのぞいた残りの要素を返します。

gosh> (cdr '(1 2 3))
(2 3)

cons手続き

先頭要素と残りの要素からなるリストをくっつけてリストにする:

gosh> (cons 1 '(2 3))
(1 2 3)

list手続き

リストを作る手続き:

gosh> (list 1 2 3 4 5)
(1 2 3 4 5)

null?手続き

空リストかどうかを判断する手続き:

gosh> (null? '(1 2 3))
#f
gosh> (null? '())
#t

pair?手続き

空リストではないかどうかを判断する手続き:

gosh> (pair? '(1 2 3))
#t

fold手続き

リストの要素を順に処理していく手続きの基本になる手続き:

gosh> (fold +  '(1 2 3 4 5 6 7 8 9 10))
55

やっていることはperlのforeachみたいな感じなのかな？

# === use ===
use strict;
use warnings;
# === main ===
my @array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
my $sum = ;
foreach my $i (@array) {
$sum += $i;
}
print $sum, "\n";

Cだとこんな感じ:

/* ======================= */
/* === Include library === */
/* ======================= */
#include <stdio.h>
/* ============ */
/* === main === */
/* ============ */
int main(int argc, char *argv[])
{
int array[10] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10};
int sum = ;
int i;
for (i = ; i < (sizeof(array) / sizeof(int));i++)
{
sum += array[i];
}
printf("%d", sum);
return ;
}

foldの練習

gosh> (define (pick-least a b)
(if (< a b) a b))
gosh> (define (min-number lis)
(fold pick-least +inf.0 lis))
gosh> (min-number '(0 1 2 3 4 5 6 7 8))

こんな書き方もOKらしい:

>||(define (min-number lis)
(define (pick-least a b)
(if (< a b) a b))
(fold pick-least -inf.0 lis))

(define (length lis)
(define (increment2 a b)(+ b 1))
(fold increment2  lis))

感想

LISP は、それをモノにしたときのすばらしい悟り体験のために勉強しましょう。この体験は、その後の人生でよりよいプログラマーとなる手助けとなるはずです。たとえ、実際には LISP そのものをあまり使わなくても。

How To Become A Hacker: Japanese

悟り体験…なんか言っていることがわかったかもしれな、

プログラミングGauche

• 作者: Kahuaプロジェクト,川合史朗
• 出版社/メーカー: オライリージャパン
• 発売日: 2008/03/14
• メディア: 大型本
• 購入: 22人 クリック: 713回
• この商品を含むブログ (272件) を見る